Novità

sostituire impostagiocata con verificaesito

genios

Advanced Member >PLATINUM<
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
 

lotto_tom75

Advanced Premium Member
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
 

lotto_tom75

Advanced Premium Member
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 >PLATINUM<
lotto_tom75 ho di nuovo controllato ma mi sembra che non restituisca quando si è vrificato l' esito .

ciao Eugenio
 

claudio8

Premium Member
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 >PLATINUM<
Claudio8 ho fatto gia dei tentativi ma mi sembra che non sia molto facile .

ciao Eugenio
 

genios

Advanced Member >PLATINUM<
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

Premium Member
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 >PLATINUM<
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

Premium Member
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 >PLATINUM<
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

Premium Member
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 >PLATINUM<
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

Premium Member
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 >PLATINUM<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto