Novità

Script su Metodi Cabalistici, Ciclometrici & C.

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.
 
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
 
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
Clicca per espandere...
Grazie Salvo50, lo testo Subito
 
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
 
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
 
Buonasera Salvo questi due script li hai fatti tu e' possibile modificarli con le somme in ordine cronologico?

Grazie infinite.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 29 novembre 2025
    Bari
    72
    81
    38
    87
    02
    Cagliari
    30
    26
    42
    46
    27
    Firenze
    51
    25
    29
    48
    58
    Genova
    71
    28
    26
    10
    07
    Milano
    52
    21
    20
    51
    77
    Napoli
    36
    23
    42
    34
    02
    Palermo
    90
    80
    87
    30
    43
    Roma
    78
    40
    75
    20
    44
    Torino
    12
    61
    04
    21
    25
    Venezia
    62
    22
    49
    46
    72
    Nazionale
    45
    23
    58
    10
    62
    Estrazione Simbolotto
    Torino
    04
    09
    03
    21
    15
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto