Sub Main() ColoreTesto 1
Scrivi " METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU FIRENZE ALLA 13^ ESTRAZIONE MENSILE - COLPI 5",1
Scrivi
ColoreTesto 0
Dim ruote(1)
Dim ambata(1): Dim ambo1(2) : Dim terno(3) : Dim quaterna(4) : Dim poste(2) : Dim postee(4)
poste(1) = 1
postee(3) = 1
'------- nuovo ------------------
Dim posta(2) : Dim postae(4)
poste(1) = 1
posta(2) = 1
postee(3) = 1
postae(4) = 1
ruote(1) = 3
klp = 5
ini = 7530
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 13 Then
casi = casi + 1
co = co + 1
ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
Scrivi "METODO JUVENTUS AMBATA-AMBO-TERNO-QUATERNA SU FIRENZE ALLA 13^ ESTRAZIONE MENSILE - COLPI 5",1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile",1
ColoreTesto 0
ambata(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
ImpostaGiocata 1,ambata,ruote,poste,klp,5
ambo1(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
ambo1(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
ImpostaGiocata 2,ambo1,ruote,posta,klp,5
terno(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
terno(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
terno(3) = Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,2) + 49)
ImpostaGiocata 3,terno,ruote,postee,klp,5
quaterna(1) = Fuori90(Estratto(es,PA_,5) * Estratto(es,VE_,3) + 19)
quaterna(2) = Fuori90(Estratto(es,BA_,5) * Estratto(es,VE_,3) + 40)
quaterna(3) = Fuori90(Estratto(es,BA_,4) + Estratto(es,PA_,2) + 49)
quaterna(4) = Fuori90(Estratto(es,CA_,4) + Estratto(es,TO_,5) + 77)
ImpostaGiocata 4,quaterna,ruote,postae,klp,5
Gioca es,1
End If
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
ScriviResoconto
End Sub