Grazie.Allora ripasso tra un pò di tempo.Dici che ci vuole un 7-15 giorni circa che me lo segno?
Ti ricordi che mi hai gatto tanti script nel 2019 circa?
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
Grazie.Allora ripasso tra un pò di tempo.Dici che ci vuole un 7-15 giorni circa che me lo segno?
Ti ricordi che mi hai gatto tanti script nel 2019 circa?
IL QUADTATO MALTESE ( DI A. LONGO)
SI AGISCE IN TRE ESTRAZIONI CONSECUTIVE SU UNA SOLA RUOTA .
ESEMPIO : IN DATA 2/1/2008 SULLA RUOTA DI BARI SI PRENDE IL 5° ESTR. CHE è 49.
IL 3/1/2008 SI PRENDE IL 1° E 5° ESTR. DI BARI 64, E 30,
IL 5/1/2008, SI PRENDE IL 1° ESTR. DI BARI 86
SI METONO IN ORDINE COME LI ABBIAMO PRESI , E ANDIAMO AD OPERARE X RICAVARE IL PRONOSTICO :
OPEREREMO SEMPRRE IN QUESTO MODO OGNI PREVISIONE:
49-64-30-86
49- 30 (3°) = 19 DIFFERENZA
49-86 (5°) = 37 DIFF.
49-19= 30 DIFF.
49x 19 = 931: 37 =25.162162 = 25 ( prenderemo sempre l cifre prima del punto, che siano 1 o 2 ,
se sono 3 faremo il fuori 90)
25-30=5 diff.
49-5=44 diff.
49x30= 1470 : 44= 33.40909 = 33 ( prenderemo sempre le cifre prima del punto che sia 1 o 2 cifre , se sono 3 cifre faremo il fuori 90.)
33+19 = 52
33-19 =14
52- 52- 52- 14+ 14+ 14+
49= 64 = 30 = 49 = 64 = 30 =
____ ______ ______ _______ ______ ______
3 12 22 35 50 16
3+12+22= 37
35+50+16= 101 (che senza fuori 90 va sottratto il 37)
101-37= 64
Il 64 lo moltiplichiamo x il fisso 7 (64x7) =448 -90 =88
88+19 = 17
17+64 = *81*
L *81* SARA L AMBATA PRINCIPALE OVE VERRA ABBINATO IL N° 86
Ambo secco *81-86*
Adesso bisogna rilevare nell ultima estrazione di calcolo(5/1/2008) la presenza su un'altra ruota o piu’, uno dei due numeri (81, 86) + quella di calcolo va giocato il pronostico *81-86* x recupero a tutte infatti giiocheremo solo la previsione sulla ruota di calcolo poiche nessuno dei due numeri era presente su altre ruote.
Esito ambata *81* a colpo su bari.
Il tutto x 6/7 colpi
SI AGISCE IN TRE ESTRAZIONI CONSECUTIVE SU UNA SOLA RUOTA .
ESEMPIO : IN DATA 2/1/2008 SULLA RUOTA DI BARI SI PRENDE IL 5° ESTR. CHE è 49.
IL 3/1/2008 SI PRENDE IL 1° E 5° ESTR. DI BARI 64, E 30,
IL 5/1/2008, SI PRENDE IL 1° ESTR. DI BARI 86
SI METONO IN ORDINE COME LI ABBIAMO PRESI , E ANDIAMO AD OPERARE X RICAVARE IL PRONOSTICO :
OPEREREMO SEMPRRE IN QUESTO MODO OGNI PREVISIONE:
49-64-30-86
49- 30 (3°) = 19 DIFFERENZA
49-86 (5°) = 37 DIFF.
49-19= 30 DIFF.
49x 19 = 931: 37 =25.162162 = 25 ( prenderemo sempre l cifre prima del punto, che siano 1 o 2 ,
se sono 3 faremo il fuori 90)
25-30=5 diff.
49-5=44 diff.
49x30= 1470 : 44= 33.40909 = 33 ( prenderemo sempre le cifre prima del punto che sia 1 o 2 cifre , se sono 3 cifre faremo il fuori 90.)
33+19 = 52
33-19 =14
52- 52- 52- 14+ 14+ 14+
49= 64 = 30 = 49 = 64 = 30 =
____ ______ ______ _______ ______ ______
3 12 22 35 50 16
3+12+22= 37
35+50+16= 101 (che senza fuori 90 va sottratto il 37)
101-37= 64
Il 64 lo moltiplichiamo x il fisso 7 (64x7) =448 -90 =88
88+19 = 17
17+64 = *81*
L *81* SARA L AMBATA PRINCIPALE OVE VERRA ABBINATO IL N° 86
Ambo secco *81-86*
Adesso bisogna rilevare nell ultima estrazione di calcolo(5/1/2008) la presenza su un'altra ruota o piu’, uno dei due numeri (81, 86) + quella di calcolo va giocato il pronostico *81-86* x recupero a tutte infatti giiocheremo solo la previsione sulla ruota di calcolo poiche nessuno dei due numeri era presente su altre ruote.
Esito ambata *81* a colpo su bari.
Il tutto x 6/7 colpi
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Claudio8, Everita, Ken, Matematico, Rudivall, Juri
Grazie
La spiegazione di questo metodo è nel post 772
L'autore dice che è meglio giocare quando gli estratti sono uniti e isotopi quindi ho fatto lo script in questo modo, ma oltre ad essere perdente, ci sono pochissimi riscontri.
Quindi ne ho fatto un altro script senza il filtro di uniti ed isotopi e sembra vincente
Primo script con gli estratti uniti e isotopi
Secondo script senza il filtro di estratti uniti e isotopi
Claudio8, Everita, Ken, Matematico, Rudivall, Juri
Grazie
La spiegazione di questo metodo è nel post 772
L'autore dice che è meglio giocare quando gli estratti sono uniti e isotopi quindi ho fatto lo script in questo modo, ma oltre ad essere perdente, ci sono pochissimi riscontri.
Quindi ne ho fatto un altro script senza il filtro di uniti ed isotopi e sembra vincente
Primo script con gli estratti uniti e isotopi
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,Salvo50
Dim SoAB,SoCD
Dim DM12,DM23,DM34,DM41,Caso,Casi
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(3)
Dim Posta(2),L(6),M(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))'L'estrazione 5739 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(7) & " Metodo il Trapezio con ambi uniti e isotopi di Domenico Manna - Script Salvo50" & Space(7),1,,4,,3,,1
Posta(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
P2 = P1 + 1
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
SoAB = Fuori90(A + B)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
C = Estratto(Es,R2,P1)
D = Estratto(Es,R2,P2)
SoCD = Fuori90(C + D)
If A > 0 And C > 0 And SoAB = SoCD Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 _
Or DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27_
Or DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20_
Or DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
'---------------------------------
If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 Then
L(5) = Fuori90(M(2) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(2) + 16)
Ambo2(1) = Fuori90(M(2) + 2)
Ambo3(1) = Fuori90(M(2) + 2)
End If
If DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27 Then
L(5) = Fuori90(M(1) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(1) + 16)
Ambo2(1) = Fuori90(M(1) + 2)
Ambo3(1) = Fuori90(M(1) + 2)
'
End If
If DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20 Then
L(5) = Fuori90(M(4) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(4) + 16)
Ambo2(1) = Fuori90(M(4) + 2)
Ambo3(1) = Fuori90(M(4) + 2)
End If
If DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
L(5) = Fuori90(M(3) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(3) + 16)
Ambo2(1) = Fuori90(M(3) + 2)
Ambo3(1) = Fuori90(M(3) + 2)
End If
Ambo1(2) = Fuori90(Ambo1(1) + 2)
Ambo2(2) = Fuori90(Ambo2(1) + 2)
Ambo3(2) = Fuori90(Ambo2(1) + 16)
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P1
MatrCasella(4,0) = R2
MatrCasella(4,1) = P2
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(10) & " La Somma Uguale è " & Format2(SoAB),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
Gioca Es,1
'
End If
End If
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End SubSecondo script senza il filtro di estratti uniti e isotopi
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,D,Clp,Es,Cer
Dim R1,R2,P1,P2,P3,P4,Salvo50
Dim SoAB,SoCD
Dim DM12,DM23,DM34,DM41,Caso,Casi
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ruo(3)
Dim Posta(2),L(6),M(4)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10500))'L'estrazione 5739 esempio nelle spiegazioni
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,13))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(14) & " Metodo il Trapezio di Domenico Manna - Script Salvo50" & Space(14),1,,4,,3,,1
Posta(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 4
For P2 = P1 + 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R1,P2)
SoAB = Fuori90(A + B)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P3 = 1 To 4
For P4 = P3 + 1 To 5
C = Estratto(Es,R2,P3)
D = Estratto(Es,R2,P4)
SoCD = Fuori90(C + D)
If A > 0 And C > 0 And SoAB = SoCD Then
If A <> C And A <> D And B <> C And B <> D Then
M(1) = A : M(2) = B : M(3) = C : M(4) = D
Call OrdinaMatrice(M,1)
DM12 = Distanza(M(1),M(2)) : DM23 = Distanza(M(2),M(3))
DM34 = Distanza(M(3),M(4)) : DM41 = Distanza(M(4),M(1))
If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 _
Or DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27_
Or DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20_
Or DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
'---------------------------------
If DM12 = 27 And DM23 = 20 And DM34 = 27 And DM41 = 16 Then
L(5) = Fuori90(M(2) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(2) + 16)
Ambo2(1) = Fuori90(M(2) + 2)
Ambo3(1) = Fuori90(M(2) + 2)
End If
If DM12 = 20 And DM23 = 27 And DM34 = 16 And DM41 = 27 Then
L(5) = Fuori90(M(1) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(1) + 16)
Ambo2(1) = Fuori90(M(1) + 2)
Ambo3(1) = Fuori90(M(1) + 2)
'
End If
If DM12 = 27 And DM23 = 16 And DM34 = 27 And DM41 = 20 Then
L(5) = Fuori90(M(4) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(4) + 16)
Ambo2(1) = Fuori90(M(4) + 2)
Ambo3(1) = Fuori90(M(4) + 2)
End If
If DM12 = 16 And DM23 = 27 And DM34 = 20 And DM41 = 27 Then
L(5) = Fuori90(M(3) + 16) : L(6) = Fuori90(L(5) + 2)
Ambo1(1) = Fuori90(M(3) + 16)
Ambo2(1) = Fuori90(M(3) + 2)
Ambo3(1) = Fuori90(M(3) + 2)
End If
Ambo1(2) = Fuori90(Ambo1(1) + 2)
Ambo2(2) = Fuori90(Ambo2(1) + 2)
Ambo3(2) = Fuori90(Ambo2(1) + 16)
L(1) = M(1) : L(2) = M(2) : L(3) = M(3) : L(4) = M(4)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
Scrivi
ReDim MatrCasella(4,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R1
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
MatrCasella(4,0) = R2
MatrCasella(4,1) = P4
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi Space(10) & " La Somma Uguale è " & Format2(SoAB),1
Scrivi
If Cer = 1 Then
DisegnaCerchioCiclometrico M,1,1,,,1,1
DisegnaCerchioCiclometrico L,1,1,,,1,1
End If
Scrivi
Ruo(1) = R1 : Ruo(2) = R2 : Ruo(3) = TT_
ImpostaGiocata 1,Ambo1,Ruo,Posta,Clp
ImpostaGiocata 2,Ambo2,Ruo,Posta,Clp
ImpostaGiocata 3,Ambo3,Ruo,Posta,Clp
Gioca Es,1
'
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
Scrivi " Tempo Trascorso" & TempoTrascorso
End Sub
Ultima modifica:
Ciao Salvo sto facendo dei calcoli carta e penna sull,altro metodo di Antonio Longo che ho inserito sopra.
I numeri da inserire li prendo da un mio programma.
La previsione e' di un solo ambo a tutte con esiti in pochi colpi.
Se fosse possibile aggiungere anche su questo script un imput-box dove inserire i numeri.
Grazie ancora per tutto.
I numeri da inserire li prendo da un mio programma.
La previsione e' di un solo ambo a tutte con esiti in pochi colpi.
Se fosse possibile aggiungere anche su questo script un imput-box dove inserire i numeri.
Grazie ancora per tutto.
salvo50
Advanced Member >PLATINUM PLUS<
Per adesso sto facendo quello chiesto da juri
A riguardo di quello DI Antonio Longo posso farne 2 uno che prende i numeri in automatico e un altro che inserisci i 4 numeri da tastiera
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Lottopython
Grazie
Lottopython
Grazie
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,Es,Clp,Salvo50,Caso,Casi
Dim R1,R2,A,B,P1,P2,P5,P6,E1,E2,Sp
Dim Dec_A,Cad_A,Dec_B,Cad_B
Dim N1,N2,N3,Ms_N1N2,Mn_N1N2
Dim Amba(1),Ruo(2),Posta(1)
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10530)
Clp = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,12)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(8) & "L'Ambata Perfetta di Pasquale Santilio - Script Salvo50",1,,4,,3,,1
Posta(1) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
If Gemello(A) Then
R2 = R1 + 1
If R2 = 11 Then R2 = 12
For P2 = 1 To 5
If P2 = P1 Then
B = Estratto(Es,R2,P2)
If B > 0 And Not Gemello(B) Then
Dec_A = Decina(A) : Cad_A = Cadenza(A)
Dec_B = Decina(B) : Cad_B = Cadenza(B)
If B > 9 And Cad_B <> 0 Then
N1 = Dec_A & Dec_B : N2 = Cad_A & Cad_B
If(Differenza(N1,N2) = 3) Or(Differenza(N1,N2) = 6) Then
Ms_N1N2 = Massimo(N1,N2) : Mn_N1N2 = Minimo(N1,N2)
If Differenza(Ms_N1N2,Mn_N1N2) = 3 Then N3 = Mn_N1N2 + 6
If Differenza(Ms_N1N2,Mn_N1N2) = 6 Then N3 = Mn_N1N2 + 3
If Decina(N3) > Decina(N1) Then N3 = N3 - 9
Amba(1) = N3
Ruo(1) = R1 : Ruo(2) = R2
If SerieFreqTurbo(Es,Es,Amba,Ruo,1) = 0 Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
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
Scrivi " La Decina di " & Format2(A) & " Unita alla Decina di " & Format2(B) & " Forma il Numero " & Format2(N1),1
Scrivi " La Cadenza di " & Format2(A) & " Unita alla Cadenza di " & Format2(B) & " Forma il Numero " & Format2(N2),1
Scrivi
Scrivi " Il Numero Mancante Per Formare la Terzina a Passo 3 è " & Format2(N3),1 '
'
Scrivi
ImpostaGiocata 1,Amba,Ruo,Posta,Clp
Gioca Es,1
End If
End If
End If
End If
End If
Next
End If
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubUltima estrazione Lotto
-
Estrazione del lotto
sabato 22 febbraio 2025Bari1349173948Cagliari5644072716Firenze4238707180Genova0811556147Milano5747096651Napoli5772392425Palermo0877162634Roma2883110626Torino7152602861Venezia3338126682Nazionale8412875170Estrazione Simbolotto
Cagliari
3037220835
