Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963 · Giovedì alle 22:36

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 · Oggi alle 15:09

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

filippo1963 · Oggi alle 15:28

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 · Oggi alle 16:24

Cerca

Cerca

Script su Metodi Cabalistici, Ciclometrici & C.

filippo1963

Member

salvo50

Advanced Member >PLATINUM PLUS<

filippo1963

Member

fillott0

Senior Member

Ultima estrazione Lotto

Ultimi Messaggi