LottoPassion

Sub Main()

ColoreTesto 1
Scrivi
Scrivi "METODO PLUTO ALLA 1° ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Nunzio",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(5): Dim nn2(5) : Dim nn3(5) : Dim poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = .50
poste(5) = .50
klp = 13
ini = 10181
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
ruote(1) = 12
casi = casi + 1
co = co + 1
nn1(1) = Fuori90(Estratto(es,12,1) + 50)
nn1(2) = Fuori90(Estratto(es,9,1) + 68)
nn1(3) = Fuori90(Estratto(es,7,2) + 69)
nn1(4) = Fuori90(Estratto(es,12,1) + 62)
nn1(5) = Fuori90(Estratto(es,12,2) + 27)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(es,12,1) + 57)
nn2(2) = Fuori90(Estratto(es,5,2) * 89)
nn2(3) = Fuori90(Estratto(es,8,1) + 12)
nn2(4) = Fuori90(Estratto(es,12,1) + 14)
nn2(5) = Fuori90(Estratto(es,1,3) + 26)
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = Fuori90(Estratto(es,12,1) + 1)
nn3(2) = Fuori90(Estratto(es,1,1) + 14)
nn3(3) = Fuori90(Estratto(es,12,1) + 33)
nn3(4) = Fuori90(Estratto(es,12,1) + 39)
nn3(5) = Fuori90(Estratto(es,12,1) + 90)
ImpostaGiocata 3,nn3,ruote,poste,klp
Gioca es,1
TestoInBandaPassante "Metodo Pluto - By Nunzio ",1,3,0
ColoreTesto 0
End If
Call AvanzamentoElab(Ini,fin,es)
If ScriptInterrotto Then Exit For
Next
Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
Call ScriviResoconto()
End Sub

ANCHE PLUTO NON ABBAIA PIU.