Sub Main
'ColoreTesto 1 :Scrivi " - - - 2° estrazione del mese - - - ",1
Scrivi
Scrivi String(28,32) & "lottoced//VIVO ---- ----",1
ColoreTesto 0
Dim poste(10)
Dim posta(10)
Dim ruote(10)
Dim ruota(10)
Dim am(10)
Dim am1(10)
Dim am2(10)
Dim am3(10)
Dim am4(10)
Dim am5(10)
Dim am6(10)
poste(2) = 1
'poste(3) = 1.5
'poste(4) = 0.2
posta(1) = 1
'posta(8) = 1
'posta(6) = 1
'posta(7) = 1
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 150
For es = ini To fin
If IndiceMensile(es) = 2 Then
ColoreTesto 2 :Scrivi " - - 2° estrazione del mese - -nazionale - - - - - - - - - - - - - - - - - - - - - - - - - ",1
ruote(1) = 12
ruote(2) = 0
am(1) = Fuori90(Estratto(es,9,5) + 26)
ImpostaGiocata 1,am,ruote,poste,8
am1(1) = Fuori90(Estratto(es,9,5) + 26)
am1(3) = Fuori90((Estratto(es,9,5) + Estratto(es,4,3)) * Estratto(es,10,5))
ImpostaGiocata 2,am1,ruote,poste,8
am2(1) = Fuori90(Estratto(es,9,5) + 26)
am2(2) = Fuori90(Estratto(es,9,5) + Estratto(es,3,3) - Estratto(es,2,1))
ImpostaGiocata 3,am2,ruote,poste,8
am3(1) = Fuori90(Estratto(es,9,5) + 26)
am3(2) = Fuori90(Estratto(es,9,5) + Estratto(es,1,2) - Estratto(es,7,5))
ImpostaGiocata 4,am3,ruote,poste,8
ra1 = SerieRitardo(ini,es,am,ruote,1)
ColoreTesto 2:Scrivi "Ritardo x Ambata sulla Ruota = " & Format2(ra1):ColoreTesto 0
Gioca es
Scrivi "Spesa : " & GetSpesa(True),1
Scrivi "Vincita : " & GetVincita(True),1
Scrivi "Utile : " & GetGuadagno(True),1
casi = casi + 1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : " & CInt(casi)
ScriviResoconto
Scrivi
End Sub