Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
mmm...li conosco?![]()
Il 45 e 72 hanno una destinazione diversa del 23, sai gli uomini di oggi come sono....
non hanno il coraggio di dichiarare a noi donne le loro ammirazioni , preferiscono vacillare tra la Sardegna e la Puglia e alla fine, poi,
prendono le vie dell'allontanamento ....
Diversamente il mio uomo (23)...pertinace con le idee chiare, ha detto che mi adora e verrà a prendermi a Bari !![]()
Sub Main
Dim ruote(2)
Dim posta(10)
Dim n(4)
Dim Importi(1,15)
posta(1) = 1
ruote(1) = 1
'ruote(2) = 8
'Importi(1,1) = 1
'Importi(1,2) = 2
'Importi(1,3) = 4
'Importi(1,4) = 8
'Importi(1,5) = 16
'Importi(1,6) = 32
'Importi(1,7) = 64
'Importi(1,8) = 125
'Importi(1,9) = 250
'Importi(1,10) = 500
'Importi(1,11) = 1000
'Importi(1,12) = 2000
'Importi(1,13) = 4000
'Importi(1,14) = 8000
'Importi(1,15) = 16000
Ini = 8400
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
a1 = Estratto(es - 156,6,4)
a3 = Estratto(es - 156,10,2)
a = Abs(a1 - a3)
b = Vert(a)
co = co + 1
n(1) = a
n(2) = b
'n(3) = c
ImpostaGiocata 1,n,ruote,posta,18,1
'ImpostaProgressione 1,Importi
'Scrivi "puntate di gioco che il sottoscritto esegue " & colpi
'Scrivi " - 1° colpo - " & Importi(1,1) & " euro x ambata"
'Scrivi " - 2° colpo - " & Importi(1,2) & " euro x ambata"
'Scrivi " - 3° colpo - " & Importi(1,3) & " euro x ambata"
'Scrivi " - 4° colpo - " & Importi(1,4) & " euro x ambata"
'Scrivi " - 5° colpo - " & Importi(1,5) & " euro x ambata"
'Scrivi " - 6° colpo - " & Importi(1,6) & " euro x ambata"
'Scrivi " - 7° colpo - " & Importi(1,7) & " euro x ambata"
'Scrivi " - 8° colpo - " & Importi(1,8) & " euro x ambata"
'Scrivi " - 9° colpo - " & Importi(1,9) & " euro x ambata"
'Scrivi " - 10° colpo - " & Importi(1,10) & " euro x ambata"
'Scrivi " - 11° colpo - " & Importi(1,11) & " euro x ambata"
'Scrivi " - 12° colpo - " & Importi(1,12) & " euro x ambata"
'Scrivi " - 13° colpo - " & Importi(1,13) & " euro x ambata"
'Scrivi " - 14° colpo - " & Importi(1,14) & " euro x ambata"
'Scrivi " - 15° colpo - " & Importi(1,15) & " euro x ambata"
Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Convergenze del Pantero *°*°* ",1,3,0
ScriviResoconto
End Sub
Sub Main
Dim ruote(2)
Dim posta(10)
Dim n(4)
Dim Importi(1,15)
posta(1) = 1
ruote(1) = 1
Ini = 8400
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
a1 = Estratto(es - 156,10,1)
a2 = Estratto(es - 156,10,3)
a3 = Estratto(es - 156,10,5)
a = Fuori90(a1 + a2 + a3)
b = ComplAdX(a)
co = co + 1
n(1) = a
n(2) = b
ImpostaGiocata 1,n,ruote,posta,20,1
Gioca es
Next
Scrivi
Scrivi String(65,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65," * ")
TestoInBandaPassante "*°*°* Convergenze del Pantero *°*°* ",1,3,0
ScriviResoconto
End Sub
Te passo un altro,ciapa e divertite
[/CODE]
Ma quanto me piase sto modo de parlar... varda te cosa me toca veder scritto ... ahahahha (mi son mesa veneta nè..!!)
Ciao Antelao.. a parte gli scherzi...belli gli script..poi anche a me piace bari come ruota quindi molto utile...ma tu come le usi tutte queste ambate semplici? Hai modo di sapere quale delle due è più forte,magari per convergenze oppure le giochi tutte e basta o fai delle lunghette .. grazie se vorrai rispondermi...
xe beo vedar estraxion
dopo estraxion i numeri ussir che ti gà in testa![]()