Sub Main()
Scrivi " Firenze Genova prima del mese ",1
Scrivi " METODO DI DONATELLA E LISTATO DI Pomito",1
Dim ruote(10),ruota(2),terno(3),terno1(3),ruotee(2)
Dim ambata(1): Dim ambo(2) : Dim poste(1) : Dim posta(2) : Dim postee(3)
poste(1) = 1
posta(2) = 1
postee(2) = 1
postee(3) = 1
ruote(1) = 3
ruote(2) = 4
ruota(1) = PA_
ruota(2) = TT_
ruotee(1) = PA_
ruotee(2) = GE_
klp = 13
ini = 8700
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
AvanzamentoElab ini,fin,es
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
'..................giocata x ambata.............
ambata(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,4))
ImpostaGiocata 1,ambata,ruote,poste,klp 'se tolgo il numero mi visualizza fino a 13 estr.
'.......................giocata x ambo.....................
ambo(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,4))
ambo(2) = Abs(Estratto(es,FI_,5) - Estratto(es,GE_,4))
ImpostaGiocata 2,ambo,ruota,posta,klp'se metto il numero si ferma al primo esito positivo.
ambo(1) = Vert(ambata(1))
ambo(2) = Estratto(es,FI_,5)
ImpostaGiocata 3,ambo,ruota,posta,klp
terno(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,4))
terno(2) = Abs(Estratto(es,FI_,5) - Estratto(es,GE_,4))
terno(3) = Vert(ambata(1))
ImpostaGiocata 4,terno,ruotee,posta,klp
terno1(1) = Fuori90(Estratto(es,FI_,5) + Estratto(es,GE_,4))
terno1(2) = Abs(Estratto(es,FI_,5) - Estratto(es,GE_,4))
terno1(3) = Estratto(es,FI_,5)
ImpostaGiocata 5,terno1,ruotee,posta,klp
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub
