2 CINQUINE DIAMANTE

[nunzio65]

Sub Main()

ColoreTesto 1
Scrivi
Scrivi "2 CINQUINE DIAMANTE ALLA 5° 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 poste(5)
poste(2) = 1
poste(3) = 1
poste(4) = .50
poste(5) = .50
klp = 13
ini = 10245
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 5 Then
ruote(1) = 1
casi = casi + 1
co = co + 1
ColoreTesto 2:Scrivi String(100,"$") & " Caso n° " & casi,1
ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
ColoreTesto 0
nn1(1) = Fuori90(Estratto(es,1,1) + 5)
nn1(2) = Fuori90(Estratto(es,2,3) + 23)
nn1(3) = Fuori90(Estratto(es,1,1) * 4)
nn1(4) = Fuori90(Estratto(es,2,3) + 74)
nn1(5) = Fuori90(Estratto(es,1,1) + 75)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(es,1,1) + 1)
nn2(2) = Fuori90(Estratto(es,1,1) + 2)
nn2(3) = Fuori90(Estratto(es,1,1) + 35)
nn2(4) = Fuori90(Estratto(es,1,1) + 60)
nn2(5) = Fuori90(Estratto(es,1,1) + 71)
ImpostaGiocata 2,nn2,ruote,poste,klp

Gioca es,1
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

[farfalla2]

BARI AMBO 6-85........BRAVISSIMOOOOOOOO

[nunzio65]

le previsioni sono da seguire fino al termine. sono molto buone, daranno ancora risultati eccitanti
Cordiali Saluti

[LUCAG.]

Fantastico a dicembre 2023 vado a giocare nulla di fatto . Ovvio lottomatica dato che adesso è americana non ci da mai una gioia.