Sub Main()
Dim ruote(11)
Dim numeri1(4)
Dim poste(3)
Dim Importi(5,9)' posta x colpi
poste(2) = 4
poste(3) = 1
' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - '
ri = InputBox("Scrivi quì sotto da che data inizio a controllare.","DATA","31/12/2009")
xx = InputBox("ruota dove analizzare","1 - 10",1)
ruote(11) = TU_
k = 9 ' colpi
'qui impostiamo la NOSTRA progressione,come la vogliamo
Importi(2,1) = 4 ' ambo
Importi(2,2) = 5
Importi(2,3) = 7
Importi(2,4) = 10
Importi(2,5) = 15
Importi(2,6) = 20
Importi(2,7) = 25
Importi(2,8) = 35
Importi(2,9) = 50
' - - - - - - - - termine progressione
For n = PrimaSuccessiva(ri) To EstrazioneFin
If IndiceMensile(n) = 1 Then
co = co + 1
ColoreTesto 7
numeri1(1) = Fuori90(Estratto(n,xx,1) + 14)
numeri1(2) = Fuori90(Estratto(n,xx,1) + 55)
numeri1(3) = Fuori90(Estratto(n,xx,1) + 61)
Scrivi "-----------------------------------------------------------------------------------------------------" & " Caso n°" & co,2
Messaggio "elab. del " & DataEstrazione(n)
ColoreTesto 0
ImpostaGiocata 1,numeri1,ruote,poste,k,2
ImpostaProgressione 1,Importi
Scrivi "puntate eseguite " & colpi
Scrivi " - 1.cl - " & Importi(2,1) & " euro x ambo e 1 euro di terno"
Scrivi " - 2 cl - " & Importi(2,2) & " euro x ambo e 1 euro di terno"
Scrivi " - 3 cl - " & Importi(2,3) & " euro x ambo e 1 euro di terno"
Scrivi " - 4 cl - " & Importi(2,4) & " euro x ambo e 1 euro di terno"
' etc etc...........
Gioca n
ScriviResoconto True
End If
Next
ScriviResoconto
End Sub