Sub Main()
Scrivi" metodo + prev di blady ",1' -
http://forum.lottoced.com/f8/metodo-prev-106363/ -
Dim n(2),posta(2),ruota(2),m(4),poste(3)
posta(2) = 1
poste(3) = 1
ruota(1) = BA_
ruota(2) = CA_
k = 10
Ini = EstrazioneIni + 8579
fin = EstrazioneFin
For es = Ini To Fin
Messaggio es
AvanzamentoElab Ini,fin,es
If IndiceMensile(es) = 1 Then
co = co + 1
Scrivi String(106,"=") & " Caso n°" & CInt(co),1
n(1) = Fuori90(Estratto(es,FI_,1) * 68)
n(2) = Fuori90(Estratto(es,NZ_,4) + 86)
ImpostaGiocata 1,n,ruota,posta,k,2
n(1) = Fuori90(Estratto(es,FI_,1) + 03)
n(2) = Fuori90(Estratto(es,GE_,4) + 78)
ImpostaGiocata 2,n,ruota,posta,k,2
m(1) = Fuori90(Estratto(es,FI_,1) * 68)
m(2) = Fuori90(Estratto(es,NZ_,4) + 86)
m(3) = Fuori90(Estratto(es,FI_,1) + 03)
m(4) = Fuori90(Estratto(es,GE_,4) + 78)
ImpostaGiocata 3,m,ruota,poste,k,2
Gioca es,True,,1
End If
Next
ScriviResoconto
End Sub