18 a PALERMO IN 3° ps

[Tatone]

...vi ricordate??? si mette in gioco la terzina 12-21-90 su PA-BA

 

[90marco]

Yes

 

[Roby]

Sbaglio o Ced è nuovamente cambiato?
Qui c'è script e metodo
Ciao

http://forum.lottoced.com/f8/ch-mi-pu%F2-auitare-89448/

 

[Roby]

...vi ricordate??? Si mette in gioco la terzina 12-21-90 su pa-ba

ho convergenza con questi numeri.per prossime estrazioni.grazie.

 

[morena59]

Sub Main()
Dim posta(5)
Dim poste(5)
Dim ruote(5)
Dim am(3)
poste(1) = 1
poste(2) = 1
poste(3) = 1
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 1000
For es = ini To fin
For r1 = 1 To 1
For p1 = 1 To 1
a = Estratto(es,1,3)
b = Estratto(es,7,3)
If(a) = 18 Or(b) = 18 Then
ruote(1) = 1
ruote(2) = 7
am(1) = 12
am(2) = 21
am(3) = 90
ImpostaGiocata 1,am,ruote,poste,12
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ColoreTesto 0 : Scrivi
Gioca es
casi = casi + 1
End If
Next
Next
Next
ScriviResoconto
End Sub

 

[Tatone]

Sub Main()
Dim posta(5)
Dim poste(5)
Dim ruote(5)
Dim am(3)
poste(1) = 1
poste(2) = 1
poste(3) = 1
casi = 0
fin = EstrazioneFin
ini = EstrazioneFin - 1000
For es = ini To fin
For r1 = 1 To 1
For p1 = 1 To 1
a = Estratto(es,1,3)
b = Estratto(es,7,3)
If(a) = 18 Or(b) = 18 Then
ruote(1) = 1
ruote(2) = 7
am(1) = 12
am(2) = 21
am(3) = 90
ImpostaGiocata 1,am,ruote,poste,12
Scrivi : ColoreTesto 2 : Scrivi String(40,32) & " Pronostico n° " & cont & "",1
TestoInBandaPassante " ***** Listato by Antelao ***** ",1,3,0
ColoreTesto 0 : Scrivi
Gioca es
casi = casi + 1
End If
Next
Next
Next
ScriviResoconto
End Sub

aaaa+++++bbbbb=supercalifragilistichespiralitoso

 

[Roby]

Ah ah ah ah sei forte tatone!!!!!