Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963 · 23 Ottobre 2025

Buonasera a Tutti gli Utenti del Forum, in modo particolare agli Scripter che ci aiutano a trasformare le nostre idee di metodi lotto in esempi pratici per testarli. Per questo a chi può farlo mi serve uno script che partendo dagli estratti della Ruota Nazionale, mi ricambi un estratto determinato su un altra delle rimanenti dieci ruote, Spiego in poche parole cosa dovrebbe fare lo script A) Sommare i 5 estratti della nazionale. B) ridurre in figura i 5 estratti della nazionale , unire le cinque figure formando un numero a 5 cifre. C) Sottrarre da questo numero a cinque cifre il numero ottenuto dalla somma dei 5 estratti dalla nazionale, ridurre il numero ottenuto da questa sottrazione con il Fuori90, chiamiamo per convenzione il numero ottenuto il ricercato. D) cercare il Numero ricercato sulle altre 10 ruote partendo al 1° estratto di bari fino al 5° estratto di Venezia a partire dall'estrazione di calcolo per un massimo di altre quattro estrazioni successive. E) Se il numero ricercato viene trovato nei 50 estratti come prima occorrenza segnarsi posizione e ruota dove è stato trovato . verificare il suo isotopo sulla ruota nazionale. F) Se il Numero ricercato è minore del suo isotopo sulla nazionale i due numeri vanno sommati con eventuale fuori90, Se il Numero Ricercato è maggiore del suo isotopo sulla nazionale va calcolata la differenza aritmetica tra i due Numeri, al numero ottenuto con la somma/differenza va aggiunto un numero da 1 a 50 che si calcola in base su quale ruota ed in che posizione è stato trovato il numero ricercato il numero ottenuto è il futuro estratto sulla ruota dove si è trovato il numero ricercato, le posizioni di gioco come estratto determinato sono due è vengono calcolate nel seguente modo. Se il numero ricercato è uscito in 1à estratto determinato va giocato in 2à e 3à , numero ricercato in 2à determinato da giocare in 3à e 4à, numero ricercato in 3à determinato da giocare in 4à e 5a, numero ricercato in 4à determinato da giocare in 3à e 5à, numero ricercato in 5à determinato da giocare in 3à e 4à. Faccio un esempio reale Estrazione del 02-09-2025 Ruota nazionale i cinque estratti sono [49-14-32-19-7] che sommati sono 121, i cinque estratti ridotti in figura formano il numero a cinque cifre 45517 sottraendo da questo numero 121 otteniamo[45517-121=45396] con il fuori90 otteniamo 36 il numero Ricercato, nella stessa estrazione il 36 è uscito in 1à posizione nella prima delle dieci ruote (Bari) in isotopia al 36 sulla nazionale abbiamo il 49 , 36 minore di 49 si fa la somma 36+49=85 a questo numero va aggiunto 1 [36 numero ricercato uscito in 1à posizione sulla 1à ruota] Estratto 85+1=86 da giocare come determinato su Bari in 2à e 3à posizione. il 19-09-2025 su Bari esce 86 in 4à posizione.

salvo50 · 25 Ottobre 2025

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Pronostica anche le ambate semplici oltre alle ambate determinate

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Posta(1),Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Posta(1) = 1
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10750)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         ImpostaGiocata 1,Amba,Ruo,Posta,Clp

        
         If P2 = 1 Then ImpostaGiocata 2,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 2,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 2,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 2,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 2,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

filippo1963 · 25 Ottobre 2025

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Grazie Salvo50, lo testo Subito

fillott0 · 25 Ottobre 2025

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Dispari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If dispari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Option Explicit
Sub Main
Dim X,Y,Z,K,Y2,Z3,Som
Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Pari sommare il primo numero ",1,,4,,3,,1
Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
For X = 1 To 90
Messaggio X
For Y = 1 To 90
For Z = 1 To 90
If X <> Y And X <> Z And Y <> Z Then
Y2 = 0 : Z3 = 0
Y2 = Fuori90(Y * 2)
Z3 = Fuori90(Z * 3)
Som = Fuori90(X + Y2 + Z3)
If pari(Som) Then
K = K + 1
Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
End If
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
Scrivi
Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

EVERITA C · 1 Dicembre 2025

Buonasera Salvo questi due script li hai fatti tu e' possibile modificarli con le somme in ordine cronologico?

Grazie infinite.

salvo50 · 9 Dicembre 2025

Ciao a Tutti
Ciao everita
Non riesco a capire cosa intendi per ordine cronologico
Fai un esempio

capthegamer · 10 Dicembre 2025

Buongiorno Salvo dalla somma 1 ala somma 90 in ordine cronologico:

Somma 1 , somma 2 , somma 3 ....... e via discorrendo.

Oppure separando la somma pari da quella dispari.

Con lo stesso ordine cronologico.

capthegamer · 10 Dicembre 2025

Sto rispondendo con un'altro account.

Ho avuto problemi con il PC e lentamente sto riprendendo.

LoneWolf · 10 Dicembre 2025

salvo50 ha scritto:

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony
Grazie

Codice:

Option Explicit
Sub Main()
   Dim Es1,Es2,Ini,Fin,R1,R2,P1,P2
   Dim B,C,Casi,Caso,Salvo50,Clp,X,Z,Ok
   Dim Som_A,Gi_A5,Sp,xSp,xNum,Num
   Dim A(5),Fi_A(5),Amba(1),Ruo(1)
   Dim Post1(8),Post2(9),Post3(10),Post4(10),Post5(9)
   Post1(7) = 1
   Post1(8) = 1
   Post2(8) = 1
   Post2(9) = 1
   Post3(9) = 1
   Post3(10) = 1
   Post4(8) = 1
   Post4(10) = 1
   Post5(8) = 1
   Post5(9) = 1
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10704)
   Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(10) & " Metodo Numero Ricercato di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
   R1 = NZ_
   For Es1 = Ini To Fin
      AvanzamentoElab Ini,Fin,Es1
      Caso = 0
      Som_A = SommaEstratti(Es1,R1)
      For P1 = 1 To 5
         A(P1) = Estratto(Es1,R1,P1)
         Fi_A(P1) = Figura(A(P1))
      Next
      Gi_A5 = Fi_A(1) & Fi_A(2) & Fi_A(3) & Fi_A(4) & Fi_A(5)
      xSp = Gi_A5 - Som_A : Sp = Fuori90(xSp)
      '
      For Es2 = Es1 To Es1 + 4
         For R2 = 1 To 10
            For P2 = 1 To 5
               B = Estratto(Es2,R2,P2)
               Call Ricercato(R2,Z,P2)
               If B = Sp Then Exit For
            Next
            If B = Sp Then Exit For
         Next
         If B = Sp Then Exit For
      Next
      Ok = 0
      If B = Sp Then
         C = Estratto(Es2,R1,P2)
         If B < C Then xNum = Fuori90(B + C) : Ok = 1
         If B > C Then xNum = B - C : Ok = 2
         Num = Fuori90(xNum + Z)
         Amba(1) = Num
         Caso = Caso + 1
         Casi = Casi + 1
         Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi String(80,"o") & " Estrazione " &(Es1) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
         Scrivi(" Estrazione n." & Format2(Es1) & " del " & DataEstrazione(Es1)),1,0
         Scrivi "  " & SiglaRuota(R1) & "  " & StringaEstratti(Es1,R1),1,0
         Scrivi Space(3) & "Figure " & Gi_A5,1,0,,2
         Scrivi Space(3) & "Somma Estratti = " & Som_A,1,,,1
         Scrivi
         Scrivi Space(57) & Gi_A5 & " - " & FormattaStringa(Som_A,"000") & " = " & xSp & " Fuori90 = " & Sp,1
         Scrivi
         ReDim MatriceCaselleDaEvid(2,1)
         MatriceCaselleDaEvid(1,0) = R2
         MatriceCaselleDaEvid(1,1) = P2
         MatriceCaselleDaEvid(2,0) = R1
         MatriceCaselleDaEvid(2,1) = P2
         Call DisegnaEstrazione(Es2,MatriceCaselleDaEvid)
         '   Scrivi
         If Ok = 1 Then Scrivi Space(57) & Format2(B) & " + " & Format2(C) & " = " & Format2(xNum),1
         If Ok = 2 Then Scrivi Space(57) & Format2(B) & " - " & Format2(C) & " = " & Format2(xNum),1
         Scrivi Space(57) & Format2(xNum) & " + " & Format2(Z) & " = " & Format2(Num) & " Ambata",1
         Scrivi
         Ruo(1) = R2
         If P2 = 1 Then ImpostaGiocata 1,Amba,Ruo,Post1,Clp
         If P2 = 2 Then ImpostaGiocata 1,Amba,Ruo,Post2,Clp
         If P2 = 3 Then ImpostaGiocata 1,Amba,Ruo,Post3,Clp
         If P2 = 4 Then ImpostaGiocata 1,Amba,Ruo,Post4,Clp
         If P2 = 5 Then ImpostaGiocata 1,Amba,Ruo,Post5,Clp
         Gioca Es2
      End If
      '      Next
      '  Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Function Ricercato(R2,Z,P2)
   If R2 = BA_ Then Z = P2
   If R2 = CA_ Then Z = P2 + 5
   If R2 = FI_ Then Z = P2 + 10
   If R2 = GE_ Then Z = P2 + 15
   If R2 = MI_ Then Z = P2 + 20
   If R2 = NA_ Then Z = P2 + 25
   If R2 = PA_ Then Z = P2 + 30
   If R2 = RO_ Then Z = P2 + 35
   If R2 = TO_ Then Z = P2 + 40
   If R2 = VE_ Then Z = P2 + 45
End Function

Ringrazio Salvo per lo script; Potevo chiedere guardando questo OutPut: Ma gli estratti Determinati non vengono Conteggiati ?
In corso per altre 14 estrazioni
+----------------------------------------+
| Prima Giocata : 10746 |
| Ultima Giocata : 10765 |
| Range : 20 |
| Casi giocab perc. : 60% |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| RESOCONTO | | DISTRIBUZIONE ESITI | | DISTRIBUZIONE ESITI PERCENTUALI | | DISTRIBUZIONE CASI |
+----------------------------------------+ +----------------------------------+ +----------------------------------+ +----------------------------------+
| Casi esaminati : 12 | | RT | Est | Amb | Ter | Qua | Cin | | RT | Est | Amb | Ter | Qua | Cin | | RT | Q | |
| Casi vincenti : 6 | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Percentuale pos. : 50 % | | BA | | | | | | | BA | | | | | | | BA | 3| |
| Pronostici totali : 20 | | CA | | | | | | | CA | | | | | | | CA | 2| |
| Pronostici vinc. : 9 | | FI | | | | | | | FI | | | | | | | FI | 6| |
| Percentuale pos. : 45 % | | GE | | | | | | | GE | | | | | | | GE | 2| |
| Giocate in corso : 13 | | MI | | | | | | | MI | | | | | | | MI | 2| |
| Giocate terminate : 7 | | NA | | | | | | | NA | | | | | | | NA | 1| |
| Bollette giocate : 191 | | PA | | | | | | | PA | | | | | | | PA | 1| |
| Bollette vincenti : 10 | | RO | | | | | | | RO | | | | | | | RO | 2| |
| Attesa media : 6 | | TO | | | | | | | TO | | | | | | | TO | 1| |
| Spesa : 382,00 € | | VE | | | | | | | VE | | | | | | | VE | | |
| Vincita : 517,00 € | | NZ | | | | | | | NZ | | | | | | | NZ | | |
| Guadagno : 135,00 € | | TT | | | | | | | TT | | | | | | | TT | | |
| Perc. Rendimento : 35,34 % | +----------------------------------+ +----------------------------------+ +----------------------------------+
| Mass. Esposizione : 66,00 € |
| Estratto su ruota : 10 |
| |
+----------------------------------------+

... nella colonna estratti singoli potrebbero essere aggiunti con la Posta anche per Estratto Semplice ;
aggiungendo:
Post1(1) = 1
Post2(1) = 1
Post3(1) = 1
Post4(1) = 1
Post5(1) = 1
,,, Cordiali Saluti

Grazie

salvo50 · 10 Dicembre 2025

salvo50 · 10 Dicembre 2025

Ciao a Tutti
Ciao Everita

Non riesco a capire questo ordine cronologico
magari se fai degli esempi con numeri, riesco
a capire la tua richiesta

Ciao LoneWolf

Gli estratti semplici non li ho messi, perché l'autore del metodo
Filippo 1963 non li ha chiesti

capthegamer · 10 Dicembre 2025

000001 01 02 04 01 + 04 + 12 = 17
000002 01 02 06 01 + 04 + 18 = 23
000003 01 02 08 01 + 04 + 24 = 29
000004 01 02 10 01 + 04 + 30 = 35
000005 01 02 12 01 + 04 + 36 = 41
000006 01 02 14 01 + 04 + 42 = 47
000007 01 02 16 01 + 04 + 48 = 53
000008 01 02 18 01 + 04 + 54 = 59
000009 01 02 20 01 + 04 + 60 = 65
000010 01 02 22 01 + 04 + 66 = 71
000011 01 02 24 01 + 04 + 72 = 77
000012 01 02 26 01 + 04 + 78 = 83
000013 01 02 28 01 + 04 + 84 = 89
000014 01 02 30 01 + 04 + 90 = 05
000015 01 02 32 01 + 04 + 06 = 11
000016 01 02 34 01 + 04 + 12 = 17
000017 01 02 36 01 + 04 + 18 = 23
000018 01 02 38 01 + 04 + 24 = 29
000019 01 02 40 01 + 04 + 30 = 35
000020 01 02 42 01 + 04 + 36 = 41
000021 01 02 44 01 + 04 + 42 = 47
000022 01 02 46 01 + 04 + 48 = 53
000023 01 02 48 01 + 04 + 54 = 59
000024 01 02 50 01 + 04 + 60 = 65
000025 01 02 52 01 + 04 + 66 = 71
000026 01 02 54 01 + 04 + 72 = 77
000027 01 02 56 01 + 04 + 78 = 83
000028 01 02 58 01 + 04 + 84 = 89
000029 01 02 60 01 + 04 + 90 = 05
000030 01 02 62 01 + 04 + 06 = 11
000031 01 02 64 01 + 04 + 12 = 17
000032 01 02 66 01 + 04 + 18 = 23
000033 01 02 68 01 + 04 + 24 = 29
000034 01 02 70 01 + 04 + 30 = 35
000035 01 02 72 01 + 04 + 36 = 41
000036 01 02 74 01 + 04 + 42 = 47
000037 01 02 76 01 + 04 + 48 = 53
000038 01 02 78 01 + 04 + 54 = 59
000039 01 02 80 01 + 04 + 60 = 65
000040 01 02 82 01 + 04 + 66 = 71
000041 01 02 84 01 + 04 + 72 = 77
000042 01 02 86 01 + 04 + 78 = 83
000043 01 02 88 01 + 04 + 84 = 89
000044 01 02 90 01 + 04 + 90 = 05

capthegamer · 10 Dicembre 2025

Ciao Salvo questa e' solo una parte per far capire cosa intendo:

Sulla destra trovi dei numeri dispari alla rinfusa ( sono somme ).

Se fosse possibile riordinare le somme pari e dispari in ordine cronologico da somma 1 a somma 89 per i dispari e da somma 2 a somma 90 per le pari.

salvo50 · 10 Dicembre 2025

capthegamer ha scritto:
Ciao Salvo questa e' solo una parte per far capire cosa intendo:

Sulla destra trovi dei numeri dispari alla rinfusa ( sono somme ).

Se fosse possibile riordinare le somme pari e dispari in ordine cronologico da somma 1 a somma 89 per i dispari e da somma 2 a somma 90 per le pari.

Ok ho capito, ma non mi sembra un ordine cronologico, ma un ordine sequenziale

salvo50 · 11 Dicembre 2025

Ciao a Tutti
Ciao Everita

Dato che visualizzo una somma per volta i due script li ho accorpatii in uno
Se non ricordo male avevo separato lo script in pari e dispari perché il mio
computer si impallava.
Allora questo script ti visualizza una sola somma, che decidi tu tramite un InputBox

Codice:

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som,Somma
   Somma = CInt(InputBox("Inserisci il Numero  Della Somma Che Vuoi Visualizzare",,1))
 If Somma < 91 Then
      Scrivi Space(3) & " Chiesto da EVERITAC - Somme Terne - Sommare il primo numero ",1,,4,,3,,1
      Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
      For X = 1 To 90
         Messaggio X
         For Y = 1 To 90
            For Z = 1 To 90
               If X <> Y And X <> Z And Y <> Z Then
                  Y2 = 0 : Z3 = 0
                  Y2 = Fuori90(Y * 2)
                  Z3 = Fuori90(Z * 3)
                  Som = Fuori90(X + Y2 + Z3)
                  If Som = Somma Then
                     K = K + 1
                     Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                     Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
 End If
   If Somma > 90 Then Scrivi " Hai Inserito un Numero di Somma Non Valido",1,,4,,3,,1
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

salvo50 · 12 Dicembre 2025

Ciao a Tutti
Bubù, Cicalotto, ScarfaceTony, LoneWolf
Grazie

Somma di tutte le terne dispari da 1 a 89 - in sequenza ascendente

Codice:

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som,Somma
   ' Somma = CInt(InputBox("Inserisci il Numero Dispari Della Somma Che Vuoi Visualizzare",,1))
   For Somma = 1 To 89 Step + 2
      AvanzamentoElab 1,90,Somma
      Messaggio Somma
      Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Dispari sommare il primo numero ",1,,4,,3,,1
      Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
      For X = 1 To 90
         Messaggio X
         For Y = 1 To 90
            For Z = 1 To 90
               If X <> Y And X <> Z And Y <> Z Then
                  Y2 = 0 : Z3 = 0
                  Y2 = Fuori90(Y * 2)
                  Z3 = Fuori90(Z * 3)
                  Som = Fuori90(X + Y2 + Z3)
                  If dispari(Som) And Som = Somma Then
                     K = K + 1
                     Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                     Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
      'End If
   Next
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

Somma di tutte le terne pari da 2 a 90 - in sequenza ascendente

Codice:

Option Explicit
Sub Main
   Dim X,Y,Z,K,Y2,Z3,Som,Somma
   For Somma = 2 To 90 Step + 2
      AvanzamentoElab 1,90,Somma
      Messaggio Somma
      Scrivi Space(1) & " Chiesto da EVERITAC - Somme Terne Pari sommare il primo numero ",1,,4,,3,,1
      Scrivi Space(1) & " con il doppio del secondo PIù il triplo del terzo - Script Salvo50 ",1,,4,,3,,1
      For X = 1 To 90
         Messaggio X
         For Y = 1 To 90
            For Z = 1 To 90
               If X <> Y And X <> Z And Y <> Z Then
                  Y2 = 0 : Z3 = 0
                  Y2 = Fuori90(Y * 2)
                  Z3 = Fuori90(Z * 3)
                  Som = Fuori90(X + Y2 + Z3)
                  If pari(Som) And Som = Somma Then
                     K = K + 1
                     Scrivi FormattaStringa(K,"000000") & Space(4) & Format2(X) & " " & Format2(Y) & " " & Format2(Z),1,0
                     Scrivi Space(4) & Format2(X) & " + " & Format2(Y2) & " + " & Format2(Z3) & " = " & Format2(Som),1
                  End If
               End If
            Next
         Next
         If ScriptInterrotto Then Exit Sub
      Next
   Next
   Scrivi
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

L'ho fatto anche da 1 a 90 sia pari che dispari ma mi si è bloccato il computer

capthegamer · 12 Dicembre 2025

Ciao Salvo ottimo lavoro grazie infinite.

salvo50 · 5 Gennaio 2026

Ciao a Tutti

Bubù, Cicalotto, EveritaC, LoneWolf
Grazie

Riepilogo script postati in ordine di inserimento
_______________________2017_________________________
01) Il Quadrato Numerico di Urazio - Post 1
02) Due Somme 45 Per Un Quadrato Perfetto di Pasquale Robbe - Post 7
03) L'ambo Costante di Fedele Davenal - post 11
04) Il Quadrato Diametrale di Paolo Carta (incompleto) da Post 15 a 18
_______________________2018_________________________
05) Metodo Byron di Lord Byron - Post 20
06) Metodo Aurum di Roberto Pascale su appunti di Fabarri - Post 21
07) Quattro Terzine Per Ambo di Domenico Manna - Post 28
08) Il Trio Vincente (Prima Versione) di Antonio Di Paolo - Post 29
09) Metodo Diametrale a cura di Luciana Giorgetti - Post 31
10) Vincere a Colpo a cura di Vasapollo Cosma - Post 32
11) Vincite Misteriose a cura di Alfio Tirenni - Post 33
12) Metodo a Grande Richiesta - Post 78
13) Il Quadrato Mirabile a cura di Carmine Tedesco - Post 93
14) Un Ambo da Premio Oscar di Elisabetta Masi e Fabio Felici - Post 118
15) Il Tesoro Nascosto di Domenico Manna (con modifica di Salvo50) - Post 139-140
16) Byron: Il Calcolo Complementare di Paolo Carta (mod) - Post 145-146
17) Quattro Lati Per Una Quaterna a cura di Gaetano Toti - Post 151
18) Fra Cabala e Ciclometria a cura di Giacomo Scionti - Post 152
19) L'Ambata Ciclometrica a di cura di Luciana Giorgetti - Post 153
_______________________2019_________________________
20) Doppia Ambata Su Una Ruota a cura di Benito Buzzon - Post 154
21) La Distanza 7 di Angelo Gargiulo - Post 156
22) Evoluzione Ben II a cura di Michele Pace - Post 158
23) Il Quadrato D'oro - a cura di Petrazzoli Antonio - Post 159
24) Le Restrizioni di Ogni Figura di Padre Venanzio (2 Metodi) - Post 167
25) Gli Ambi Secchi Mensili di Padre Venanzio - Post 169
26) Metodo Delle 6 Piramidi di Padre Venanzio - Post 170
27) Metodo di Cavaillac (2 Metodi) - Post 172
28) Metodo Scorpio di Michele Criscuolo - Post 174
29) Il Quaterno Perpetuo di Fedele Davenal(3 Metodi) - Post 175-184
30) La Piramide di Cheope di Michele Criscuolo - Post 190
31) L'ambo Assoluto - a cura di Angelo Gargiulo - Post 191
32) Come Si Ricavano 2 Numeri Ogni Mese di Giovanni Milton - Post 193
33) Matematica e Ciclometria a cura di Luciana Giorgetti - Post 194
34) Una Metodologia Molto Efficace - a cura di Salerno Donato - Post 195
35) L'ambo Costante - a cura di Alfio Tirenni - Post 196
36) Ambi Quadrati di Giacomo Scionti - Post 197
37) Memorie Utili di Fedele Davenal a cura di C.Tedesco - Post 198
38) AMBATA - La Certezza Dell'Esito a cura di Vasapollo Cosma - Post 217
39) Ambo, Terno o Quaterna a cura di Alfio Tirenni - Post 218
40) Cromodinamica Quantistica di Giacomo Scionti - Post 219
_______________________2020_________________________
41) Il Quadrato Diametrale a cura di Luciana Giorgetti - Post 221
42) Il Vertibile Magico a cura di M. Archidiacono - Post 231
43) I Quadrati Somma di Posizione a cura di Luciana Giorgetti - Post 238
44) Ciclometria Facile di Giacomo Scionti - Post 239
45) Chiesto da Serpico90 - Metodo di A. Longo - Post 243
46) Ciclometria Applicata Delpas a cura di Roberto Pascale - Post 251
47) Armonia Ciclometrica a cura di Vasapollo Cosma - Post 252
48) Metodo BEN II a cura di Michele Pace - Post 258
49) Modifica al Metodo Byron di Pasqualino C - Post 263-271
50) Ciclodecine e Ciclounità - Post 277
51) Un'Ambata Certa di Patruno - Post 285
52) La Vincita in Tasca a cura di Luciana Giorgetti - Post 298
53) L'ambo Binario di Fabarri - Post 303
54) Il Pentagono Armonico di M. Rosaria Falbo - Post 305
55) La chiave d'oro la fortuna nei secoli - Post 306
56) Il 7 Un Vero Artista... di Maria Rosaria Falbo - Post 307
57) Ciclometria Costante a cura di Luciana Giorgetti - Post 309
58) La Super Chiave 7 e il Terno Secco di Marco Senesi - Post 310
59) Armonia Triplare 1-2-3 di Fedele Davenal - 3 metodi - Post 314
60) I Numeri di Padre Pacifico a cura di Davide Lo Stracco - con Modifica di Matematico - Post 325
61) Il Medio Triplare 15 di Antonio Longo (solo prima parte) - Post 333
62) Il Parallelogramma Simmetrico di Pasquale Robbe - Post 335
63) Ambo Relativo di Giuseppe Pezzella - Post 356
64) Due Ruote e Spia in Posizione di Ramcolotto - Post 368
65) Armonia Stellare a cura di Franco Mongillo - Post 373
66) Forza4 (Gioco Sulla Diagonale) a cura di Giovanni81 - Post 382
67) Il Rettangolo Assoluto di Antonio Fiacco - Post 387
68) Il Quadrato Diametrale di Franco Mongillo - Post 391
69) Ambo Quadruplo e Isotopo di Franco Mongillo - Post 399
70) Come Vincere la Quaterna di Franco Mongillo (script by Enplein) - Post 416
70) Come Vincere la Quaterna di Franco Mongillo - Post 421
71) Metodo Per Ambo Terno Quaterna Cinquina su FI-RO - Metodo e script di MarcoElle - Post 427
72) Ambata Su Firenze-Venezia e 2° e 4° Posizione Alla 1° e 6° Mensile Metodo e script MarcoElle - Post 433
73) Settina Su BA-FI Alla 5° e 11° Mensile - Metodo e List By MarcoElle - Post 435
74) 4 Terni Alla 1° Estrazione Su CA-MI Mensile - Metodo e List By MarcoElle - Post 438
75) Terno Ripetuto di Ciro Vitale - Script Enplein - Post 441
76) L'Ambo Ripetuto di Fabarri - Post 442
_______________________2021_________________________
77) I Voltafaccia di Lord Byron - Post 444
78) Metodo Libra - Post 470
79) La Sequenza Ciclometrica di Angelo Gargiulo - Post 479
80) Regola per rinvenire 2 numeri infallibili di Fedele Davenal - Post 479
81) La Tecnica Trasposizionale di Giorgio Bononcini - Post 489
82) Sommativo-Vertibile di Mister1729 - Post 492
83) Ambo da 250 VLP Oppure Terno da 4500 VLP di Angelo Gargiulo - Post 492
84) La Sequenza Passo 9 di Angelo Gargiulo - Post 495
85) Ambi Massimi Formativi di Fabarri - Post 501
86) Metodo ESAMET di Fabarri - Post 504
87) Il Triangolo Simmetrico di Fabarri - Post 509
88) Il COS di Antonio Longo - Post 518
89) La Diagonale Infallibile di Antonio Longo - Post 523
_______________________2022_________________________
90) La Dinamica Delle Distanze script By GioRyuKen72 - Post 522
91) Teoria e Teorie di EnzoB Script By GioRyuKen72 - Post 549
_______________________2023_________________________
92) Modifica al Metodo Byron chiesto da Matematico - Post da 566 a post 653 e post669
93) Terno Secco metodo di Leon script Toon - Post 632
94) Rivelazioni di Fernando Di Bernardino - Post 663, 672, 689, 692
_______________________2024_________________________
95) Modifica a IL QUATERNO PERPETUO (prima parte) di FEDELE DAVENAL - Post 705 - 714
96) Rivelazioni 3 di Fernando Di Bernardino - Post 719 e 722
_______________________2025_________________________
97) Trasferimento Delle Distanze 18 o 36 di Matteo Palumbo - Post 753
98) Somma Diametrali Isotopi in ruote Consecutive proposto da Filippo1963 - Post 760
99) Metodo Per Scegliere 5 Numeri di Nicola Russo - Post 778
100) Metodo il Trapezio con ambi uniti e isotopi di Domenico Manna - Post 784
101) L'Ambata Perfetta di Pasquale Santilio - Post 789
102) Il Quadrato Maltese di Antonio Longo - Post 792-795
103) Versione di EveritaC sul Quadrato Maltese Post 804
104) La Distanza 21 in 2 estratti - Post 809
105) Piccole Armonie Svelate - Post 836
106) Verso l'infallibilità di Antonio Longo - Post 838
107) Modifica al Metodo Byron di Everita C - 1 - Post 884
108) Ambata Determinata 2 Ruote, 3 Estratti Consecutivi, Oppure dist 10 - Post 901-903-906-957
109) Ruote Diametrali no Numeretti, no Zerati - di Filippo1963 - Post 914
110) Ruote Cons. Estratti No Numeretti, No Cadenza 0 - proposto da Filippo1963 - Post 916
111) Somma Estratti No Zerati, No Cadenza 0 - proposto da Filippo1963 - Post 923
112) Modifica al Metodo Byron di Everita C - 2 - Post 929
113) Due num. in posiz. isotopa, gemelli o Num. Vertibili puri - script by Joe - Post 947
114) Dopo spia 90 Compl. a 90 della somma degli estratti vicini alla Spia - Post 961
115) Lettone 2 - Formula Azzurra, Rossa, Gialla, Rosa, Verde e Arancione - Post 962-963-964
116) Lettone 2 - 5 Formule - - Post 970
117) 2 Ruote e 2 Estratti Isotopi, Somma Estratti Adiacenti di Filippo1963 - Post 973
118) Somma di tutte le terne con 90 numeri - di EveritaC - Post 979-980
119) Ruote Consecutive 2 Distanze con Numero Comune - proposto da Bubù - Post 997
120) Numero Isotopo in Estrazioni precedenti di Filippo1963 - Post 1003
121) Script di Jabolixx postato da Phil79 - script by??????? Post 1011
122) Una Ruota Coppia Diametrali Uniti di Filippo1963 - Post 1012
122) Triple in fig.147-258-369 posiz. 1-3-5 su 3 ruote di Filippo 1963 (3 script) - Post 1020-1021
123) Posizioni isotope su 3 ruote di Filippo1963 - Post 1028
124) Metodo di Leonotto chiesto da Matematico - Post 1031
125) Alla x Estrazione Mensile Somma e Differenza Primi estratti Bari e Napoli - Post 1044
126) L'Ambata Mandoman di Domenico Manna - Post 1048
127) La Tavola Delle Progressioni Armoniche di Domenico Manna - Post 1056
128) Rettangoli e trapezi isoscili di Domenico Manna - Post 1063
128) Rettangoli e Trapezi Isoscili di Domenico Manna - Modifica Settenario - Post 1080
129) Due Ruote Diametrali, Estratti 1a e 2a posizione di Filippo1963 - Post 1074
130) Numero Uguale in 3 Ruote e Isotopo in 2 Ruote - di Filippo1963 - Post 1091
131) Numero Uguale in 3 Ruote postato da Bubù - Autore??? - Post 1106
132) Metodo n130 con modifica di Bubù inserimento sorti superiori - Post 1109
132) Metodo n130 on modifica di Bubù e modifica script da Bubù - Post 1115
133) Metodo Numero Ricercato di Filippo1963 - Post 1122
134) Somma di tutte le terne con 90 numeri in ordine progressivo - di EveritaC - Post 1137-1138

Script su Metodi Cabalistici, Ciclometrici & C.

Member

Advanced Member >PLATINUM PLUS<

Member

Senior Member

Senior Member

Senior Member

Senior Member

Advanced Member >PLATINUM PLUS<

Junior Member

Junior Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Allegati

Advanced Member >PLATINUM PLUS<

Junior Member

Junior Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Junior Member

Advanced Member >PLATINUM PLUS<