----------------------------------------------------------------
Sub main()
'1ª DEL MESE
'1° BA + 5°BA
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1
For n=7000 To EstrazioneFin
If IndiceMensile(n)=1 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
--------------------------------------------------------------
Sub main()
'2ª DEL MESE
'1° BA + 5° CA
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=2 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------
Sub main()
'3ª DEL MESE
'3°BA + 3°CA
Dim ruote(10)
Dim numeri1(10)
Dim posta(5)
posta(1)=1
posta(2)=1
ruote(1)=1 'RUOTA DI GIOCO 1 STA PER BARI
For n=7000 To EstrazioneFin
If IndiceMensile(n)=3 Then
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,1,5))
ImpostaGiocata 1,numeri1,ruote,posta,10,2
Gioca n
End If
Next
ScriviResoconto
End Sub
----------------------------------------------------------------