volf
Junior Member
ATTENZIONE SI CALCOLA ALLA 13ma DEL MESE
SOMMATIVI
Indice mensile: 13
Ruote di gioco: BA;CA;
Colpi: 18
1) Ambata : ABBINAMENTO UNITA' DUE ESTRATTI
3° di BA abbinamento due estratti 1° di RO[0] -> BA,CA;
2) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(4° di NA + 4° di VE + 40 [0]) -> BA,CA;
3) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(5° di CA + 3° di NZ+ 44 [0]) -> BA,CA;
4) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(3° di CA + 4° di RO+ 56 [0]) -> BA,CA;
5) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(3° di TO + 1° di VE + 69 [0]) -> BA,CA;
ESEMPIO
Estrazione del 23/07/2026
Ambata --> 45;
11/08/2026 CA al colpo nr. 11
20/08/2026 CA al colpo nr. 16
Ambo --> 44;45;
Nessun esito
Ambo --> 45;78;
Nessun esito
Ambo --> 45;53;
11/08/2026 CA al colpo nr. 11
Ambo --> 45;50;
Nessun esito
Estrazione del 23/06/2026
Ambata --> 9;
14/07/2026 BA al colpo nr. 12
18/07/2026 BA al colpo nr. 15
21/07/2026 CA al colpo nr. 16
Ambo --> 9;29;
18/07/2026 BA al colpo nr. 15
Ambo --> 9;28;
Nessun esito
Ambo --> 9;56;
Nessun esito
Ambo --> 9;78;
14/07/2026 BA al colpo nr. 12
GIOCATA IN CORSO
Estrazione n.10914 del 22.08.2026 | Ambata (Unione Unità)=1 | Abb1=86 | Abb2=39 | Abb3=63 | Abb4=45
Estrazione generatrice del pronostico 10914 [135 - 22/08/2026]
Numeri in gioco : 01 su BA CA per Estratto
01.86 su BA CA per Ambo
01.39 su BA CA per Ambo
01.63 su BA CA per Ambo
01.45 su BA CA per Ambo
01.86.39.63.45 su BA CA TT per Ambo,Terno,Quaterna
In corso per altre 18 estrazioni
VERIFICA AMBETTI SU BARI E CAGLIARI E SI CONSIGLA DI GIOCARLI SU BA CA
LA LUNGHETTA BA CA TT AMBO TERNO QUATERNA
SOMMATIVI
Indice mensile: 13
Ruote di gioco: BA;CA;
Colpi: 18
1) Ambata : ABBINAMENTO UNITA' DUE ESTRATTI
3° di BA abbinamento due estratti 1° di RO[0] -> BA,CA;
2) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(4° di NA + 4° di VE + 40 [0]) -> BA,CA;
3) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(5° di CA + 3° di NZ+ 44 [0]) -> BA,CA;
4) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(3° di CA + 4° di RO+ 56 [0]) -> BA,CA;
5) Ambata : 3° di BA abb_Un 1° di RM [0] -> BA,CA; Abb. per ambo: Diam(3° di TO + 1° di VE + 69 [0]) -> BA,CA;
ESEMPIO
Estrazione del 23/07/2026
Ambata --> 45;
11/08/2026 CA al colpo nr. 11
20/08/2026 CA al colpo nr. 16
Ambo --> 44;45;
Nessun esito
Ambo --> 45;78;
Nessun esito
Ambo --> 45;53;
11/08/2026 CA al colpo nr. 11
Ambo --> 45;50;
Nessun esito
Estrazione del 23/06/2026
Ambata --> 9;
14/07/2026 BA al colpo nr. 12
18/07/2026 BA al colpo nr. 15
21/07/2026 CA al colpo nr. 16
Ambo --> 9;29;
18/07/2026 BA al colpo nr. 15
Ambo --> 9;28;
Nessun esito
Ambo --> 9;56;
Nessun esito
Ambo --> 9;78;
14/07/2026 BA al colpo nr. 12
Option Explicit
Sub Main
' CONDIZIONI
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,Retnum,Retvinc
Dim Caso,Casi,Clp,Ambetto,k
Dim Amba(1),Ambo(2),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(5),Posta(1),Post(4),Poste(2),Ruo(2),Ruo4(3)
Dim uBA3, uRM1 ' Variabili per isolare le cifre delle unità
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)
' --- Impostazioni giocate ---
Posta(1) = 1 ' Per ambata
Poste(2) = 1 ' Per ambo secco
Post(2) = 1 ' Ambo in lunghetta
Post(3) = 0.8 ' Terno in lunghetta
Post(4) = 0.2 ' Quaterna in lunghetta
' Ruote di gioco: BA e CA + Tutte per la lunghetta
Ruo(1) = BA_ : Ruo(2) = CA_
Ruo4(1) = BA_ : Ruo4(2) = CA_ : Ruo4(3) = TT_
Casi = 0
' --- Ciclo principale ---
For Es = Ini To FIn
' CONDIZIONE: 13a estrazione del mese
If IndiceMensile(Es) = 13 Then
Messaggio Es
AvanzamentoElab Ini, FIn, Es
' --- Estrai numeri con controllo per i nuovi algoritmi ---
Dim eBA3, eRM1, eNA4, eVE4, eCA5, eNZ3, eCA3, eRM4, eTO3, eVE1
eBA3 = Estratto(Es, BA_, 3) ' 3° di BA
eRM1 = Estratto(Es, RO_, 1) ' 1° di RO
eNA4 = Estratto(Es, NA_, 4) ' 4° di NA
eVE4 = Estratto(Es, VE_, 4) ' 4° di VE
eCA5 = Estratto(Es, CA_, 5) ' 5° di CA
eNZ3 = Estratto(Es, NZ_, 3) ' 3° di RN (Nazionale)
eCA3 = Estratto(Es, CA_, 3) ' 3° di CA
eRM4 = Estratto(Es, RO_, 4) ' 4° di RM
eTO3 = Estratto(Es, TO_, 3) ' 3° di TO
eVE1 = Estratto(Es, VE_, 1) ' 1° di VE
' Controllo validità estratti
If eBA3 > 0 And eRM1 > 0 And eNA4 > 0 And eVE4 > 0 And eCA5 > 0 And eNZ3 > 0 And eCA3 > 0 And eRM4 > 0 And eTO3 > 0 And eVE1 > 0 Then
' --- CALCOLO AMBATA: UNIONE DELLE SOLE UNITÀ ---
uBA3 = eBA3 Mod 10 ' Isola l'unità del 3° di BA
uRM1 = eRM1 Mod 10 ' Isola l'unità del 1° di RO
' Concatena le due unità come testo e applica il Fuori90
N1 = Fuori90(CInt(CStr(uBA3) & CStr(uRM1)))
If N1 = 0 Then N1 = 90 ' Protezione per il caso "00"
' --- Calcolo Nuovi Abbinamenti Diametrali ---
' 2) Abbinamento 1: Diam(4° di NA + 4° di VE + 40)
N2 = Diametrale(Fuori90(eNA4 + eVE4 + 40))
' 3) Abbinamento 2: Diam(5° di CA + 3° di RN + 44)
N3 = Diametrale(Fuori90(eCA5 + eNZ3 + 44))
' 4) Abbinamento 3: Diam(3° di CA + 4° di RM + 56)
N4 = Diametrale(Fuori90(eCA3 + eRM4 + 56))
' 5) Abbinamento 4: Diam(3° di TO + 1° di VE + 69)
N5 = Diametrale(Fuori90(eTO3 + eVE1 + 69))
' --- Controllo Ricorsivo Antiripetizione nella Lunghetta (+1) ---
Do While N2 = N1
N2 = Fuori90(N2 + 1)
Loop
Do While N3 = N1 Or N3 = N2
N3 = Fuori90(N3 + 1)
Loop
Do While N4 = N1 Or N4 = N2 Or N4 = N3
N4 = Fuori90(N4 + 1)
Loop
Do While N5 = N1 Or N5 = N2 Or N5 = N3 Or N5 = N4
N5 = Fuori90(N5 + 1)
Loop
Casi = Casi + 1
' --- Stampa a video dei dettagli ---
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " & Es & " caso " & FormattaStringa(Casi,"0000")
ColoreTesto 0
Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0
Scrivi " | Ambata (Unione Unità)=" & N1 & " | Abb1=" & N2 & " | Abb2=" & N3 & " | Abb3=" & N4 & " | Abb4=" & N5,1
Scrivi
' --- Configurazione Pronostici ---
' Giocata 1: Ambata principale su BA-CA
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
' Giocata 2: Ambo Secco 1 (N1-N2) su BA-CA
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
' Giocata 3: Ambo Secco 2 (N1-N3) su BA-CA
Ambo1(1) = N1 : Ambo1(2) = N3
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,2
' Giocata 4: Ambo Secco 3 (N1-N4) su BA-CA
Ambo2(1) = N1 : Ambo2(2) = N4
ImpostaGiocata 4,Ambo2,Ruo,Poste,Clp,2
' Giocata 5: Ambo Secco 4 (N1-N5) su BA-CA
Ambo3(1) = N1 : Ambo3(2) = N5
ImpostaGiocata 5,Ambo3,Ruo,Poste,Clp,2
' Giocata 6: Cinquina Unica (N1-N2-N3-N4-N5) su BA-CA e Tutte
Ambo4(1) = N1 : Ambo4(2) = N2 : Ambo4(3) = N3 : Ambo4(4) = N4 : Ambo4(5) = N5
ImpostaGiocata 6,Ambo4,Ruo4,Post,Clp,5
' Elabora le giocate registrate
Gioca Es
' --- Verifica Ambetti su Ruote di Gioco (BA e CA) ---
Scrivi Space(20) & "VERIFICA AMBETTI SU BARI E CAGLIARI",1,,,2
Dim r, ruoteAmbetti
ruoteAmbetti = Array(BA_, CA_)
For r = 0 To UBound(ruoteAmbetti)
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N2) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo1,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N3) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo2,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N4) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo3,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N5) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Next
Next
End If
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
Sub Main
' CONDIZIONI
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,Retnum,Retvinc
Dim Caso,Casi,Clp,Ambetto,k
Dim Amba(1),Ambo(2),Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(5),Posta(1),Post(4),Poste(2),Ruo(2),Ruo4(3)
Dim uBA3, uRM1 ' Variabili per isolare le cifre delle unità
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)
' --- Impostazioni giocate ---
Posta(1) = 1 ' Per ambata
Poste(2) = 1 ' Per ambo secco
Post(2) = 1 ' Ambo in lunghetta
Post(3) = 0.8 ' Terno in lunghetta
Post(4) = 0.2 ' Quaterna in lunghetta
' Ruote di gioco: BA e CA + Tutte per la lunghetta
Ruo(1) = BA_ : Ruo(2) = CA_
Ruo4(1) = BA_ : Ruo4(2) = CA_ : Ruo4(3) = TT_
Casi = 0
' --- Ciclo principale ---
For Es = Ini To FIn
' CONDIZIONE: 13a estrazione del mese
If IndiceMensile(Es) = 13 Then
Messaggio Es
AvanzamentoElab Ini, FIn, Es
' --- Estrai numeri con controllo per i nuovi algoritmi ---
Dim eBA3, eRM1, eNA4, eVE4, eCA5, eNZ3, eCA3, eRM4, eTO3, eVE1
eBA3 = Estratto(Es, BA_, 3) ' 3° di BA
eRM1 = Estratto(Es, RO_, 1) ' 1° di RO
eNA4 = Estratto(Es, NA_, 4) ' 4° di NA
eVE4 = Estratto(Es, VE_, 4) ' 4° di VE
eCA5 = Estratto(Es, CA_, 5) ' 5° di CA
eNZ3 = Estratto(Es, NZ_, 3) ' 3° di RN (Nazionale)
eCA3 = Estratto(Es, CA_, 3) ' 3° di CA
eRM4 = Estratto(Es, RO_, 4) ' 4° di RM
eTO3 = Estratto(Es, TO_, 3) ' 3° di TO
eVE1 = Estratto(Es, VE_, 1) ' 1° di VE
' Controllo validità estratti
If eBA3 > 0 And eRM1 > 0 And eNA4 > 0 And eVE4 > 0 And eCA5 > 0 And eNZ3 > 0 And eCA3 > 0 And eRM4 > 0 And eTO3 > 0 And eVE1 > 0 Then
' --- CALCOLO AMBATA: UNIONE DELLE SOLE UNITÀ ---
uBA3 = eBA3 Mod 10 ' Isola l'unità del 3° di BA
uRM1 = eRM1 Mod 10 ' Isola l'unità del 1° di RO
' Concatena le due unità come testo e applica il Fuori90
N1 = Fuori90(CInt(CStr(uBA3) & CStr(uRM1)))
If N1 = 0 Then N1 = 90 ' Protezione per il caso "00"
' --- Calcolo Nuovi Abbinamenti Diametrali ---
' 2) Abbinamento 1: Diam(4° di NA + 4° di VE + 40)
N2 = Diametrale(Fuori90(eNA4 + eVE4 + 40))
' 3) Abbinamento 2: Diam(5° di CA + 3° di RN + 44)
N3 = Diametrale(Fuori90(eCA5 + eNZ3 + 44))
' 4) Abbinamento 3: Diam(3° di CA + 4° di RM + 56)
N4 = Diametrale(Fuori90(eCA3 + eRM4 + 56))
' 5) Abbinamento 4: Diam(3° di TO + 1° di VE + 69)
N5 = Diametrale(Fuori90(eTO3 + eVE1 + 69))
' --- Controllo Ricorsivo Antiripetizione nella Lunghetta (+1) ---
Do While N2 = N1
N2 = Fuori90(N2 + 1)
Loop
Do While N3 = N1 Or N3 = N2
N3 = Fuori90(N3 + 1)
Loop
Do While N4 = N1 Or N4 = N2 Or N4 = N3
N4 = Fuori90(N4 + 1)
Loop
Do While N5 = N1 Or N5 = N2 Or N5 = N3 Or N5 = N4
N5 = Fuori90(N5 + 1)
Loop
Casi = Casi + 1
' --- Stampa a video dei dettagli ---
ColoreTesto 2
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 1
Scrivi String(80,"*") & " Estrazione " & Es & " caso " & FormattaStringa(Casi,"0000")
ColoreTesto 0
Scrivi " Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es),1,0
Scrivi " | Ambata (Unione Unità)=" & N1 & " | Abb1=" & N2 & " | Abb2=" & N3 & " | Abb3=" & N4 & " | Abb4=" & N5,1
Scrivi
' --- Configurazione Pronostici ---
' Giocata 1: Ambata principale su BA-CA
Amba(1) = N1
ImpostaGiocata 1,Amba,Ruo,Posta,Clp,1
' Giocata 2: Ambo Secco 1 (N1-N2) su BA-CA
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 2,Ambo,Ruo,Poste,Clp,2
' Giocata 3: Ambo Secco 2 (N1-N3) su BA-CA
Ambo1(1) = N1 : Ambo1(2) = N3
ImpostaGiocata 3,Ambo1,Ruo,Poste,Clp,2
' Giocata 4: Ambo Secco 3 (N1-N4) su BA-CA
Ambo2(1) = N1 : Ambo2(2) = N4
ImpostaGiocata 4,Ambo2,Ruo,Poste,Clp,2
' Giocata 5: Ambo Secco 4 (N1-N5) su BA-CA
Ambo3(1) = N1 : Ambo3(2) = N5
ImpostaGiocata 5,Ambo3,Ruo,Poste,Clp,2
' Giocata 6: Cinquina Unica (N1-N2-N3-N4-N5) su BA-CA e Tutte
Ambo4(1) = N1 : Ambo4(2) = N2 : Ambo4(3) = N3 : Ambo4(4) = N4 : Ambo4(5) = N5
ImpostaGiocata 6,Ambo4,Ruo4,Post,Clp,5
' Elabora le giocate registrate
Gioca Es
' --- Verifica Ambetti su Ruote di Gioco (BA e CA) ---
Scrivi Space(20) & "VERIFICA AMBETTI SU BARI E CAGLIARI",1,,,2
Dim r, ruoteAmbetti
ruoteAmbetti = Array(BA_, CA_)
For r = 0 To UBound(ruoteAmbetti)
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ambetto = VerificaAmbetto(Ambo,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N2) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo1,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N3) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo2,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N4) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Ambetto = VerificaAmbetto(Ambo3,ruoteAmbetti(r),Es2,Retnum,Retvinc)
If Ambetto > 0 Then Scrivi " > Ambetto (N1-N5) su " & NomeRuota(ruoteAmbetti(r)) & ": " & Retnum & " del " & DataEstrazione(Es2) & " [Vincita: " & Retvinc & "x]",1
Next
Next
End If
If ScriptInterrotto Then Exit Sub
End If
Next
ScriviResoconto
End Sub
GIOCATA IN CORSO
Estrazione n.10914 del 22.08.2026 | Ambata (Unione Unità)=1 | Abb1=86 | Abb2=39 | Abb3=63 | Abb4=45
Estrazione generatrice del pronostico 10914 [135 - 22/08/2026]
Numeri in gioco : 01 su BA CA per Estratto
01.86 su BA CA per Ambo
01.39 su BA CA per Ambo
01.63 su BA CA per Ambo
01.45 su BA CA per Ambo
01.86.39.63.45 su BA CA TT per Ambo,Terno,Quaterna
In corso per altre 18 estrazioni
VERIFICA AMBETTI SU BARI E CAGLIARI E SI CONSIGLA DI GIOCARLI SU BA CA
LA LUNGHETTA BA CA TT AMBO TERNO QUATERNA
