Sub main()
Dim am(2),am1(2),am2(3),am3(5),am4(5),am5(3),am6(3),am7(3),am8(10)
Dim ruote(2)
Dim ruot(1)
Dim posta(5)
Dim poste(5)
posta(1)=1
poste(2)=1
poste(3)=1
casi=0
fin=EstrazioneFin
ini=8319
For es=ini To fin
For r=2 To 2
For p=1 To 5
a=Estratto(es,r,p)
If a=86 Then 'numero spia di ricerca puoi sostituirlo
Scrivi "----------------------------------------------------"
Scrivi "Condizione: "&Left(NomeRuota(r),2)&" "&Cint(a)
ruote(1)=1
ruote(2)=2
am(1)=Fuori90(Estratto(es,BA_,1)* Estratto(es,GE_,2))
ImpostaGiocata 1,am,ruote,posta,12,0
am1(1)=am(1)
am1(2)=Fuori90(Estratto(es,CA_,1)+Estratto(es,FI_,1))
ImpostaGiocata 2,am1,ruote,poste,12,0
am2(1)=am(1)
am2(2)=Fuori90(Estratto(es,CA_,5) + 61)
ImpostaGiocata 3,am2,ruote,poste,12,0
am3(1)=am(1)
am3(2)=Fuori90(Estratto(es,CA_,1)+Estratto(es,FI_,1))
am3(3)=Fuori90(Estratto(es,CA_,2)*Estratto(es,PA_,5))
ImpostaGiocata 4,am3,ruote,poste,12,0
am4(1)=am(1)
am4(2)=Fuori90(Estratto(es,CA_,5) + 61)
am4(3)=Fuori90(Estratto(es,CA_,2)*Estratto(es,PA_,5))
ImpostaGiocata 5,am4,ruote,poste,12,0
am5(1)=am(1)
am5(2)=Fuori90(Estratto(es,CA_,5) + 61)
am5(3)=Fuori90(Estratto(es,CA_,2)*Estratto(es,PA_,5))
ImpostaGiocata 5,am5,ruote,poste,12,0
am6(1)=am(1)
am6(2)=Fuori90(Estratto(es,CA_,1)+Estratto(es,FI_,1))
am6(3)=Fuori90(Estratto(es,FI_,5)+ Estratto(es,TO_,4))
ImpostaGiocata 6,am6,ruote,poste,12,0
am7(1)=am(1)
am7(2)=Fuori90(Estratto(es,CA_,5) + 61)
am7(3)=Fuori90(Estratto(es,FI_,5)+ Estratto(es,TO_,4))
ImpostaGiocata 7,am7,ruote,poste,12,0
ruot(1)=11
am8(1)=am(1)
am8(2)=am1(2)
am8(3)=am2(2)
am8(4)=am3(3)
am8(5)=am4(3)
am8(6)=am5(3)
am8(7)=am7(3)
ImpostaGiocata 8,am8,ruot,poste,12,0
Gioca es
casi=casi+1+1
End If
Next
Next
Next
Scrivi
Scrivi
Scrivi "Numero Totale casi analizzati: "&Cint(casi)
'ScriviResoconto
End Sub