'calcolato su ogni estrazione e quindi Gioca la successiva.
Sub main()
Dim ruote(10)
Dim ruot(1)
Dim nu(4)
Dim poste(2)
Dim post(5)
poste(1)=1 : poste(2)=1
post(2)=1 : post(3)=1
ini=EstrazioneFin -50
For es=ini To EstrazioneFin
ruote(1)=1 :ruote(2)=2
nu(1)=Fuori90(Estratto(es,1,3)+(Estratto(es,2,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,1,3)-(Estratto(es,2,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 1,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 2,nu,ruot,post,5,0
ruote(1)=2 :ruote(2)=3
nu(1)=Fuori90(Estratto(es,2,3)+(Estratto(es,3,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,2,3)-(Estratto(es,3,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 3,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 4,nu,ruot,post,5,0
ruote(1)=3 :ruote(2)=4
nu(1)=Fuori90(Estratto(es,3,3)+(Estratto(es,4,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,3,3)-(Estratto(es,4,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 5,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 6,nu,ruot,post,5,0
ruote(1)=4 :ruote(2)=5
nu(1)=Fuori90(Estratto(es,4,3)+(Estratto(es,5,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,4,3)-(Estratto(es,5,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 7,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 8,nu,ruot,post,5,0
ruote(1)=5 :ruote(2)=6
nu(1)=Fuori90(Estratto(es,5,3)+(Estratto(es,6,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,5,3)-(Estratto(es,6,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 9,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 10,nu,ruot,post,5,0
ruote(1)=6 :ruote(2)=7
nu(1)=Fuori90(Estratto(es,6,3)+(Estratto(es,7,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,6,3)-(Estratto(es,7,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 11,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 12,nu,ruot,post,5,0
ruote(1)=7 :ruote(2)=8
nu(1)=Fuori90(Estratto(es,7,3)+(Estratto(es,8,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,7,3)-(Estratto(es,8,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 13,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 14,nu,ruot,post,5,0
ruote(1)=8 :ruote(2)=9
nu(1)=Fuori90(Estratto(es,8,3)+(Estratto(es,9,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,8,3)-(Estratto(es,9,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 15,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 16,nu,ruot,post,5,0
ruote(1)=9 :ruote(2)=10
nu(1)=Fuori90(Estratto(es,9,3)+(Estratto(es,10,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,9,3)-(Estratto(es,10,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 17,nu,ruote,poste,5,0
ruot(1)=11
ImpostaGiocata 18,nu,ruot,post,5,0
ruote(1)=10 :ruote(2)=1
nu(1)=Fuori90(Estratto(es,10,3)+(Estratto(es,1,3)))
nu(2)=Vert(nu(1))
nu(3)=Abs(Estratto(es,10,3)-(Estratto(es,1,3)))
nu(4)=Vert(nu(3))
ImpostaGiocata 19,nu,ruote,poste,12,0
ruot(1)=11
ImpostaGiocata 20,nu,ruot,post,12,0
Gioca es
Next
ScriviResoconto
End Sub
[/img]
buona giornata
