Sub main()
Dim ruote(1)
Dim poste(3)
Dim am(3)
poste(2)=4:poste(3)=1
a=eval (InputBox ("Digita il 1° numero ","1° numero",1))
b=eval (InputBox ("Digita il 2° numero ","2° numero",2))
c=eval (InputBox ("Digita il 3° numero ","3° numero",3))
d=eval (InputBox ("Digita il 4° numero ","4° numero",4))
e=eval (InputBox ("Digita il 5° numero ","5° numero",5))
ruote(1)=CInt(InputBox("La ruota su cui vuoi giocare?","Ruota di gioco",10))
k=CInt(InputBox("Durata gioco","Durata gioco",14))
fin=EstrazioneFin
ini=fin-500
For es = ini To fin
fin= EstrazioneFin
If IndiceMensile(es)=1 Then
AvanzamentoElab ini,fin,es
Scrivi:Scrivi String(70,"o")
Scrivi "< num. 1="&a&" > < num. 2="&b&" > < num. 3="&c&" > < num. 4="&d&" > < num.5="&e&" > "' F="&f&" G="&g&" H="&h&" I="&i,1
Scrivi String(70,"-"):scrivi
ng=0
am(1)=a:am(2)=b:am(3)=c
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=a:am(2)=b:am(3)=d
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=a:am(2)=b:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=a:am(2)=c:am(3)=d
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=a:am(2)=c:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=a:am(2)=d:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=b:am(2)=c:am(3)=d
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=b:am(2)=c:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=b:am(2)=d:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
am(1)=c:am(2)=d:am(3)=e
ng=ng+1
ImpostaGiocata ng,am,ruote,poste,k
Gioca es
End If
Next
ScriviResoconto
Scrivi:ColoreTesto 1:Scrivi "< by maxma62 >",1
End Sub