Novità

sostituire impostagiocata con verificaesito

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
E' possibile sostituire impostagiocata con vrificaesito in questo script :
Codice:
Sub Main()

'Rif 0901_36 Genios - ....
Dim n1(4),n2(4),n3(4),ru1(1),ru2(1),ru3(1),posta(2)
posta(2) = 1
colpi = 250

Dim matrice(8,4)
matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19
matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29
matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39
matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49
matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59
matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69
matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79
matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89


fin = EstrazioneFin
'ini=3582      '<============ imposta ini o
ini = 3862 '<==== imposta intervallo

For es = ini To fin
Messaggio es

For s1 = 1 To 6
   For i = 1 To 4
      n1(i) = matrice(s1,i)
   Next
   For s2 = s1 + 1 To 7
      For i = 1 To 4
         n2(i) = matrice(s2,i)
      Next
      For s3 = s2 + 1 To 8
         For i = 1 To 4
            n3(i) = matrice(s3,i)
         Next

         For r1 = 1 To 10
            ru1(1) = r1
            If SerieFreq(es,es,n1,ru1,2) > 0 Then
               For r2 = 1 To 10
                  If r2 <> r1 Then
                     ru2(1) = r2
                     If SerieFreq(es,es,n2,ru2,2) > 0 Then
                        For r3 = 1 To 10
                           If r3 <> r2 And r3 <> r1 Then
                           ru3(1) = r3
                              If SerieFreq(es,es,n3,ru3,2) > 0 Then
                                 co = co + 1
                                
                                 Scrivi
                                 Scrivi " caso " & co,1
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r3) & " " & StringaEstratti(es,r3)
                                 Scrivi

                                 ImpostaGiocata 1,n1,ru1,posta,colpi,2
                                 ImpostaGiocata 2,n2,ru2,posta,colpi,2
                                 ImpostaGiocata 3,n3,ru3,posta,colpi,2

                                 For j = 1 To 3
                                    For i = 1 To 3
                                       ImpostaInterruzioni i,j,2
                                    Next
                                 Next
                                 Gioca es
                              End If
                           End If 'chiude controllo ruote uguali
                        Next 'chiude r3
                     End If
                  End If
               Next 'chiude r2
            End If
         Next 'chiude r1
Next : Next : Next : Next

ScriviResoconto
End Sub



Ciao Eugenio
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
Esperti scripter nessuno si fa avanti ?

Ciao Eugenio
 

lotto_tom75

Premium Member
Messaggi
8.981
Punti reazione
577
Punti
113
Non sono uno script esperto e non so nemmeno se è quello che chiedi ma ti posto la mia piccolissima modifica al riguardo:

Codice:
Sub Main()

'Rif 0901_36 Genios - ....
Dim n1(4),n2(4),n3(4),ru1(1),ru2(1),ru3(1),posta(2)
posta(2) = 1
colpi = 250

Dim matrice(8,4)
matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19
matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29
matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39
matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49
matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59
matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69
matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79
matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89


fin = EstrazioneFin
'ini=3582      '<============ imposta ini o
ini = 9000  '3862 '<==== imposta intervallo

For es = ini To fin
Messaggio es

For s1 = 1 To 6
   For i = 1 To 4
      n1(i) = matrice(s1,i)
   Next
   For s2 = s1 + 1 To 7
      For i = 1 To 4
         n2(i) = matrice(s2,i)
      Next
      For s3 = s2 + 1 To 8
         For i = 1 To 4
            n3(i) = matrice(s3,i)
         Next

         For r1 = 1 To 10
            ru1(1) = r1
            If SerieFreq(es,es,n1,ru1,2) > 0 Then
               For r2 = 1 To 10
                  If r2 <> r1 Then
                     ru2(1) = r2
                     If SerieFreq(es,es,n2,ru2,2) > 0 Then
                        For r3 = 1 To 10
                           If r3 <> r2 And r3 <> r1 Then
                           ru3(1) = r3
                              If SerieFreq(es,es,n3,ru3,2) > 0 Then
                                 co = co + 1
                               
                                 Scrivi
                                 Scrivi " caso " & co,1
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r2) & " " & StringaEstratti(es,r2)
                                 Scrivi " " & DataEstrazione(es) & " Rilevato ambo su " & SiglaRuota(r3) & " " & StringaEstratti(es,r3)
                                 Scrivi

'       ImpostaGiocata 1,n1,ru1,posta,colpi,2
'       ImpostaGiocata 2,n2,ru2,posta,colpi,2
'       ImpostaGiocata 3,n3,ru3,posta,colpi,2

Call VerificaEsito(n1,ru1,es,2,colpi)
Call VerificaEsito(n2,ru2,es,2,colpi)
Call VerificaEsito(n3,ru3,es,2,colpi)


                                 For j = 1 To 3
                                    For i = 1 To 3
                                       ImpostaInterruzioni i,j,2
                                    Next
                                 Next
                                 Gioca es
                              End If
                           End If 'chiude controllo ruote uguali
                        Next 'chiude r3
                     End If
                  End If
               Next 'chiude r2
            End If
         Next 'chiude r1
Next : Next : Next : Next

'ScriviResoconto
End Sub
Magari potrà servire come "rompighiaccio" per altre eventuali risposte più ottimali. Ciao
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
Grazie lotto_tom75 di aver rotto il ghiaccio la tua modifica è quello che cercavo . Alla fine dell' out potresti inserire i 10 ritardi max raggiunti .

ciao Eugenio
 

lotto_tom75

Premium Member
Messaggi
8.981
Punti reazione
577
Punti
113
Grazie lotto_tom75 di aver rotto il ghiaccio la tua modifica è quello che cercavo . Alla fine dell' out potresti inserire i 10 ritardi max raggiunti .

ciao Eugenio
Felice di averti potuto aiutare Eugenio nella prima parte della tua modifica. Per l'altra tua richiesta purtroppo non saprei da che parte cominciare. Sicuramente qualcun altro/a ti saprà aiutare anche in quella. Ciao
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
lotto_tom75 ho di nuovo controllato ma mi sembra che non restituisca quando si è vrificato l' esito .

ciao Eugenio
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.342
Punti reazione
190
Punti
63
Fa solo il contrllo ma non scrive nussun dato rilevato.
Devi inserire dopo i verificaesito la funziome "Scrivi" con quanto ti serva conoscere.
Se non sai come fare, leggi l'help o il test verificaesito tra gli script presenti in spaziometria.
Ciao
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
Claudio8 ho fatto gia dei tentativi ma mi sembra che non sia molto facile .

ciao Eugenio
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
numeroestrazione ,dataestrazione ,estratti estrazione ,Ritardo in cui una delle quartine ha dato l' ambo ,quartina che ha dato l' ambo.

Alla fine dell' out potresti inserire i 10 ritardi max raggiunti .
 

claudio8

Advanced Member >PLATINUM PLUS<
Messaggi
3.342
Punti reazione
190
Punti
63
Vedi se può servirti questi script inviatiti nel 2018
A Genios
Codice:
Sub Main()
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9300' 3575
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next
                For r1 = 1 To 9
                    For r2 = r1 + 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                        Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1)
                        If VerificaEsito(n1,ru1,es + 1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                        Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " estraz. del " & DataEstrazione(IdEstr1)
                        Else
                        Scrivi "Esito degli (n1) ....  non verificato"
                        End If
                            ImpostaGiocata 1,n1,ru1,posta,200,2 ' da remmare
                        Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2)
                        If VerificaEsito(n2,ru2,es + 1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                        Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                        Else
                        Scrivi "Esito degli (n2)....  non verificato"
                        End If
                            ImpostaGiocata 2,n2,ru2,posta,200,2 ' da remmare
                            Gioca es ' da remmare
                            ImpostaInterruzioni 1,2,2 ' da remmare
                            ImpostaInterruzioni 2,1,2 ' da remmare

                        End If
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto 'da remmare
End Sub
A Geniuo2
Codice:
Sub Main
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9400 '3575
    caso = 0
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        If ScriptInterrotto Then Exit For
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next
                
                For r1 = 1 To 10
                    For r2 = 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                        caso = caso + 1
                        Scrivi "------------------------------------------------------------------- caso n° " & caso & "----"
                            Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                            If VerificaEsito(n1,ru1,es + 1,2,,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                            Else
                                Scrivi "Esito degli (n1) ....  non verificato"
                            End If
                            
                            
                            Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                            If VerificaEsito(n2,ru2,es + 1,2,,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                            Else
                                Scrivi "Esito degli (n2)....  non verificato"
                            End If
                            'Scrivi "------------------------------------------------------------------------------"

                        End If
                    Next
                Next
            Next
        Next
    Next
    
End Sub
A Genios3
Codice:
Sub Main
    Dim n1(5),n2(5),ru1(1),ru2(1),posta(2)
    posta(2) = 1
    Dim r1,r2,a,b,Colpi1,Colpi2,Esito1,Esito2
    Dim matrice(8,5)
    matrice(1,1) = 1: matrice(1,2) = 10: matrice(1,3) = 11: matrice(1,4) = 19: matrice(1,5) = 2
    matrice(2,1) = 2: matrice(2,2) = 20: matrice(2,3) = 22: matrice(2,4) = 29: matrice(2,5) = 4
    matrice(3,1) = 3: matrice(3,2) = 30: matrice(3,3) = 33: matrice(3,4) = 39: matrice(3,5) = 6
    matrice(4,1) = 4: matrice(4,2) = 40: matrice(4,3) = 44: matrice(4,4) = 49: matrice(4,5) = 8
    matrice(5,1) = 5: matrice(5,2) = 50: matrice(5,3) = 55: matrice(5,4) = 59: matrice(5,5) = 1
    matrice(6,1) = 6: matrice(6,2) = 60: matrice(6,3) = 66: matrice(6,4) = 69: matrice(6,5) = 3
    matrice(7,1) = 7: matrice(7,2) = 70: matrice(7,3) = 77: matrice(7,4) = 79: matrice(7,5) = 5
    matrice(8,1) = 8: matrice(8,2) = 80: matrice(8,3) = 88: matrice(8,4) = 89: matrice(8,5) = 7
    fin = EstrazioneFin
    ini = 9400 '3575
    caso = 0
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        If ScriptInterrotto Then Exit For
        For s1 = 1 To 7
            For i = 1 To 5
                n1(i) = matrice(s1,i)
            Next
            For s2 = s1 + 1 To 8
                For i = 1 To 5
                    n2(i) = matrice(s2,i)
                Next
                For r1 = 1 To 10
                    For r2 = 1 To 10
                        ru1(1) = r1
                        ru2(1) = r2
                        If SerieFreq(es,es,n1,ru1,2) > 0 And SerieFreq(es,es,n2,ru2,2) > 0 Then
                            caso = caso + 1
                            Scrivi "--------------------------------------------------------------------------------- caso n° " & caso
                            If VerificaEsito(n1,ru1,es + 1,2,fin - es,,Esito1,Colpi1,Estratti1,IdEstr1) Then
                            a = Colpi1
                            Else
                            a = fin
                            End If
                            If VerificaEsito(n2,ru2,es + 1,2,fin - es,,Esito2,Colpi2,Estratti2,IdEstr2) Then
                            b = Colpi2
                            Else     
                            b = fin   
                            End If                   
                            If a < b Then
                                Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                            ElseIf a > b Then
                                Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                            ElseIf a < Fin - es And b < fin - es And a = b Then
                                Scrivi "Esito allo stesso colpo",,,3
                                Scrivi "In gioco i numeri (n1) " & n1(1) & "-" & n1(2) & "-" & n1(3) & "-" & n1(4) & "-" & n1(5) & " su " & SiglaRuota(r1) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito1 & " al " & FormatSpace(Colpi1,4,1) & "° colpo - Ruota e numeri " & Estratti1 & " - estraz. del " & DataEstrazione(IdEstr1)
                                Scrivi "In gioco i numeri (n2) " & n2(1) & "-" & n2(2) & "-" & n2(3) & "-" & n2(4) & "-" & n2(5) & " su " & SiglaRuota(r2) & " da estr del " & DataEstrazione(es),,,,2
                                Scrivi "Esito di " & Esito2 & " al " & FormatSpace(Colpi2,4,1) & "° colpo - Ruota e numeri " & Estratti2 & " estraz. del " & DataEstrazione(IdEstr2)
                                
                            Else
                                Scrivi "Esito degli (n1) e degli (n2) ....  non ancora verificato"
                            End If
                        End If
                    Next
                Next
            Next
        Next
    Next
End Sub
Spero si capisca come ricavare quanto ti serve, per i ritardi, LottoTom è + bravo di me (y) :cool: (y)(y):cool:
ciao
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
Questi script non mettono in gioco contemporaneamente 3 terzine radicali per la sorte di almeno una fissandone le estrazioni di ritardo .
Molto probabilmente occorre usare l' istruzione Select Case di Vbascript .

ciao Eugenio
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.790
Punti reazione
397
Punti
83
Ciao a tutti.
Eugenio sarebbe più facile per chi volesse aiutarti nello script ,sapere quale obbiettivo vuoi raggiungere.
Prova ad esporre tutto quello che vuoi ottenere dallo script.
Per esempio ,non ho capito se ti occorre una statistica .
In pratica quando escevuna quartina radicale su una ruota tu vorresti rimetterla in gioco?
Che statistuca ti serve?
Quali parametri?
Per realizzare uno script bisogna saper a qui domande deve rispondere.
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
ilegend vorrei fare uno script che in OUT mi restituisca i 10 ritardi max raggiunti da 3 quartine per la sorte di ambo di almeno una delle tre .

Naturalmente come puoi vedere dal mio script al post#1 le quartine vengono prese a tre a tre e come condizione devono essere uscite per la sorte di ambo nella stessa estrazione cioè debbono aver dato l' ambo tutte e tre nella stessa estrazione ( quartine isocrone ) Quindi rimetterle in gioco nella stessa ruota di uscita e contare il ritardo fino a che almeno una delle 3 non dia di nuovo l' ambo .

Ti posto un esempio sullo script al post #1


Codice:
 caso 662
9598 02.03.2019 Rilevato ambo su NA 81.04.56.40.86
9598 02.03.2019 Rilevato ambo su RO 73.05.46.50.37
9598 02.03.2019 Rilevato ambo su BA 79.77.71.12.52

Estrazione generatrice del pronostico 09598 [ 27 - 02/03/2019]
G 0001 Numeri in gioco : 04.40.44.49 su NA per Ambo
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   1            09599 [ 28 - 05/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   2            09600 [ 29 - 07/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   3            09601 [ 30 - 09/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   4            09602 [ 31 - 12/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   5            09603 [ 32 - 14/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   6            09604 [ 33 - 16/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   7            09605 [ 34 - 19/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   8            09606 [ 35 - 21/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.   9            09607 [ 36 - 23/03/2019]
  N. [04.40.44.49                   ] [NA]     [.. .. .. .. ..] C.  10            09608 [ 37 - 26/03/2019]

G 0002 Numeri in gioco : 05.50.55.59 su RO per Ambo
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   1            09599 [ 28 - 05/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   2            09600 [ 29 - 07/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   3            09601 [ 30 - 09/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   4            09602 [ 31 - 12/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   5            09603 [ 32 - 14/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   6            09604 [ 33 - 16/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. 05 ..] C.   7 Estratto   09605 [ 34 - 19/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. .. .. .. ..] C.   8            09606 [ 35 - 21/03/2019]
  N. [05.50.55.59                   ] [RO]     [.. 05 .. .. ..] C.   9 Estratto   09607 [ 36 - 23/03/2019]
V N. [05.50.55.59                   ] [RO]     [05 55 .. .. ..] C.  10 Ambo       09608 [ 37 - 26/03/2019]
Interrotta per esito verificato

G 0003 Numeri in gioco : 07.70.77.79 su BA per Ambo
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   1            09599 [ 28 - 05/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   2            09600 [ 29 - 07/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   3            09601 [ 30 - 09/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   4            09602 [ 31 - 12/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   5            09603 [ 32 - 14/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. 79 .. .. ..] C.   6 Estratto   09604 [ 33 - 16/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   7            09605 [ 34 - 19/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   8            09606 [ 35 - 21/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. .. .. ..] C.   9            09607 [ 36 - 23/03/2019]
  N. [07.70.77.79                   ] [BA]     [.. .. 70 .. ..] C.  10 Estratto   09608 [ 37 - 26/03/2019]


 caso 663
9602 12.03.2019 Rilevato ambo su BA 17.66.89.55.05
9602 12.03.2019 Rilevato ambo su MI 22.35.78.77.70
9602 12.03.2019 Rilevato ambo su NA 84.35.88.61.89

Estrazione generatrice del pronostico 09602 [ 31 - 12/03/2019]
G 0001 Numeri in gioco : 05.50.55.59 su BA per Ambo
  N. [05.50.55.59                   ] [BA]     [.. .. .. .. ..] C.   1            09603 [ 32 - 14/03/2019]
Come hai potuto vedere il ritardo di 3 quartine isocrone per almeno una vincente é 10 estrazioni
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.790
Punti reazione
397
Punti
83
Le tre quartine devono essere tutte diverse o possono essere anche 2 uguali e 1 diversa o tutte e tre uguali? Sempre su tre ruote?
E se le ruote fossero oppure di più?
Se ti va proviamo a farlo insieme.
Ti do man mano dei suggerimenti.
Lo script he hai postato , non so se è colpa del mio pc ma è lentissimo.
Fammi sapere.
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
E si lo script è un po lento intorno 8 minuti .

Le tre quartine devono essere tutte diverse o possono essere anche 2 uguali e 1 diversa o tutte e tre uguali?
possono essere tutte diverse, 2 uguali e 1 diversa,o tutte e tre uguali.

Sempre su tre ruote?
intanto facciamolo su tre ruote diverse.
 

i legend

Advanced Member >PLATINUM PLUS<
Messaggi
3.790
Punti reazione
397
Punti
83
E si lo script è un po lento intorno 8 minuti .



possono essere tutte diverse, 2 uguali e 1 diversa,o tutte e tre uguali.



intanto facciamolo su tre ruote diverse.
ok .
proviamo a semplificare il tutto.
(probabilmente , hai un pc piu nuovo del mio, o forse io ho qualche file system danneggiato)

tu dichiari la matrice e la scrivi cosi
[CODE
]Dim matrice(8,4)
matrice(1,1) = 1
matrice(1,2) = 10
matrice(1,3) = 11
matrice(1,4) = 19
matrice(2,1) = 2
matrice(2,2) = 20
matrice(2,3) = 22
matrice(2,4) = 29
matrice(3,1) = 3
matrice(3,2) = 30
matrice(3,3) = 33
matrice(3,4) = 39
matrice(4,1) = 4
matrice(4,2) = 40
matrice(4,3) = 44
matrice(4,4) = 49
matrice(5,1) = 5
matrice(5,2) = 50
matrice(5,3) = 55
matrice(5,4) = 59
matrice(6,1) = 6
matrice(6,2) = 60
matrice(6,3) = 66
matrice(6,4) = 69
matrice(7,1) = 7
matrice(7,2) = 70
matrice(7,3) = 77
matrice(7,4) = 79
matrice(8,1) = 8
matrice(8,2) = 80
matrice(8,3) = 88
matrice(8,4) = 89
' queste sono 32 righe di codice anche se le scrivi su una riga utilizzando i "":" "'
[/CODE]
si potrebbe scrivere cosi, è piu veloce da scrivere e tieni piu facilmente sotto controllo eventuali errori,
è pressochè equivalente , se non su un numero considerevole di ripetizioni

Codice:
   Dim aRad(8)
   aRad(1) = Array(0,1,10,11,19)
   aRad(2) = Array(0,2,20,22,29)
   aRad(3) = Array(0,3,30,33,39)
   aRad(4) = Array(0,4,40,44,49)
   aRad(5) = Array(0,5,50,55,59)
   aRad(6) = Array(0,6,60,66,69)
   aRad(7) = Array(0,7,70,77,79)
   aRad(8) = Array(0,8,80,88,89)
primo passo.
ora scrivi tu quali sono le variabili che saranno utili per il tuo script.
ricorda
le variabili Integer avranno il prefisso in minuscolo "i " oppure "n"
gli array o i vettori avranno il prefisso in minuscolo "a"
questo semplifica la lettura del codice
Incominciamo da qui.
poi dalle 16.00 ho un impegno e potro collegarmi al massimo con il cell
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
dallo script post #1Remmando imposta giocata e scrivi resoconto in out abbiamo dall' esempio post #15

Codice:
Estrazione generatrice del pronostico 09582 [ 11 - 24/01/2019]

caso 662
9598 02.03.2019 Rilevato ambo su NA 81.04.56.40.86 quartina radicale 4-40-44-49
9598 02.03.2019 Rilevato ambo su RO 73.05.46.50.37 quartina radicale 5-50-55-59
9598 02.03.2019 Rilevato ambo su BA 79.77.71.12.52 quartina radicale 7-70-77-79

Estrazione generatrice del pronostico 09598 [ 27 - 02/03/2019]
all' estrazione 9598 abbiamo la condizione che cercavamo .
Ora dopo quante estrazioni di ritardo almeno una delle tre quartine radicali ha dato l' ambo nella stessa ruota di rilevamento?

in pseudo codice :
nell' estrazione 9598 troviamo la condizione che ci soddisfa :
QUINDI CONTROLLIAMO QUANDO ALMENO UNA DELLE TRE QUARTINA HA DATO L' AMBO SULLA RUOTA DI APPARTENENZA :

nell' estrazione 9599 sulla ruota di NA c'è la quartina 4-40-44-49 NO allora passa alla ruota di RO
nell' estrazione 9599 sulla ruota di RO c'è la quartina 5-50-55-59 NO allora passa alla ruota di BA
nell' estrazione 9599 sulla ruota di BA c'è la quartina 7-70-77-79 NO allora passa all' estrazione 9600 e ritardo=1


nell' estrazione 9600 sulla ruota di NA c'è la quartina 4-40-44-49 NO allora passa alla ruota di RO
nell' estrazione 9600 sulla ruota di RO c'è la quartina 5-50-55-59 NO allora passa alla ruota di BA
nell' estrazione 9600 sulla ruota di BA c'è la quartina 7-70-77-79 NO allora passa all' estrazione 9601 e ritardo=2


nell' estrazione 9601 sulla ruota di NA c'è la quartina 4-40-44-49 NO allora passa alla ruota di RO
nell' estrazione 9601 sulla ruota di RO c'è la quartina 5-50-55-59 NO allora passa alla ruota di BA
nell' estrazione 9601 sulla ruota di BA c'è la quartina 7-70-77-79 NO allora passa all' estrazione 9602 e ritardo=3


OMISSIS

nell' estrazione 9608 sulla ruota di NA c'è la quartina 4-40-44-49 NO allora passa alla ruota di RO
nell' estrazione 9608 sulla ruota di RO c'è la quartina 5-50-55-59 SI allora passa alla ruota di BA
nell' estrazione 9608 sulla ruota di BA c'è la quartina 7-70-77-79 NO allora passa all' estrazione 9602 e ritardo=10

RITARDO =10

CERCA NUOVA CONDIZIONE
 

genios

Advanced Member >GOLD<
Messaggi
858
Punti reazione
13
Punti
18
no il mio PC ACER EXTENSA 5510 CON SO WIN XP 4 GIGA RAM
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 13 agosto 2020
    Bari
    85
    14
    03
    88
    26
    Cagliari
    75
    85
    81
    77
    13
    Firenze
    69
    86
    10
    60
    36
    Genova
    02
    57
    16
    09
    59
    Milano
    83
    06
    51
    18
    46
    Napoli
    75
    80
    20
    52
    47
    Palermo
    64
    05
    73
    89
    88
    Roma
    67
    02
    60
    74
    63
    Torino
    83
    42
    23
    03
    35
    Venezia
    83
    87
    86
    72
    88
    Nazionale
    12
    77
    42
    19
    32
    Estrazione Simbolotto
    Genova
    11
    36
    06
    30
    05

Ultimi Messaggi

Alto