Option Explicit
Sub Main
' --- COSTANTI RUOTE ---
Dim BA_,CA_,FI_,GE_,MI_,NA_,PA_,RO_,TO_,VE_,TT_,NZ_
BA_ = 1 : CA_ = 2 : FI_ = 3 : GE_ = 4 : MI_ = 5 : NA_ = 6
PA_ = 7 : RO_ = 8 : TO_ = 9 : VE_ = 10 : TT_ = 11 : NZ_ = 12
Dim FIn,Es,Es2,Ini,N1,N2,N3,N4,Retnum,Retvinc
Dim Caso,Casi,Clp,Ind_Me,Ambetto,k,flFig
Dim Ambo(2),Ambo1(2),Ambo2(4),Poste(5),Ruo(2),Ruo1(2)
Dim tA,tB,tC,tD,tE
' --- IMPOSTAZIONI ---
FIn = EstrazioneFin
Ini = InputBox("Inserisci l'estrazione da cui iniziare",,FIn - 2800)
Clp = 18
Ind_Me = 13 ' 13ª estrazione del mese
' --- Configurazione Poste ---
Poste(2) = 1 ' Posta per Ambo
Ruo(1) = BA_ : Ruo(2) = TT_ ' Ruote di gioco principali
Casi = 0
' --- CICLO PRINCIPALE ---
For Es = Ini To FIn
' FILTRO MESE DI APRILE (o Luglio se Mese = 7)
If Mese(Es) = 7 Then
' FILTRO INDICE MENSILE
If IndiceMensile(Es) = Ind_Me Then
tA = Estratto(Es,NZ_,1)
tB = Estratto(Es,NZ_,2)
tC = Estratto(Es,NZ_,3)
tD = Estratto(Es,NZ_,4)
tE = Estratto(Es,NZ_,5)
If tC > 0 Then
flFig = Figura(tE)
' --- LOGICA FIGURE AGGIORNATA DA IMMAGINE ---
Select Case flFig
Case 1 : N1 = Fuori90(tA + 49) : N2 = Fuori90(tC + 06) : N3 = Fuori90(tC + 64) : N4 = Fuori90(tE + 48)
Case 2 : N1 = Fuori90(tB + 17) : N2 = Fuori90(tD + 25) : N3 = Fuori90(tA + 20) : N4 = Fuori90(tD + 09)
Case 3 : N1 = Fuori90(tE + 68) : N2 = Fuori90(tD + 67) : N3 = Fuori90(tA + 65) : N4 = Fuori90(tB + 70)
Case 4 : N1 = Fuori90(tA + 06) : N2 = Fuori90(tE + 03) : N3 = Fuori90(tB + 66) : N4 = Fuori90(tC + 44)
Case 5 : N1 = Fuori90(tB + 39) : N2 = Fuori90(tC + 24) : N3 = Fuori90(tA + 90) : N4 = Fuori90(tD + 56)
Case 6 : N1 = Fuori90(tB + 40) : N2 = Fuori90(tD + 20) : N3 = Fuori90(tE + 14) : N4 = Fuori90(tC + 54)
Case 7 : N1 = Fuori90(tE + 24) : N2 = Fuori90(tB + 67) : N3 = Fuori90(tA + 53) : N4 = Fuori90(tB + 79)
Case 8 : N1 = Fuori90(tB + 08) : N2 = Fuori90(tD + 52) : N3 = Fuori90(tD + 32) : N4 = Fuori90(tB + 75)
Case 9 : N1 = Fuori90(tB + 57) : N2 = Fuori90(tC + 43) : N3 = Fuori90(tC + 68) : N4 = Fuori90(tD + 56)
End Select
Casi = Casi + 1
Scrivi String(100,"=")
Scrivi "CASO N." & Casi & " - GIUGNO - Estrazione: " & GetInfoEstrazione(Es),1
Scrivi "Figura rilevata sul 5° di NZ: " & flFig,1
Scrivi "Numeri in gioco: " & N1 & "-" & N2 & " e " & N3 & "-" & N4,1
' --- IMPOSTAZIONE GIOCATE CON AMBETTO ---
Ambo(1) = N1 : Ambo(2) = N2
ImpostaGiocata 1,Ambo,Ruo,Poste,Clp,3
Ambo1(1) = N3 : Ambo1(2) = N4
ImpostaGiocata 2,Ambo1,Ruo,Poste,Clp,3
Ambo2(1) = N1 : Ambo2(2) = N2 : Ambo2(3) = N3 : Ambo2(4) = N4
ImpostaGiocata 3,Ambo2,Ruo,Poste,Clp,3
Gioca Es,True
Gioca Es
' --- Verifica Ambetti ---
Scrivi Space(20) & "VERIFICA AMBETTI - Bari = Figura : " & flFig,1,,,2
For k = 1 To Clp
Es2 = Es + k
If Es2 > FIn Then Exit For
Ruo1(1) = BA_ : Ruo1(2) = NZ_
Ambetto = VerificaAmbetto(Ambo,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo1) su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Ambetto = VerificaAmbetto(Ambo1,1,Es2,Retnum,Retvinc)
If Ambetto > 0 Then
Scrivi " ? Ambetto (Gruppo2) su BA: " & Retnum & " del " & DataEstrazione(Es2),1
Scrivi " Vincita: " & Retvinc & "x",1
End If
Next
If ScriptInterrotto Then Exit Sub
End If
End If
End If
If ScriptInterrotto Then Exit For
Next
ScriviResoconto
End Sub
