Sub Main
Dim b(5),g(5),c(5),posta(2),ruota(1)
posta(2)=1
kk=10
For p1= 2 To 89
est=9000
fine=9100
For se= est To fine
Messaggio se & " " & p1
For ru= 1 To 1
b(1)=Estratto(se,ru,1)
b(2)=Estratto(se,ru,2)
b(3)=Estratto(se,ru,3)
b(4)=Estratto(se,ru,4)
b(5)=Estratto(se,ru,5)
If b(1)>b(2) Then g(1)=b(1)-b(2) Else g(1)=(90+b(1)-b(2))
If b(2)>b(3) Then g(2)=b(2)-b(3) Else g(2)=(90+b(2)-b(3))
If b(3)>b(4) Then g(3)=b(3)-b(4) Else g(3)=(90+b(3)-b(4))
If b(4)>b(5) Then g(4)=b(4)-b(5) Else g(4)=(90+b(4)-b(5))
If b(5)>b(1) Then g(5)=b(5)-b(1) Else g(5)=(90+b(5)-b(1))
For v1= 1 To 5
c(v1)=(g(v1)+p1) Mod 90
Next
Scrivi g(1) & " " & g(2) & " " & g(3) & " " & g(4) & " " & g(5) & " " & p1
ruota(1)=ru
ImpostaGiocata 1,c,ruota,posta,kk,2
Gioca se,True
Next'ru
Next'se
ScriviResoconto
Next'p1
End Sub
ciao
se prendi un solo numero il risultato del resoconto e diverso
es: l'ultimo se al p1 metti 89 to 89