annuncio

Comprimi
Ancora nessun annuncio.

Come fare? Richiesta per scripter

Comprimi
X
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • Come fare? Richiesta per scripter

    Buonasera
    Vorrei eliminare i pronostici doppi e non so come fare
    per farmi capire meglio
    nello script di esempio il caso 4 non dovrebbe esserci perché già in corso il caso 3 con i 9 colpi
    come faccio a non far pervenire il caso 4?
    ringrazio in anticipo chi mi vuole aiutare

    codice:
     Sub Main()
    Dim nu(2),m(1),am(2),posta(1),poste(2),ruo(1)
    posta(1) = 1
    poste(2) = 1
       Ini = EstrazioneFin - 55
       fin = EstrazioneFin
    For es = Ini To fin
    Messaggio "Estrazioni esaminate " & es
    Call AvanzamentoElab(Ini,fin,es)
    For p = 1 To 4
    For pp = p + 1 To 5
    nu(1) = Estratto(es,1,p)
    nu(2) = Estratto(es,1,pp)
    If Fuori90(nu(1) + nu(2)) = 90 Then
                   co = co + 1
    Scrivi String(65,"=") & " Caso n° " & co
    Scrivi DataEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " ( ambo " & StringaNumeri(nu) & " )",1
    Scrivi String(65,"-")
    ruo(1) = 1
    m(1) = 54
    ImpostaGiocata 1,m,ruo,posta,9
    am(1) = 54
    am(2) = 7
    ImpostaGiocata 2,am,ruo,poste,9
    am(2) = 8
    ImpostaGiocata 3,am,ruo,poste,9
    am(2) = 9
    ImpostaGiocata 5,am,ruo,poste,9
    am(2) = 16
    ImpostaGiocata 6,am,ruo,poste,9
    am(2) = 63
    ImpostaGiocata 7,am,ruo,poste,9
    Gioca es,1
    End If
    Next
    Next
    Next
    ScriviResoconto,0
    End Sub


  • #2
    Master devi ingegnarti in qualche modo e trovare escamotage alternativi.

    Intanto valutare quante estrazioni trascorrono tra un caso e l'altro
    nel casi < ai colpi stabiliti puoi o attendere la gioca e giocare dopo o per i colpi restanti o interrompi la giocata nel codice apposito Impostagiocata

    Devi trovare tu la soluzione più adatta al tuo scopo.

    Leggi le mie righe da esempio è ottimizzale al meglio, visto che mi pare di ricordare che mastichi di script.

    codice:
    Sub Main()
       Dim nu(2),m(1),am(2),posta(1),poste(2),ruo(1)
       posta(1) = 1
       poste(2) = 1
       Ini = EstrazioneFin - 55
       fin = EstrazioneFin
       For es = Ini To fin
          Messaggio "Estrazioni esaminate " & es
          Call AvanzamentoElab(Ini,fin,es)
          For p = 1 To 4
             For pp = p + 1 To 5
                nu(1) = Estratto(es,1,p)
                nu(2) = Estratto(es,1,pp)
                If Fuori90(nu(1) + nu(2)) = 90 Then
                   co = co + 1
                   '-----------------------------------------
                   ReDim Preserve Ess(co)
                   Ess(co) = es
                   ReDim Preserve CasoValido(co)
                   CasoValido(co) = Ess(co) - Ess(co - 1)
                   '-----------------------------------------
                   Scrivi String(65,"=") & " Caso n° " & co
                   Scrivi GetInfoEstrazione(es) & " - " & SiglaRuota(1) & " - " & StringaEstratti(es,1) & " ( ambo " & StringaNumeri(nu) & " )",1
                   Scrivi "Distanza Caso : " & CasoValido(co)
                   Scrivi String(65,"-")
                   ruo(1) = 1
                   m(1) = 54
                   '------------------------------------
                   If CasoValido(co) < 9 Then
                      attesa = CasoValido(co)
                      ImpostaGiocata 1,m,ruo,posta,9,,1 ' interrompi la giocata
                      'ImpostaGiocata 1,m,ruo,posta,9,,attesa ' gioca dopo
                   Else
                      ImpostaGiocata 1,m,ruo,posta,9
                   End If
                   '------------------------------------
                   am(1) = 54
                   am(2) = 7
                   ImpostaGiocata 2,am,ruo,poste,9
                   am(2) = 8
                   ImpostaGiocata 3,am,ruo,poste,9
                   am(2) = 9
                   ImpostaGiocata 5,am,ruo,poste,9
                   am(2) = 16
                   ImpostaGiocata 6,am,ruo,poste,9
                   am(2) = 63
                   ImpostaGiocata 7,am,ruo,poste,9
                   Gioca es,1
                End If
             Next
          Next
       Next
       ScriviResoconto,0
    End Sub
    Ciaohttp://forum.lottoced.com/core/images/smilies/smile.png

    Commenta


    • #3
      Ottimo Mike !!
      Grazie al tuo aiuto ho trovato la soluzione adatta al mio scopo,
      avevo provato in diversi modi senza riuscirci, in effetti come dici mastico script...... (ma con la dentiera!! )
      Grazie e buona serata

      Commenta

      Unconfigured Ad Widget

      Comprimi

      Ultima estrazione del lotto

      Comprimi

      Estrazione del lotto
      martedì 21 maggio 2019
      Bari
      41
      02
      80
      51
      56
      Cagliari
      69
      23
      49
      40
      33
      Firenze
      19
      12
      70
      62
      33
      Genova
      19
      48
      28
      14
      41
      Milano
      43
      11
      27
      63
      81
      Napoli
      68
      44
      53
      72
      43
      Palermo
      55
      19
      43
      67
      78
      Roma
      84
      57
      82
      17
      68
      Torino
      54
      04
      50
      20
      71
      Venezia
      58
      04
      54
      85
      80
      Nazionale
      45
      69
      84
      66
      49
      Sto operando...
      X