GRAZIE VIVO ANCHE SE NON GIOCO SPESSO
Sub Main()
Scrivi " Metodo sommativo Ambi su Genova di vivo ",1 ' -
Dim n(5),ruote(2),poste(5)
poste(2) = 5
ini = EstrazioneIni + 8478
fin = EstrazioneFin
For es = ini To fin
Messaggio(es)
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 8 Then
Casi = Casi + 1
Scrivi String(60,"-") & " caso n°" & casi
ruote(1) = GE_
ruote(2) = GE_
n(1) = Fuori90(Estratto(es,TO_,5) + 09)
n(2) = Fuori90(Estratto(es,TO_,5) + 53)
n(3) = Fuori90(Estratto(es,VE_,5) + 16)
n(4) = Fuori90(Estratto(es,MI_,5) + 55)
n(5) = Fuori90(Estratto(es,RO_,5) + 42)
ImpostaGiocata 1,n,ruote,poste,7,3
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub