BARI MAGICA

[nunzio65]

Sub Main()

ColoreTesto 1
Scrivi
Scrivi "5 TERNI A BA 1^ ESTRAZIONE MENSILE",1
Scrivi
Scrivi
Scrivi " METODO E LIST BY Nunzio",1
Scrivi
ColoreTesto 0
Dim ruote(10)
Dim nn1(3): Dim nn2(3) : Dim nn3(3) : Dim nn4(3) : Dim nn5(3) : Dim poste(3)
poste(2) = 2
poste(3) = 1
klp = 10
ini = 9945
fin = EstrazioneFin
co = 0
For es = ini To fin
If IndiceMensile(es) = 1 Then
Messaggio DataEstrazione(es)
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) + 90)
nn1(2) = Fuori90(Estratto(es,2,3) + 55)
nn1(3) = Fuori90(Estratto(es,1,3) + 52)
ImpostaGiocata 1,nn1,ruote,poste,klp
nn2(1) = Fuori90(Estratto(es,1,1) + 31)
nn2(2) = Fuori90(Estratto(es,8,4) * 72)
nn2(3) = Fuori90(Estratto(es,2,5) + 78)
ImpostaGiocata 2,nn2,ruote,poste,klp
nn3(1) = Fuori90(Estratto(es,1,1) * 83)
nn3(2) = Fuori90(Estratto(es,4,3) * 44)
nn3(3) = Fuori90(Estratto(es,10,5) + 18)
ImpostaGiocata 3,nn3,ruote,poste,klp
nn4(1) = Fuori90(Estratto(es,1,1) + 46)
nn4(2) = Fuori90(Estratto(es,7,4) * 87)
nn4(3) = Fuori90(Estratto(es,1,1) + 5)
ImpostaGiocata 4,nn4,ruote,poste,klp
nn5(1) = Fuori90(Estratto(es,1,1) + 1)
nn5(2) = Fuori90(Estratto(es,2,5) + 7)
nn5(3) = Fuori90(Estratto(es,1,1) + 41)
ImpostaGiocata 5,nn5,ruote,poste,klp
Gioca es,1
TestoInBandaPassante "*°*°*°Metodo BARI MAGICA*°*°*° - **°°By Nunzio°°** ",1,7,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

[farfalla2]

BENTORNATO E.....GRAZIEEEEEEEEE

[nunzio65]

Tutte le volte che posso, ci sono
Ciao