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,Ind
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?",,7)
Ind = CInt(InputBox("Per quante estrazioni indietro vuoi fare il controllo uscita ambata?",,9))
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 SerieFreq(Es - Ind,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." & FormattaStringa(Es,"00000") & " 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 Sub
Ultima modifica:
Si puo' mettere che se uscita l'ambata nelle 9 estrazioni precedenti non si gioca?
Grazie.
salvo50
Advanced Member >PLATINUM PLUS<
Ho messo che lo decidi tu quante estrazioni indietro devi fare il controllo, alla terza domanda, io l'ho impostato a 9 ma naturalmente puoi cambiarla
salvo50
Advanced Member >PLATINUM PLUS<
Ciao a Tutti
Bubù, Rudivall
Grazie
La spiegazione di questo metodo è al post 782
Il Quadrato Maltese di A. Longo
Con i 4 numeri inseriti da tastiera, la ricerca la fa solo per tutte le ruote e solo per ambo
se vuoi fare la ricerca anche per l'ambata, mi devi dire in quale ruota la vuoi cercare
I numeri vanno inseriti separati da un puntino
Bubù, Rudivall
Grazie
La spiegazione di questo metodo è al post 782
Il Quadrato Maltese di A. Longo
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Clp1,Clp2,Sp,A,B,C,D,E1,E2,E3
Dim R1,P7,P8,P9
Dim Diff(13),Som(5),Prod(3)
Dim Ruo(3),Ru(1),Posta(1),Poste(2)
Dim Amba(1),Ambo(2)
Posta(1) = 1
Poste(2) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10590)'Estrazione 7850 spiegazione nell'articolo
Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,5)
Clp2 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,13)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(10) & " Il Quadrato Maltese di Antonio Longo - Script Salvo50" & Space(10),1,,4,,3,,1
For Es = Ini To FIn - 2
Messaggio Es
AvanzamentoElab Ini,FIn - 2,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
A = Estratto(Es,R1,5)
B = Estratto(Es + 1,R1,1)
C = Estratto(Es + 1,R1,5)
D = Estratto(Es + 2,R1,1)
Diff(1) = Differenza(A,C)
Diff(2) = Differenza(A,D)
Diff(3) = Differenza(A,Diff(1))
Prod(1) = Fuori90((A * Diff(1)) / Diff(2))
Diff(4) = Differenza(Prod(1),Diff(3))
Diff(5) = Differenza(A,Diff(4))
Prod(2) = Fuori90((A * Diff(3)) / Diff(5))
Som(1) = Fuori90(Prod(2) + Diff(1))
Diff(6) = Differenza(Prod(2),Diff(1))
'
Diff(7) = Differenza(Som(1),A)
Diff(8) = Differenza(Som(1),B)
Diff(9) = Differenza(Som(1),C)
Diff(10) = Differenza(Diff(6),A)
Diff(11) = Differenza(Diff(6),B)
Diff(12) = Differenza(Diff(6),C)
Som(2) = Fuori90(Diff(7) + Diff(8) + Diff(9))
Som(3) = Diff(10) + Diff(11) + Diff(12)
Diff(13) = Fuori90((Som(3) + 90) - Som(2))
Prod(3) = Fuori90((Diff(13)) * 7)
Som(4) = Fuori90(Prod(3) + Diff(1))
Som(5) = Fuori90(Som(4) + Diff(13))
Amba(1) = Som(5)
Ambo(1) = Som(5)
Ambo(2) = D
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P7 = 1 To 5
E1 = Estratto(Es,R1,P7)
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 + 1) & " del " & DataEstrazione(Es + 1)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P8 = 1 To 5
E2 = Estratto(Es + 1,R1,P8)
If E2 = B Or E2 = C Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es + 2) & " del " & DataEstrazione(Es + 2)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P9 = 1 To 5
E3 = Estratto(Es + 2,R1,P9)
If E3 = D Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E3) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(C) & " = " & Format2(Diff(1)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(D) & " = " & Format2(Diff(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(Diff(1)) & " = " & Format2(Diff(3)),1
Scrivi Space(23) & Format2(A) & " * " & Format2(Diff(1)) & " / " & Format2(Diff(2)) & " = " & Format2(Prod(1)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Prod(1)) & " e " & Format2(Diff(3)) & " = " & Format2(Diff(4)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(Diff(4)) & " = " & Format2(Diff(5)),1
Scrivi Space(23) & Format2(A) & " * " & Format2(Diff(3)) & " / " & Format2(Diff(5)) & " = " & Format2(Prod(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(A) & " = " & Format2(Diff(7)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(B) & " = " & Format2(Diff(8)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(C) & " = " & Format2(Diff(9)),1
Scrivi Space(23) & Format2(Diff(7)) & " + " & Format2(Diff(8)) & " + " & Format2(Diff(9)) & " = " & Format2(Som(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(A) & " = " & Format2(Diff(10)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(B) & " = " & Format2(Diff(11)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(C) & " = " & Format2(Diff(12)),1
Scrivi Space(12) & Format2(Diff(10)) & " + " & Format2(Diff(11)) & " + " & Format2(Diff(12)) & " = ",1,0
Scrivi FormattaStringa(Som(3),"000") & " - " & Format2(Som(2)) & " = " & Format2(Diff(13)),1
Scrivi Space(20) & Format2(Diff(13)) & " * il fisso 7 = " & Format2(Prod(3)),1
Scrivi Space(18) & Format2(Prod(3)) & " + " & Format2(Diff(1)) & " = " & Format2(Som(4)),1,0
Scrivi " + " & Format2(Diff(13)) & " = " & Format2(Som(5)),1
Scrivi
Scrivi Space(20) & "Pronostico ",1,,,2,3
Scrivi Space(20) & Format2(Som(5)) & " Ambata Principale ",1
Scrivi Space(20) & Format2(D) & " Abbinamento ",1
Scrivi Space(23) & "Ambo " & Format2(Som(5)) & Sp & Format2(D),1,,,1
Ru(1) = R1
Ruo(1) = R1 : Ruo(2) = TT_
ImpostaGiocata 1,Amba,Ru,Posta,Clp1,,2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp2,,2
Gioca Es
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubCon i 4 numeri inseriti da tastiera, la ricerca la fa solo per tutte le ruote e solo per ambo
se vuoi fare la ricerca anche per l'ambata, mi devi dire in quale ruota la vuoi cercare
I numeri vanno inseriti separati da un puntino
Codice:
Option Explicit
Sub Main
Dim FIn,Es,Ini,Caso,Casi,Salvo50
Dim Clp1,Clp2,Sp,A,B,C,D,E1,E2,E3
Dim R1,P7,P8,P9,L,aM
Dim Diff(13),Som(5),Prod(3)
Dim Ruo(3),Ru(1),Posta(1),Poste(2)
Dim Amba(1),Ambo(2)
Posta(1) = 1
Poste(2) = 1
Sp = " "
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10000)
'Clp1 = InputBox("Per quanti colpi vuoi giocare l'Ambata?",,5)
Clp1 = InputBox("Per quanti colpi vuoi giocare L'ambo a Tutte?",,1)
L = InputBox("Inserisci i Quattro numeri separati da un puntino",,"27.39.12.78")
aM = Split("0." & L,".")
A = aM(1)
B = aM(2)
C = aM(3)
D = aM(4)
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(5) & " Il Quadrato Maltese di Antonio Longo - Script Salvo50" & Space(5),1,,4,,3,,1
Scrivi Space(3) & " Inserire i Quattro numeri da Tastiera - Modifica di Everita - Script Salvo50" & Space(3),1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
Diff(1) = Differenza(A,C)
Diff(2) = Differenza(A,D)
Diff(3) = Differenza(A,Diff(1))
Prod(1) = Fuori90((A * Diff(1)) / Diff(2))
Diff(4) = Differenza(Prod(1),Diff(3))
Diff(5) = Differenza(A,Diff(4))
Prod(2) = Fuori90((A * Diff(3)) / Diff(5))
Som(1) = Fuori90(Prod(2) + Diff(1))
Diff(6) = Differenza(Prod(2),Diff(1))
'
Diff(7) = Differenza(Som(1),A)
Diff(8) = Differenza(Som(1),B)
Diff(9) = Differenza(Som(1),C)
Diff(10) = Differenza(Diff(6),A)
Diff(11) = Differenza(Diff(6),B)
Diff(12) = Differenza(Diff(6),C)
Som(2) = Fuori90(Diff(7) + Diff(8) + Diff(9))
Som(3) = Diff(10) + Diff(11) + Diff(12)
Diff(13) = Fuori90((Som(3) + 90) - Som(2))
Prod(3) = Fuori90((Diff(13)) * 7)
Som(4) = Fuori90(Prod(3) + Diff(1))
Som(5) = Fuori90(Som(4) + Diff(13))
Amba(1) = Som(5)
Ambo(1) = Som(5)
Ambo(2) = D
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 0
Scrivi(" Estrazione n." & FormattaStringa(Es,"00000") & " del " & DataEstrazione(Es)),1
Scrivi
Scrivi Space(1) & "I Quattro Numeri Inseriti da Tastiera Sono " & StringaNumeri(aM,".",True),1,,,1
Scrivi
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(C) & " = " & Format2(Diff(1)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(D) & " = " & Format2(Diff(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(Diff(1)) & " = " & Format2(Diff(3)),1
Scrivi Space(23) & Format2(A) & " * " & Format2(Diff(1)) & " / " & Format2(Diff(2)) & " = " & Format2(Prod(1)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Prod(1)) & " e " & Format2(Diff(3)) & " = " & Format2(Diff(4)),1
Scrivi Space(10) & "La Differenza tra " & Format2(A) & " e " & Format2(Diff(4)) & " = " & Format2(Diff(5)),1
Scrivi Space(23) & Format2(A) & " * " & Format2(Diff(3)) & " / " & Format2(Diff(5)) & " = " & Format2(Prod(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(A) & " = " & Format2(Diff(7)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(B) & " = " & Format2(Diff(8)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Som(1)) & " e " & Format2(C) & " = " & Format2(Diff(9)),1
Scrivi Space(23) & Format2(Diff(7)) & " + " & Format2(Diff(8)) & " + " & Format2(Diff(9)) & " = " & Format2(Som(2)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(A) & " = " & Format2(Diff(10)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(B) & " = " & Format2(Diff(11)),1
Scrivi Space(10) & "La Differenza tra " & Format2(Diff(6)) & " e " & Format2(C) & " = " & Format2(Diff(12)),1
Scrivi Space(12) & Format2(Diff(10)) & " + " & Format2(Diff(11)) & " + " & Format2(Diff(12)) & " = ",1,0
Scrivi FormattaStringa(Som(3),"000") & " - " & Format2(Som(2)) & " = " & Format2(Diff(13)),1
Scrivi Space(20) & Format2(Diff(13)) & " * il fisso 7 = " & Format2(Prod(3)),1
Scrivi Space(18) & Format2(Prod(3)) & " + " & Format2(Diff(1)) & " = " & Format2(Som(4)),1,0
Scrivi " + " & Format2(Diff(13)) & " = " & Format2(Som(5)),1
Scrivi
Scrivi Space(20) & "Pronostico ",1,,,2,3
' Scrivi Space(20) & Format2(Som(5)) & " Ambata Principale ",1
' Scrivi Space(20) & Format2(D) & " Abbinamento ",1
Scrivi Space(26) & "Ambo " & Format2(Som(5)) & Sp & Format2(D),1,,,1
' Ru(1) = R1
Ruo(1) = TT_
' ImpostaGiocata 1,Amba,Ruo,Posta,Clp1
ImpostaGiocata 1,Ambo,Ruo,Poste,Clp1
Gioca Es
' Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End Sub
salvo50
Advanced Member >PLATINUM PLUS<
Ciao Everita
Nello script IL TRAPEZIO di Domenico Manna oltre al fatto che i 2 ambi devono avere somma uguale ci sono altre condizioni che lo script fa in automatico, quindi non basta inserire le somme uguali, devi inserire i numeri con le altre condizioni, se ne sbagli anche una sola ti appare lo schermo bianco
Esempio
Stabiliamo che i 4 numeri da inserire siano A - B - C - D
I numeri che metto in mezzo alle lettere sono le distanze da rispettare
A - 27 - B - 20 - C - 27 - D - 16 - A
oppure
A - 20 - B - 27 - C - 16 - D - 27 - A
oppure
A - 27 - B - 16 - C - 27 - D - 20 - A
oppure
A - 16 - B - 27 - C - 20 - D - 27 - A
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,AB,CD,S,S1,aM,N
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))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,1))
Cer = CInt(InputBox(" Vuoi visualizzare il cerchio ciclometrico? SI = 1, NO un qualsiasi altro numero ",Salvo50,1))
N = InputBox("Inserisci i Quattro numeri separati da un puntino",,"41.61.14.88")
aM = Split("0." & N,".")
A = CInt(aM(1))
B = CInt(aM(2))
C = CInt(aM(3))
D = CInt(aM(4))
SoAB = Fuori90(A + B)
SoCD = Fuori90(C + D)
If SoAB = SoCD Then
Posta(2) = 1
Scrivi Space(14) & " Metodo il Trapezio di Domenico Manna - Script Salvo50" & Space(14),1,,4,,3,,1
Scrivi Space(3) & " Inserire i Quattro numeri da Tastiera - Modifica di Everita - Script Salvo50" & Space(3),1,,4,,3,,1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
If 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
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
R1 = TT_
Ruo(1) = R1
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
ScriviResoconto
End If
End SubLo script salvo errori o dimenticanze
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 22 febbraio 2025Bari1349173948Cagliari5644072716Firenze4238707180Genova0811556147Milano5747096651Napoli5772392425Palermo0877162634Roma2883110626Torino7152602861Venezia3338126682Nazionale8412875170Estrazione Simbolotto
Cagliari
3037220835
