volf
Member
Data Rif. SOMMATIVI ALLA PRIMA ESTRAZIONE DEL MESE
Terno 1 NA.5°+81 | TO.1°+84 | BA.4°+74
Terno 2 GE.5°+54 | VE.3°+44 | BA.2°+74
ES.
Estrazione n.10884 del 02.07.2026 INDICE MENSILE: 1 | TERNO 1=45.74.75 | TERNO 2=88.10.72
FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA
FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE
Estrazione generatrice del pronostico 10884 [106 - 02/07/2026]
ESITI
V N. [88.10.72 ] [CA] [.. .. .. 88 72] C. 15 Ambo 10899 [121 - 28/07/2026]
V N. [45.74.75 ] [CA] [.. 75 .. 74 ..] C. 4 Ambo 10888 [110 - 09/07/2026]
VERIFICA AMBETTI
Ambetto (Amb 2) su CA-72.89[72.88+1] del 03.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su BA-88.71[88.72-1] del 10.07.2026
Vincita: 20.3698x
Ambetto (Amb 1) su BA-74.44[74.45-1] del 11.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su CA-72.87[72.88-1] del 17.07.2026
Vincita: 20.3698x
Ambetto (Amb 1) su BA-45.76[45.75+1] del 23.07.2026
Vincita: 20.3698x
? Ambetto (Amb 1) su CA-75.44[75.45-1] del 23.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su CA-10.87[10.88-1]/CA-10.89[10.88+1]/CA-10.73[10.72+1] del 30.07.2026
Vincita: 61.1094x
******************************************************************************** Estrazione 10902 caso 0012
Estrazione n.10902 del 01.08.2026 INDICE MENSILE: 1 | TERNO 1=88.15.31 | TERNO 2=10.74.38
FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA
FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE IN CORSO
Terno 1 NA.5°+81 | TO.1°+84 | BA.4°+74
Terno 2 GE.5°+54 | VE.3°+44 | BA.2°+74
ES.
Estrazione n.10884 del 02.07.2026 INDICE MENSILE: 1 | TERNO 1=45.74.75 | TERNO 2=88.10.72
FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA
FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE
Estrazione generatrice del pronostico 10884 [106 - 02/07/2026]
ESITI
V N. [88.10.72 ] [CA] [.. .. .. 88 72] C. 15 Ambo 10899 [121 - 28/07/2026]
V N. [45.74.75 ] [CA] [.. 75 .. 74 ..] C. 4 Ambo 10888 [110 - 09/07/2026]
VERIFICA AMBETTI
Ambetto (Amb 2) su CA-72.89[72.88+1] del 03.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su BA-88.71[88.72-1] del 10.07.2026
Vincita: 20.3698x
Ambetto (Amb 1) su BA-74.44[74.45-1] del 11.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su CA-72.87[72.88-1] del 17.07.2026
Vincita: 20.3698x
Ambetto (Amb 1) su BA-45.76[45.75+1] del 23.07.2026
Vincita: 20.3698x
? Ambetto (Amb 1) su CA-75.44[75.45-1] del 23.07.2026
Vincita: 20.3698x
Ambetto (Amb 2) su CA-10.87[10.88-1]/CA-10.89[10.88+1]/CA-10.73[10.72+1] del 30.07.2026
Vincita: 61.1094x
******************************************************************************** Estrazione 10902 caso 0012
Estrazione n.10902 del 01.08.2026 INDICE MENSILE: 1 | TERNO 1=88.15.31 | TERNO 2=10.74.38
FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA
FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE IN CORSO
Option Explicit
Sub Main
' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
Const BA_ = 1
Const CA_ = 2
Const FI_ = 3
Const GE_ = 4
Const MI_ = 5
Const NA_ = 6
Const PA_ = 7
Const RO_ = 8
Const TO_ = 9
Const VE_ = 10
Const TT_ = 11
Const NZ_ = 12
Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,N5,N6,n7,n8,n9,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,E,f,g,h,i,l,m,n,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Ambo2(3),Ambo3(9),Ambo4(9),tern(3),tern1(3),Posta(1),Poste(3),Poste2(3),Poste3(3),Poste4(4),Ruo(3),Ruo1(2),Ruo4(3)
FIn = EstrazioneFin
If FIn < 1 Then
MsgBox "Archivio estrazioni non disponibile!",vbCritical
Exit Sub
End If
' --- Input utente ---
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 200)
If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
Ini = CLng(Ini)
Clp = InputBox("Per quanti colpi vuoi giocare?",,18)
If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 18
Clp = CInt(Clp)
Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 11)",,1)
If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 11
Ind_Me = CInt(Ind_Me)
' --- Impostazioni giocate ---
Posta(1) = 1
Poste2(2) = 1
Poste3(2) = 0.5
Poste4(3) = 0.2
' ? Ruote per ambo/terno: MI, NA,
Ruo(1) = BA_ : Ruo(2) = CA_
Ruo1(2) = TT_
Casi = 0
' --- Ciclo principale ---
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
' --- Estrai numeri con controllo Null ---
Dim tA,tB,tC,tD,tE,tf,tg,th,tl,tm,tn
tA = Estratto(Es,NA_,5)
tB = Estratto(Es,TO_,1)
tC = Estratto(Es,BA_,4)
tD = Estratto(Es,GE_,5)
tE = Estratto(Es,VE_,3)
tf = Estratto(Es,BA_,2)
tg = Estratto(Es,RO_,3)
th = Estratto(Es,NZ_,5)
tl = Estratto(Es,CA_,3)
tm = Estratto(Es,GE_,2)
tn = Estratto(Es,NZ_,3)
If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Or IsNull(tE) Or IsNull(tf) Or IsNull(tg) Or IsNull(th) Or IsNull(tl)Or IsNull(tm)Or IsNull(tn)Then
Continue
End If
A = CInt(tA)
B = CInt(tB)
C = CInt(tC)
D = CInt(tD)
E = CInt(tE)
f = CInt(tf)
E = CInt(tE)
f = CInt(tf)
g = CInt(tg)
h = CInt(th)
l = CInt(tl)
m = CInt(tm)
n = CInt(tn)
' --- Calcoli originali di Lillo ---
N1 = Fuori90(A + 81)
N2 = Fuori90(B + 84)
N3 = Fuori90(C + 74)
N4 = Fuori90(D + 54)
N5 = Fuori90(E + 44)
N6 = Fuori90(f + 74)
n7 = Fuori90(g + 37)
n8 = Fuori90(h + 60)
n9 = Fuori90(l + 26)
Caso = Caso + 1
Casi = Casi + 1
' --- Stampa ---
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 " INDICE MENSILE: " & Ind_Me & " | TERNO 1=" & N1 & "." & N2 & "." & N3 & " | TERNO 2=" & N4 & "." & N5 & "." & N6,1
Scrivi " FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA"
Scrivi " FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE"
If N1 <> N3 Then
Ambo(1) = N1 : Ambo(2) = N2 : Ambo(3) = N3
ImpostaGiocata 1,Ambo,Ruo,Poste2,Clp,2
End If
If N4 <> N6 Then
Ambo1(1) = N4 : Ambo1(2) = N5: Ambo1(3) = N6
ImpostaGiocata 2,Ambo1,Ruo,Poste2,Clp,2
End If
If N1 <> N2 <> N3 <> N4 <> N5 <> N6 <> n7 <> n8 <> n9 Then
Ambo3(1) = N1 : Ambo3(2) = N2 : Ambo3(3) = N3 : Ambo3(4) = N4: Ambo3(5) = N5: Ambo3(6) = N6
ImpostaGiocata 4,Ambo3,Ruo1,Poste2,Clp,3
End If
Gioca Es
Scrivi Space(20) & "VERIFICA AMBETTI",1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,BA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 1) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,CA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Amb 1) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,BA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 2) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,CA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 2) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
BUONE VACANZE VOLF
Sub Main
' --- COSTANTI RUOTE CORRETTE PER L8+ (LottoDelta / Spaziometria) ---
Const BA_ = 1
Const CA_ = 2
Const FI_ = 3
Const GE_ = 4
Const MI_ = 5
Const NA_ = 6
Const PA_ = 7
Const RO_ = 8
Const TO_ = 9
Const VE_ = 10
Const TT_ = 11
Const NZ_ = 12
Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,N5,N6,n7,n8,n9,Retnum,Retvinc
Dim Caso,Casi,A,B,C,D,E,f,g,h,i,l,m,n,Clp,Ind_Me,Ambetto,k
Dim Amba(1),Ambo(3),Ambo1(3),Ambo2(3),Ambo3(9),Ambo4(9),tern(3),tern1(3),Posta(1),Poste(3),Poste2(3),Poste3(3),Poste4(4),Ruo(3),Ruo1(2),Ruo4(3)
FIn = EstrazioneFin
If FIn < 1 Then
MsgBox "Archivio estrazioni non disponibile!",vbCritical
Exit Sub
End If
' --- Input utente ---
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 200)
If Ini = "" Or Not IsNumeric(Ini) Or CLng(Ini) < 1 Or CLng(Ini) > FIn Then Exit Sub
Ini = CLng(Ini)
Clp = InputBox("Per quanti colpi vuoi giocare?",,18)
If Clp = "" Or Not IsNumeric(Clp) Or CInt(Clp) < 1 Then Clp = 18
Clp = CInt(Clp)
Ind_Me = InputBox("Inserisci l'indice mensile da cercare (es. 11)",,1)
If Ind_Me = "" Or Not IsNumeric(Ind_Me) Then Ind_Me = 11
Ind_Me = CInt(Ind_Me)
' --- Impostazioni giocate ---
Posta(1) = 1
Poste2(2) = 1
Poste3(2) = 0.5
Poste4(3) = 0.2
' ? Ruote per ambo/terno: MI, NA,
Ruo(1) = BA_ : Ruo(2) = CA_
Ruo1(2) = TT_
Casi = 0
' --- Ciclo principale ---
For Es = Ini To FIn
If IndiceMensile(Es) = Ind_Me Then
Messaggio Es
AvanzamentoElab Ini,FIn,Es
' --- Estrai numeri con controllo Null ---
Dim tA,tB,tC,tD,tE,tf,tg,th,tl,tm,tn
tA = Estratto(Es,NA_,5)
tB = Estratto(Es,TO_,1)
tC = Estratto(Es,BA_,4)
tD = Estratto(Es,GE_,5)
tE = Estratto(Es,VE_,3)
tf = Estratto(Es,BA_,2)
tg = Estratto(Es,RO_,3)
th = Estratto(Es,NZ_,5)
tl = Estratto(Es,CA_,3)
tm = Estratto(Es,GE_,2)
tn = Estratto(Es,NZ_,3)
If IsNull(tA) Or IsNull(tB) Or IsNull(tC) Or IsNull(tD) Or IsNull(tE) Or IsNull(tf) Or IsNull(tg) Or IsNull(th) Or IsNull(tl)Or IsNull(tm)Or IsNull(tn)Then
Continue
End If
A = CInt(tA)
B = CInt(tB)
C = CInt(tC)
D = CInt(tD)
E = CInt(tE)
f = CInt(tf)
E = CInt(tE)
f = CInt(tf)
g = CInt(tg)
h = CInt(th)
l = CInt(tl)
m = CInt(tm)
n = CInt(tn)
' --- Calcoli originali di Lillo ---
N1 = Fuori90(A + 81)
N2 = Fuori90(B + 84)
N3 = Fuori90(C + 74)
N4 = Fuori90(D + 54)
N5 = Fuori90(E + 44)
N6 = Fuori90(f + 74)
n7 = Fuori90(g + 37)
n8 = Fuori90(h + 60)
n9 = Fuori90(l + 26)
Caso = Caso + 1
Casi = Casi + 1
' --- Stampa ---
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 " INDICE MENSILE: " & Ind_Me & " | TERNO 1=" & N1 & "." & N2 & "." & N3 & " | TERNO 2=" & N4 & "." & N5 & "." & N6,1
Scrivi " FACOLTATIVO GIOCARE AMBETTO AMBO TERNO SU RUOTE BA CA"
Scrivi " FACOLTATIVO GIOCARE PER RECUPERO AMBO TERNO SU TUTTE"
If N1 <> N3 Then
Ambo(1) = N1 : Ambo(2) = N2 : Ambo(3) = N3
ImpostaGiocata 1,Ambo,Ruo,Poste2,Clp,2
End If
If N4 <> N6 Then
Ambo1(1) = N4 : Ambo1(2) = N5: Ambo1(3) = N6
ImpostaGiocata 2,Ambo1,Ruo,Poste2,Clp,2
End If
If N1 <> N2 <> N3 <> N4 <> N5 <> N6 <> n7 <> n8 <> n9 Then
Ambo3(1) = N1 : Ambo3(2) = N2 : Ambo3(3) = N3 : Ambo3(4) = N4: Ambo3(5) = N5: Ambo3(6) = N6
ImpostaGiocata 4,Ambo3,Ruo1,Poste2,Clp,3
End If
Gioca Es
Scrivi Space(20) & "VERIFICA AMBETTI",1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,BA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 1) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo,CA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Amb 1) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,BA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 2) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,CA_,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " Ambetto (Amb 2) su " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
BUONE VACANZE VOLF
