Script su Metodi Cabalistici, Ciclometrici & C.

[salvo50]

Ecco lo script
salvo errori o dimenticanze

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

 

[Alien.]

È EVIDENZIA TRE NUMERI CONSECUTIVI E POI !! SI FANNO SCINTILLE ?

 

[Ramco]

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..

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

 

[salvo50]

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

 

[filippo1963]

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

 

[salvo50]

Con la modifica suggerita da Filippo1963

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

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

 

[salvo50]

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.

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

 

[EVERITA C]

Buonasera Salvo al post. n' 884 se possibile aggiungere un'imput box dove inserire le due cinquine.

Grazie.

 

[filippo1963]

Con la modifica suggerita da Filippo1963

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

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

 

[salvo50]

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

 

[filippo1963]

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

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

 

[salvo50]

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

Ho messo un altro script nel post 906, dove puoi decidere in quale ruota fare la ricerca del pronostico

 

[salvo50]

Ciao a Tutti
Per Everita
Al post 884, ho aggiunto un altro script che puoi inserire le due cinquine da tastiera

 

[salvo50]

Ciao a Tutti
Alien, Bubù, Matematico
Grazie

Le spiegazioni di questo script sono nei post 852 e 907

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

 

[filippo1963]

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

 

[salvo50]

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

Ciao a Tutti

Matematico
Grazie

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50
   Dim R1,R2,A,B,C,D,E1,E2,S
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6
   Dim F_A,F_B,F_C,F_D,C_A,C_B,C_C,C_D
   Dim D_A,D_B,D_C,D_D
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " Ruote Consecutive Estratti No Numeretti, No Cadenza 0 - proposto da Filippo1963 - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If A > 9 And Cadenza(A) <> 0 And B > 9 And Cadenza(B) <> 0 Then
               R2 = R1 + 1
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If C > 9 And Cadenza(C) <> 0 And D > 9 And Cadenza(D) <> 0 Then
                  F_A = Figura(A) : F_B = Figura(B) : F_C = Figura(C) : F_D = Figura(D)
                  C_A = Cadenza(A) : C_B = Cadenza(B) : C_C = Cadenza(C) : C_D = Cadenza(D)
                  D_A = Decina(A) : D_B = Decina(B) : D_C = Decina(C) : D_D = Decina(D)
                  If(F_A = F_B And F_C = F_D And F_B = F_C)_
                     Or(C_A = C_B And C_C = C_D And C_B = C_C)_
                     Or(D_A = D_B And D_C = D_D And D_B = D_C) Then
                     If(F_A = F_B And F_C = F_D And F_B = F_C) Then S = " Figura Uguale"
                     If(C_A = C_B And C_C = C_D And C_B = C_C) Then S = " Cadenza Uguale"
                     If(D_A = D_B And D_C = D_D And D_B = D_C) Then S = " Decina Uguale"
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P5 = 1 To 5
                        E1 = Estratto(Es,R1,P5)
                        If E1 = A Or E1 = B 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 P6 = 1 To 5
                        E2 = Estratto(Es,R2,P6)
                        If E2 = C Or E2 = D Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi Space(39) & S,1,,,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   '  ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

 

[EVERITA C]

Ciao ragazzi, facciamo quest'altro esempio. Poi passerò a farvi vedere come ricavare la prima estrazione conoscendo solo la seconda e viceversa, conoscendo la prima ricaveremo la seconda.

E tutte le altri varianti svelando così i segreti di pulcinella sciogliendoli come ghiaccio al sole....

Estrazione del 08 - 02 - 2011, Ruota Nazionale : 62 - 19 - 46 - 59 - 83

Estrazione del 10 - 02 - 2011, Ruota Nazionale : 10 - 74 - 29 - 39 - 72

La somma della prima estrazione fuori 90 è : 89

La somma della seconda estrazione fuori 90 è : 44

Come si può notare, se la prima equazione fosse 90 la terza dovrebbe essere Somma2+A=90, ma 44 + 62 = 16

Invece il terzo estratto della prima estrazione è proprio il 46 che ci manca : Somma2=44 + 46 = 90.

Allora vediamo cosa succede invertendo il primo ed il terzo estratto della prima estrazione.

Nazionale : 46 - 19 - 62 - 59 - 83

Nazionale : 10 - 74 - 29 - 39 - 72

Se la prima equazione fosse soddisfatta, ora la terza automaticamente sarebbe : Somma2+A= 44+46 = 90, OK!

Quadriamo!

27 47 03 66 73 26
-------------------------------------------------
46 19 62 59 83 10 74

19 62 59 83 10 74 29

62 59 83 10 74 29 39

59 83 10 74 29 39 72

83 10 74 29 39 72 X
-------------------------------------------------
89 53 18 75 55 44
36 35 33 20 11


Somma delle differenze superiori = 27+47+03+66+73+26=62

Somma delle differenze inferiori = 36+35+33+20+11=45

Somma delle differenze = 17

Somma delle somme = 64

Prima Equazione = 64+17=81, a 90 mancano 9 unità...

Cosa facciamo allora? Semplice! Variamo sempre i valori del 4° e del 5° della seconda estrazione, ma stavolta lasciamo inalterata la somma della seconda estrazione.

Come? Guardate!

39 + 09 = 48 Nuovo Quarto Estratto

72 - 09 = 63 Nuovo Quinto Estratto

Somma della seconda estrazione = 44.

Somma2+A= 44+46 = 90 ....OK!

Quadrando...

27 47 03 66 73 26
-------------------------------------------------
46 19 62 59 83 10 74

19 62 59 83 10 74 29

62 59 83 10 74 29 48

59 83 10 74 29 48 63

83 10 74 29 48 63 X
-------------------------------------------------
89 53 18 75 64 44
36 35 33 11 20


Somma delle differenze superiori = 27+47+03+66+73+26=62

Somma delle differenze inferiori = 36+35+33+11+20=45

Somma delle differenze = 17

Somma delle somme = 89+53+18+75+64+44= 73

Prima Equazione = 73+17=90 PERFETTO!

Potete verificare che le tre equazioni sono entrambe a 90!!!!

Il primo futuro pronosticato è : 17 + 10 = 27

Il quinto futuro pronosticato è : 90-(64+44) = 72

Allora ambate ed ambo secco : 27 - 72.

Solo che come a volte capita, ed è capitato anche stavolta, che il 1° o il 5° pronosticato coincide con uno degli estratti di partenza.

Il 27 invece ha solo un ritardo di 7 estrazioni...

Seguendo il consiglio del mio amico giannifox io giocherei con MOLTA MODERAZIONE questa quartina : 27 - 72 - 48 - 63

L'esempio l'ho riportato per fare vedere la differenza di interpretazione con il mio esempio precedente.

In quell'esempio si modificavano il quarto ed il quinto estratto compresa la somma della seconda estrazione, qui invece di lascia inalterata la somma della seconda estrazione

e si modificano solo i valori del quarto e del quinto estratto. Ma si cambia la posizione del primo estratto della prima estrazione.

La soluzione migliore sarebbe quello di trovare il primo estratto bello e buono come complemento a 90!

Questa era la variante che il Longo preferiva, e che usava per fare le previsioni di ambi secchi a tutte, che raramente ai tempi dell'estrazione singola settimanale fallivano...

Per questo l'ambo 27 - 72 lo giocherò su Tutte, in ricordo del mio MAESTRO ED AMICO ANTONIO LONGO.

E come mi diceva al telefono Osvaldo Manara...e staremo a vedere!!!

Vi ringrazio per i complimenti...Buona fortuna a TUTTI...

 

[EVERITA C]

Ciao Salvo ecco un'altro metodo da far scriptare.

Spero sia fattibile.

Grazie.

 

[filippo1963]

Ciao a Tutti

Matematico
Grazie

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Salvo50
   Dim R1,R2,A,B,C,D,E1,E2,S
   Dim Caso,Casi,P1,P2,P3,P4,P5,P6
   Dim F_A,F_B,F_C,F_D,C_A,C_B,C_C,C_D
   Dim D_A,D_B,D_C,D_D
   FIn = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
   '  Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi " Ruote Consecutive Estratti No Numeretti, No Cadenza 0 - proposto da Filippo1963 - Script Salvo50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 9
         For P1 = 1 To 4
            P2 = P1 + 1
            A = Estratto(Es,R1,P1)
            B = Estratto(Es,R1,P2)
            If A > 9 And Cadenza(A) <> 0 And B > 9 And Cadenza(B) <> 0 Then
               R2 = R1 + 1
               C = Estratto(Es,R2,P1)
               D = Estratto(Es,R2,P2)
               If C > 9 And Cadenza(C) <> 0 And D > 9 And Cadenza(D) <> 0 Then
                  F_A = Figura(A) : F_B = Figura(B) : F_C = Figura(C) : F_D = Figura(D)
                  C_A = Cadenza(A) : C_B = Cadenza(B) : C_C = Cadenza(C) : C_D = Cadenza(D)
                  D_A = Decina(A) : D_B = Decina(B) : D_C = Decina(C) : D_D = Decina(D)
                  If(F_A = F_B And F_C = F_D And F_B = F_C)_
                     Or(C_A = C_B And C_C = C_D And C_B = C_C)_
                     Or(D_A = D_B And D_C = D_D And D_B = D_C) Then
                     If(F_A = F_B And F_C = F_D And F_B = F_C) Then S = " Figura Uguale"
                     If(C_A = C_B And C_C = C_D And C_B = C_C) Then S = " Cadenza Uguale"
                     If(D_A = D_B And D_C = D_D And D_B = D_C) Then S = " Decina Uguale"
                     Caso = Caso + 1
                     Casi = Casi + 1
                     Scrivi String(100,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
                     Scrivi String(90,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
                     Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1,0
                     Scrivi "  " & SiglaRuota(R1) & "  ",1,0
                     For P5 = 1 To 5
                        E1 = Estratto(Es,R1,P5)
                        If E1 = A Or E1 = B 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 P6 = 1 To 5
                        E2 = Estratto(Es,R2,P6)
                        If E2 = C Or E2 = D Then
                           ColoreTesto 2
                        Else
                           ColoreTesto 0
                        End If
                        Scrivi Format2(E2) & " ",1,0
                        ColoreTesto 0
                     Next
                     Scrivi
                     Scrivi Space(39) & S,1,,,1
                  End If
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   '  ScriviResoconto
   Scrivi " Tempo Trascorso   " & TempoTrascorso
End Sub

Ho provato lo script è dal 2022 mi ha data un po di casi trovati, ho elaborato un metodo per Estratto du Due Ruote sommo tutti i numeri trovati e li divido per 4, se ottengo un numero decimale tolgo la parte decimale da numero intero se il numero intero supera 45 altrimenti faccio somma tra parte intera e parte decimale ed ottengo un estratto che in tutti i casi riscontrati ha dato esito positivo entro 9 colpi di gioco

 

[salvo50]

Ciao a Tutti

Matematico
Grazie

Per Filippo

E se il numero dopo la divisione per 4 è inferiore a 45 è non ha decimali che si fa?

Per Everita

Si può fare, però devo capire a quale Byron ti riferisci, perchè ognuno sto Byron se lo modifica a piacere suo, sicuramente la parte finale per come ricava l'ambo da giocare è uguale all'ultimo Byron che ho postato nel post 884, ma la parte iniziale non corrisponde perché in questo si deve avere la somma delle differenze e in quello del post 884 non c'era, quindi lo devo fare con calma altrimenti non ci capisco niente.