Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Script su Metodi Cabalistici, Ciclometrici & C.
- Creatore Discussione salvo50
- Data di inizio
filippo1963
Member
thanks Salvo50
filippo1963
Member
Buon Festa della Repubblica agli utenti del Forum e a chi come gli Scripter ci aiuta a informatizzare i nostri metodi Lotto, chiedo se qualche Scripter mi puo creare il codice per questo Metodo lotto per un Estratto sulla Nazionale. Quando esce un Numeretto su Bari, si devono fare queste operazioni - Sommare con eventuale fuori90 gli estratti isotopi delle ruote di Napoli e Venezia, il numero ricavato dalla somma va moltiplicato per il fisso 77, ridurre il risultato della moltiplicazione con il fuori90 da numero ricavato si ricava un estratto con il suo diametrale in decina che va giocato per un massimo di 14 colpi sulla ruota nazionale. Faccio un Esempio. Estrazione del 06-05-2025 su Bari in 1à posizione abbiamo il numeretto 6 in isotopia su Napoli e Venezia in 1à abbiamo 12 e 71 sommati fanno 83, 83 moltiplicato 77 fa 6391 che ridotto con il fuori90 diventa 1 il Diametrale in Decina di 1 è il 6 che è L'Estratto da Giocare sulla Ruota Nazionale il 65 esce il 13-05-2025 sulla Nazionale in 5à posizione al 4° colpo di Gioco. Grazie in anticipo a chi mi farà lo script per questo metodo.
filippo1963
Member
Serve come Base Capo-Gioco per le Sorti superiori
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Bubù, Filippo1963, Rudival, ScarfaceTony
Grazie
Qualche chiarimento, i numeri da sommare su Napoli e Venezia devono essere solo quelli che sono isotopi con il numeretto di Bari?
Oppure devo sommarli Tutti?
filippo1963
Member
Si Sommano solo i Due Numeri Isotopia al Numeretto su Bari, si considerano valide solo le estrazioni dove su Bari esce un solo Numeretto
salvo50
Advanced Member >PLATINUM PLUS<
Codice:
Option Explicit
Sub Main()
Dim Es,Ini,Fin,R1,R2,R3,R4,P1,P5,P6,P7,E1,E2,E3,E4
Dim A,B,C,Casi,Caso,Salvo50,Clp,X
Dim SomBC,SomBCx,DiDSomBCx
Dim Posta(1),Amba(1),Ruo(1)
Posta(1) = 1
Fin = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10604)
Clp = InputBox("Per quanti colpi vuoi giocare l'ambata?",,14)
Call ScegliRange(Ini,Fin,Ini,Fin)
Scrivi Space(10) & " Posizioni isotope su 3 ruote di Filippo1963 - Script Salvo50" & Space(10),1,,4,,3,,1
R1 = BA_
R2 = NA_
R3 = VE_
R4 = NZ_
Ruo(1) = R4
X = 77
For Es = Ini To Fin
AvanzamentoElab Ini,Fin,Es
Caso = 0
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
If A < 10 Then
B = Estratto(Es,R2,P1)
C = Estratto(Es,R3,P1)
SomBC = Fuori90(B + C)
SomBCx = Fuori90(SomBC * X)
DiDSomBCx = DiametraleD(SomBCx)
Amba(1) = DiDSomBCx
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P5 = 1 To 5
E1 = Estratto(Es,R1,P5)
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 P6 = 1 To 5
E2 = Estratto(Es,R2,P6)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R3) & " ",1,0
For P7 = 1 To 5
E3 = Estratto(Es,R3,P7)
If E3 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(21) & Format2(B) & " + " & Format2(C) & " = " & Format2(SomBC),1
Scrivi Space(21) & Format2(SomBC) & " * " & Format2(X) & " = " & Format2(SomBCx),1
Scrivi Space(13) & Format2(DiDSomBCx) & " = Diametrale in Decina di " & Format2(SomBCx),1
Scrivi
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
Gioca Es,1
End If
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
Ultima modifica:
filippo1963
Member
Thank
s Salvo50
Matematico
Advanced Member >PLATINUM<
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
ScarfaceTony, Bubù, Filippo1963
Grazie
Ciao Matematico
Nell'esempio non è specificato se gli estratti devono essere isotopi, quindi li ho messi anche non isotopi, poi per gli ambi d'abbinamento dice di prendere coppie consecutive, in cadenza, stessa decina, oppure gemelli per me non è semplice fare questi abbinamenti per ambo, quindi non li ho fatti, ho messo l'ambo madre (come lo chiama Leonlotto) e la sestina per ambo e terno.
ScarfaceTony, Bubù, Filippo1963
Grazie
Ciao Matematico
Nell'esempio non è specificato se gli estratti devono essere isotopi, quindi li ho messi anche non isotopi, poi per gli ambi d'abbinamento dice di prendere coppie consecutive, in cadenza, stessa decina, oppure gemelli per me non è semplice fare questi abbinamenti per ambo, quindi non li ho fatti, ho messo l'ambo madre (come lo chiama Leonlotto) e la sestina per ambo e terno.
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P4,P5,P6,E1,E2,Caso,Casi
Dim FiA,FiB,FiC,FiD,S,So1,So2,R3,R4
Dim DeA,DeB,DeC,DeD,CaA,CaB,CaC,CaD
Dim SoDeA_DeC,SoDeB_DeD,SoCaA_CaC,SoCaB_CaD
Dim Ambo(2),Esa(6),Ruo(4),Po2(2),Po5(5)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10650))'estrazione 9527 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,8))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "Metodo di Leonotto chiesto da Matematico - Script Salvo50",1,,4,,3,,1
Po2(2) = 1
Po5(2) = 1
Po5(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
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
FiA = Figura(A) : FiB = Figura(B)
If FiA = FiB Then
For R2 = R1 + 1 To 10
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
FiC = Figura(C) : FiD = Figura(D)
If FiC = FiD And FiC = FiA Then
If A > 0 And C > 0 Then
DeA = Decina(A) : DeB = Decina(B) : CaA = Cadenza(A) : CaB = Cadenza(B)
DeC = Decina(C) : DeD = Decina(D) : CaC = Cadenza(C) : CaD = Cadenza(D)
SoDeA_DeC = FuoriX((DeA + DeC),9) : SoCaA_CaC = FuoriX((CaA + CaC),9)
SoDeB_DeD = FuoriX((DeB + DeD),9) : SoCaB_CaD = FuoriX((CaB + CaD),9)
So1 = SoDeA_DeC & SoCaA_CaC : So2 = SoDeB_DeD & SoCaB_CaD
If So1 <> So2 Then
S = ""
If R2 = RuotaDiametrale(R1) Then S = " Ruote Diametrali "
If R2 = RuotaGemella(R1) Then S = " Ruote Gemelle "
If R2 =(R1 + 1) Then S = " Ruote Consecutive "
R3 = RuotaDiametrale(R1) : R4 = RuotaDiametrale(R2)
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = R3 : Ruo(4) = R4
Ambo(1) = So1 : Ambo(2) = So2
Esa(1) = So1 : Esa(2) = So2 : Esa(3) = A : Esa(4) = B : Esa(5) = C : Esa(6) = D
Esa(4) = B :
'
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi Space(35) & S,1,,,2
Scrivi(" Estrazione n." & Format2(Es) & " 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 " <-- Evidenziati Figura uguale " & Format2(FiA),1
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 " <-- Evidenziati Figura uguale " & Format2(FiC),1
Scrivi
Scrivi Space(42) & Format2(A) & " " & Format2(B),1
Scrivi Space(42) & Format2(C) & " " & Format2(D),1
Scrivi Space(42) & String(5,"-")
Scrivi "Somme Decine e cadenze con il Fuori 9",1,0
Scrivi Space(5) & Format2(So1) & " " & Format2(So2),1
Scrivi
Scrivi
ImpostaGiocata 1,Ambo,Ruo,Po2,Clp
ImpostaGiocata 2,Esa,Ruo,Po5,Clp
Gioca Es,1,,1
End If
End If
End If
Next
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubMatematico
Advanced Member >PLATINUM<
Grazie di cuore salvo50, sempre sul pezzo
Matematico
Advanced Member >PLATINUM<
Non è mica un sommativo , lo hai testato?
Buongiorno
Vorrei se possibile lo script di questo metodo...
Alla prima del mese calcolare la somma e differenza del primo di Bari col primo di Napoli, lo zerato dei numeri iniziali e della somma... come da tabella.
Grazie
Vorrei se possibile lo script di questo metodo...
Alla prima del mese calcolare la somma e differenza del primo di Bari col primo di Napoli, lo zerato dei numeri iniziali e della somma... come da tabella.
Grazie
| BARI | NAPOLI | SOMMA | Zerato Somma | DIFF | Zerato Bari | Zerato Napoli |
| 22 | 63 | 85 | 80 | 41 | 20 | 60 |
Ultima modifica:
al momento non mi sembra proprio come affermi tu, anzi sarà stato un caso, ma alla prima previsione è uscito il TERNO...
Infatti al primo colpo è uscito il TERNO !!!
Allegati
Beh sarà stato un caso....vorrei vedere negli ultimi 5 anni
intanto con 6 7 numeri magari è facile fare terno.... ma il metodo è stato modificato in quanto l'ambo da giocare dovrebbe rispettare alcune condizioni gemelli cadenza ecc....ma lo stesso leone prende addirittura la somma figurale in verticale..... quindi il terno è stato un caso!!!!!!!!!!!! a 6 numeri poi.....
intanto con 6 7 numeri magari è facile fare terno.... ma il metodo è stato modificato in quanto l'ambo da giocare dovrebbe rispettare alcune condizioni gemelli cadenza ecc....ma lo stesso leone prende addirittura la somma figurale in verticale..... quindi il terno è stato un caso!!!!!!!!!!!! a 6 numeri poi.....
Ultima modifica:
Matematico
Advanced Member >PLATINUM<
Ma infatti , mica metto cose inutili hehehe
Tra l'altro c'è stata SEMPRE PER CASO una convergenza di piu' ruote nella stessa estrazione e di conseguenza un doppio e triplo pronostico con sempre la stessa previsione da tentare giocando la lunghetta...
Esito: un TERNO ed un AMBO sempre al primo colpo, "ovviamente" per pura CASUALITA'...
Esito: un TERNO ed un AMBO sempre al primo colpo, "ovviamente" per pura CASUALITA'...
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 07 giugno 2025Bari7601507487Cagliari1376674359Firenze3717714823Genova5458444846Milano4809867744Napoli3825171982Palermo8166787205Roma7027834471Torino7986530389Venezia7818337938Nazionale4963488668Estrazione Simbolotto
Napoli
4308013515
