Novità

Script su Metodi Cabalistici, Ciclometrici & C.

Ecco lo script
salvo errori o dimenticanze

Codice: 
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5
   Dim A,B,C,E1,E2,Casi,Caso
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "                    Chiesto da Everita C - Script Salvo50                        ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If(A + 1 = B And B + 1 = C) Or(A + 1 = C And C + 1 = B)_
                              Or(B + 1 = C And C + 1 = A) Or(B + 1 = A And A + 1 = C)_
                              Or(C + 1 = A And A + 1 = B) Or(C + 1 = B And B + 1 = A)_
                              Or(A + 10 = B And B + 10 = C) Or(A + 10 = C And C + 10 = B)_
                              Or(B + 10 = C And C + 10 = A) Or(B + 10 = A And A + 10 = C)_
                              Or(C + 10 = A And A + 10 = B) Or(C + 10 = B And B + 10 = A)Then
                              Casi = Casi + 1
                              Caso = Caso + 1
                              Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                              Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                              For P4 = 1 To 5
                                 E1 = Estratto(Es,R1,P4)
                                 If E1 = A Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E1) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                              Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                              For P5 = 1 To 5
                                 E2 = Estratto(Es,R2,P5)
                                 If E2 = B Or E2 = C Then
                                    ColoreTesto 2
                                 Else
                                    ColoreTesto 0
                                 End If
                                 Scrivi Format2(E2) & " ",1,0
                                 ColoreTesto 0
                              Next
                              Scrivi
                              Scrivi
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
 
End Sub
 
Ultima modifica:
Ciao Salvo e tutti
..mi ha incuriosito il tuo script, a solo scopo didattico...
allego una versione diversa che agisce sulle distanze, che potrebbe ovviare a possibili errori, ed accorcia il codice di riga..
è solo uno scopo didattico per tenerci allenati, magari può servire...
PS: se è una cavolata, non tenetene conto..

Codice: 
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5
   Dim A,B,C,E1,E2,Casi,Caso,d1,d2,d3
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",10)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "                    Chiesto da Everita C - Script Salvo50                        ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub
 
Ciao a Tutti
Ciao Ramco
Ottimo script con il tuo modo di operare nelle distanze, meglio di come l'ho fatto io, quindi consiglio a chi interessa di fare riferimento alla tua versione dello script
 
Script interessante ho visto che si può ricavare l'estratto sulle Due Ruote Sommando i Tre Numeri Evidenziati con il 4° Numero isotopo al numero singolo di una delle due ruote sull'altra Ruota. Ad Esempio Estrazione n.10607 del 04.03.2025 MI 13 11 27 88 80
Estrazione n.10607 del 04.03.2025 VE 06 87 53 89 32 si sommano 11+88+87+89=5 da giocare su MI e Ve il 14.03.2025 esce a Milano in 5à il Numero 5
 
Con la modifica suggerita da Filippo1963

Codice: 
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(2),Posta(1)
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
scriviresoconto
End Sub


Con questo alla terza domanda col numero 1 la ricerca dell'ambata la fa nella prima ruota
col numero 2 nella seconda ruota

Codice: 
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(1),Posta(1),Ruota
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ruota = InputBox("Inserisci la Ruota di Ricerca, la prima Ruota col numero 1, la seconda col numero 2  ? ","Colpi d gioco",2)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 If Ruota = 1 Then Ruo(1) = R1
                                 If Ruota = 2 Then Ruo(1) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Ultima modifica:
filippo1963 ha scritto:
Qualche bravo scripter, potrebbe fare questo semplice script che parte da coppie di ruote diametrali che presentano questa condizione nei 5 numeri estratti, nessun numeretto e nessun numero cadenza zero. i 5 estratti devono essere ridotti in figura e le 5 figure unite formando due numeri da 5 cifre, fare adesso la differenza aritmetica tra i due numeri da 5 cifre, il risultato ottenuto da questa operazione va ridotto con il fuori90, il numero ottenuto è il numero spia da ricercare nelle otto estrazioni precedenti sulle altre otto ruote(escludendo la ruota nazionale), se il numero spia viene rintracciato per ricavare l'estratto determinato sommare i due numeri isotopi presente nell'estrazione dove è stato trovato il numero spia sulle du coppie di ruote diametrali di partenza. Il numero ottenuto da questa somma si dovrà giocare nelle successive otto estrazioni a quella di partenza sia come semplice che come determinato sulla coppia di ruote diametrali iniziali la posizione determinata è quella dove è uscito nelle precedenti estrazioni il numero spia sua una delle altre otto ruote.
Clicca per espandere...
Ciao a Tutti

Quando ho detto che non riuscivo a farlo, la mia difficoltà era nella ricerca a ritroso di solo 8 ruote, perchè le ruote non erano sempre le stesse cambiavano in base a quali erano le 2 ruote di partenza, adesso mi è venuta un idea di come impostare lo script.

Quindi appena posso faccio lo script
 
salvo50 ha scritto:
Con la modifica suggerita da Filippo1963

Codice: 
Option Explicit
Sub Main()
   Dim Es,Ini,Fin,Qua,R1,R2,P1,P2,P3,P4,P5,Som
   Dim A,B,C,D,E1,E2,Casi,Caso,d1,d2,d3,X,Clp
   Dim Amba(1),Ruo(2),Posta(1)
   Qua = InputBox("Quante estrazioni vuoi controllare? ","Controllo estrazioni",100)
   Clp = InputBox("Quante i colpi di gioco? ","Colpi d gioco",8)
   Ini = EstrazioneFin - Qua
   Fin = EstrazioneFin
   Posta(1) = 1
   Scrivi " 2 Ruote, 3 Estratti Consecutivi, Oppure 3 estratti distanza 10, di cui 2 Isotopi",1,,4,,3,,1
   Scrivi "    Chiesto da Everita C - Con modifica chiesta da Filippo1963 Script Salvo50    ",1,,4,,3,,1
   For Es = Ini To Fin
      Messaggio "elab. estr. del < " & DataEstrazione(Es) & " >"
      AvanzamentoElab Ini,Fin,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = 1 To 10
               If R1 <> R2 Then
                  For P2 = 1 To 4
                     For P3 = P2 + 1 To 5
                        B = Estratto(Es,R2,P2)
                        C = Estratto(Es,R2,P3)
                        If P1 = P2 Or P1 = P3 Then
                           If P1 = P2 Then X = P3
                           If P1 = P3 Then X = P2
                           D = Estratto(Es,R1,X)
                           'distanze
                           d1 = Distanza(A,B): d2 = Distanza(A,C): d3 = Distanza(B,C)
                           If(d1 = 1 And d2 = 2) Or(d1 = 2 And d2 = 1) Or(d1 = 1 And d2 = 1) Or(d1 = 10 And d2 = 20) Or(d1 = 20 And d2 = 10) Or(d1 = 10 And d2 = 10) Then
                              If(d1 = d2 And d3 =(d1*2)) Or(d1 = d3 And d2 =(d1*2)) Or(d2 = d3 And(d1 = d2*2)) Then
                                 Som = Fuori90(A + B + C + D)
                                 Amba(1) = Som
                                 Casi = Casi + 1
                                 Caso = Caso + 1
                                 Scrivi String(90,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                                 Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                                 For P4 = 1 To 5
                                    E1 = Estratto(Es,R1,P4)
                                    If E1 = A Or E1 = D Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E1) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                                 Scrivi "  " & SiglaRuota(R2) & "  ",1,0
                                 For P5 = 1 To 5
                                    E2 = Estratto(Es,R2,P5)
                                    If E2 = B Or E2 = C Then
                                       ColoreTesto 2
                                    Else
                                       ColoreTesto 0
                                    End If
                                    Scrivi Format2(E2) & " ",1,0
                                    ColoreTesto 0
                                 Next
                                 Scrivi
                                 Scrivi
                                 Scrivi Space(32) & Format2(A) & " + " & Format2(B) & " + " & Format2(C) & " + " & Format2(D) & " = ",1,0
                                 Scrivi Format2(Som),1,,,2
                                 Scrivi
                                 Ruo(1) = R1 : Ruo(2) = R2
                                 ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
                                 Gioca Es
                              End If
                           End If
                        End If
                     Next
                  Next
               End If
            Next
         Next
      Next
   Next
End Sub
Clicca per espandere...
Sto provando lo script , ho visto che alla fine non c'è un riepilogo sulla percentuale di casi giocabili e del loro esito entro i colpi di gioco inseriti, inoltre sto notando che quando esce l'estratto esce quasi sempre nella ruota di calcolo dove ci sono i due numeri consecutivi. deduco che si può ridurre la giocata di estratto su una singola ruota
 
Ciao Everita, Filippo

Per Everita ti rifaccio lo stesso script, le cinquine le devi inserire come hai chiesto da INPUTBOX

Per Filippo per il resoconto hai ragione mi sono dimenticato di inserirlo, riprendi lo script adesso c'è, però non l'ho provato
 
Ultima modifica:
salvo50 ha scritto:
Ciao a Tutti

Quando ho detto che non riuscivo a farlo, la mia difficoltà era nella ricerca a ritroso di solo 8 ruote, perchè le ruote non erano sempre le stesse cambiavano in base a quali erano le 2 ruote di partenza, adesso mi è venuta un idea di come impostare lo script.

Quindi appena posso faccio lo script
Clicca per espandere...
Provato io con il resoconto su 100 estrazioni mi esce 80% di esiti positivi, volevo vedere se usando una solo ruota le percentuali si mantengono, il dispendio finanziario si dimezza
 
Ciao a Tutti
Alien, Bubù, Matematico
Grazie

Le spiegazioni di questo script sono nei post 852 e 907

Codice: 
Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,Co,Spia,Det
   Dim R1,R2,R3,RetPos,k,k2,k3,A1,B1,E1,E2,Nu
   Dim Caso,Casi,P1,P4,P5,Nu1,Nu2,Max,Min
   Dim Figura_A(5),Figura_B(5),A(5),B(5),Num(1)
   Dim Amba(1),Posta(10),Ruo(2),R(8)
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,5)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " Ruote Diametrali Estratti No Zerati, No Cadenza 0 - proposto da Filippo1963 - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es & "    " & k2
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 5
         Co = 0
         For P1 = 1 To 5
            A(P1) = Estratto(Es,R1,P1)
            If A(P1) > 0 And A(P1) > 9 And Cadenza(A(P1)) <> 0 Then Co = Co + 1
            Figura_A(P1) = Figura(A(P1))
            R2 = RuotaDiametrale(R1)
            B(P1) = Estratto(Es,R2,P1)
            If B(P1) > 0 And B(P1) > 9 And Cadenza(B(P1)) <> 0 Then Co = Co + 1
            Figura_B(P1) = Figura(B(P1))
         Next
         If Co = 10 Then
            Nu1 = StringaNumeri(Figura_A,"",False)
            Nu2 = StringaNumeri(Figura_B,"",False)
            Max = Massimo(Nu1,Nu2)
            Min = Minimo(Nu1,Nu2)
            Spia = 0
            Spia = Fuori90(Max - Min)
            Num(1) = Spia
            For k3 = 1 To 8
               R(k3) = 0
            Next
            If R1 = BA_ Then R(1) = CA_ : R(2) = FI_ : R(3) = GE_ : R(4) = MI_ : R(5) = PA_ : R(6) = RO_ : R(7) = TO_ : R(8) = VE_
            If R1 = CA_ Then R(1) = BA_ : R(2) = FI_ : R(3) = GE_ : R(4) = MI_ : R(5) = NA_ : R(6) = RO_ : R(7) = TO_ : R(8) = VE_
            If R1 = FI_ Then R(1) = BA_ : R(2) = CA_ : R(3) = GE_ : R(4) = MI_ : R(5) = NA_ : R(6) = PA_ : R(7) = TO_ : R(8) = VE_
            If R1 = GE_ Then R(1) = BA_ : R(2) = CA_ : R(3) = FI_ : R(4) = MI_ : R(5) = NA_ : R(6) = PA_ : R(7) = RO_ : R(8) = VE_
            If R1 = MI_ Then R(1) = BA_ : R(2) = CA_ : R(3) = FI_ : R(4) = GE_ : R(5) = NA_ : R(6) = PA_ : R(7) = RO_ : R(8) = TO_
            If SerieFreq(Es - 8,Es,Num,R,1) > 0 Then
               k2 = 0
               k = 0
               R3 = 0
               For k = 1 To 8 ' ciclo per le rimanenti 8 ruote
                  If A1 > 0 And B1 > 0 Then Exit For
                  For k2 = Es - 8 To Es 'Estrazioni di ricerca
                     If IsNumeroPresenteInEstrazione(k2,R(k),Spia,RetPos) = True Then
                        R3 = R(k)
                        A1 = Estratto(Es,R1,RetPos)
                        B1 = Estratto(Es,R2,RetPos)
                     End If
                     If A1 > 0 And B1 > 0 Then Exit For
                  Next
               Next
               '   Scrivi k
               Nu = Fuori90(A1 + B1)
               Amba(1) = Nu
               Caso = Caso + 1
               Casi = Casi + 1
               Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
               Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
               Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R1) & "  ",1,0
               For P4 = 1 To 5
                  E1 = Estratto(Es,R1,P4)
                  If E1 = A1 Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E1) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " Figure " & Nu1,1
               Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
               Scrivi "  " & SiglaRuota(R2) & "  ",1,0
               For P5 = 1 To 5
                  E2 = Estratto(Es,R2,P5)
                  If E2 = B1 Then
                     ColoreTesto 2
                  Else
                     ColoreTesto 0
                  End If
                  Scrivi Format2(E2) & " ",1,0
                  ColoreTesto 0
               Next
               Scrivi " Figure " & Nu2,1
               Scrivi
               Scrivi Space(30) & Max & " - " & Min & " = " & Format2(Spia) & " Numero da cercare a ritroso per 8 estrazioni",1
               Scrivi Space(36) & Format2(A1) & " + " & Format2(B1) & " = " & Format2(Nu) & " Ambata",1
               Scrivi
               Scrivi Spia & " Numero Trovato a Ritroso in Posizione " & RetPos,1
               Scrivi "In ruota diversa da " & SiglaRuota(R1) & "  " & SiglaRuota(R2) & " e Nazionale",1
               ReDim Matcasella(1,1)
               Matcasella(1,0) = R3
               Matcasella(1,1) = RetPos
               Call DisegnaEstrazione(k2,Matcasella,,vbBlue)
               Posta(RetPos + 5) = 1
               Posta(1) = 1
               Ruo(1) = R1 : Ruo(2) = R2
               ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
               Gioca Es
               Posta(RetPos + 5) = 0
               A1 = 0 : B1 = 0
            End If
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub
 
Ultima modifica:
Chiedo se possibile a i Bravi e Volenterosi Scripter di questo bellissimo Forum, uno script che mi rintracci Nelle Estrazioni Due Coppie Numeri che devono essere su posizioni unite e ruote unite, con queste caratteristiche, nei quattro numeri nessun Numeretto o Numero Cadenza Zero, inoltre le coppie di numeri della prima o seconda ruota devo essere o di stessa Cadenza o di stessa figura o di stessa Decina; se lo sono entrambe le coppie di numeri meglio, dunque una coppia della prima ruota può essere stessa figura mentre la coppia della seconda ruote puo essere stessa figura e viceversa. Grazie anticipato a chi farà lo script a me serve solo avere il resoconto delle coppie trovate poi i calcoli per la previsione li faccio manualmente
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 29 marzo 2025
    Bari
    07
    78
    26
    37
    31
    Cagliari
    77
    63
    56
    52
    09
    Firenze
    51
    38
    34
    43
    63
    Genova
    55
    81
    24
    75
    57
    Milano
    87
    51
    86
    10
    21
    Napoli
    69
    15
    14
    61
    66
    Palermo
    06
    81
    31
    72
    13
    Roma
    25
    37
    90
    30
    40
    Torino
    90
    08
    13
    76
    54
    Venezia
    36
    64
    13
    15
    66
    Nazionale
    09
    85
    39
    13
    88
    Estrazione Simbolotto
    Firenze
    34
    40
    02
    14
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto