Novità

sostituire impostagiocata con verificaesito

G

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
 
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 ha scritto:
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
Clicca per espandere...

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

ciao Eugenio
 
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
 
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 .
 
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
 
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
 
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.
 
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
 
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.
 
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?
Clicca per espandere...

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

Sempre su tre ruote?
Clicca per espandere...

intanto facciamolo su tre ruote diverse.
 
genios ha scritto:
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.
Clicca per espandere...
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
 
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto