Sub Main
Dim Nu(6),Nn(1),Sp(1),Ru(1),Rt(2),posta(1),poste(5)
posta(1) = 1
poste(2) = 1.5
poste(3) = .5
qt = CInt(InputBox("Quante Estrazioni Verifico",,1000))
Ini = EstrazioneFin - qt
fin = EstrazioneFin
spia = 28
pos = 2
Ru(1) = BA_
Rt(1) = BA_
Rt(2) = MI_
Sp(1) = Spia
'CALCOLO DELLE Combinazioni
'PER CALCOLARE L’AMBATA
'Ambata :
'06
'(SI CONSIGLIA DI GIOCARE L’AMBATA PER RECUPERO)
Nn(1) = 6
For es = Ini To fin
If Estratto(es,1,pos) = spia Then
k = k + 1
'1° Abbinamento: 2° Estratto di Bari X 5° Estratto di Firenze+27
'2° Abbinamento: 5° Estratto di Firenze + 3° Estratto Di Roma+03
'3° Abbinamento: 3° Estratto di Firenze X 3° Estratto di Genova+13
'4° Abbinamento: 2° Estratto di Milano+1° Estratto di Torino+11
'5° Abbinamento: 4° Estratto di Milano+3° Estratto di Napoli+26
Nu(1) = Fuori90(Estratto(es,1,2) +(Estratto(es,3,5) + 27))
Nu(2) = Fuori90(Estratto(es,3,5) +(Estratto(es,8,3) + 3))
Nu(3) = Fuori90(Estratto(es,3,3) +(Estratto(es,4,3) + 13))
Nu(4) = Fuori90(Estratto(es,5,2) +(Estratto(es,9,1) + 11))
Nu(5) = Fuori90(Estratto(es,5,4) +(Estratto(es,6,3) + 26))
Nu(6) = Nn(1)
Scrivi String(130,"=")
Scrivi GetInfoEstrazione(es) & vbTab & StringaEstratti(es,Ru(1)) & vbTab & StringaNumeri(Sp,,1),1
Scrivi "Numero per Ambata : " & Nn(1),1,1,,1,3
Scrivi "Numeri per Ambo : " & StringaNumeri(Nu,,1),1,1,,1,3
Scrivi String(120,"-") & " Caso N. " & k
ImpostaGiocata 1,Nn,Rt,posta,4,1
ImpostaGiocata 2,Nu,Rt,poste,4,2
Gioca es,1,,1
Scrivi "Spesa parziale : " & GetSpesa(False),1,1,,1,2
Scrivi "Vincita Parziale : " & GetVincita(False),1,1,,2,2
Scrivi "Utile Parziale : " & GetGuadagno(False),1,1,,7,2
End If
Next
ScriviResoconto
End Sub