Ciao Pat,
ti allego un giochino che è molto utile per
le tue convergenze su BARI.
Tramite il mio maestro (il buon Black)
ho estrapolato su Bari questa terzina (nei 3 colpi)
sappimi dire qualcosa se convergi
BA 3-24-38
Ciaooooo
ti allego un giochino che è molto utile per
le tue convergenze su BARI.
Tramite il mio maestro (il buon Black)
ho estrapolato su Bari questa terzina (nei 3 colpi)
sappimi dire qualcosa se convergi
BA 3-24-38
Ciaooooo
Codice:
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 = 8300
fin = EstrazioneFin
co = 0
For es = Ini To fin
AvanzamentoElab Ini,fin,es
a1 = Estratto(es,1,1)
a3 = Estratto(es,6,3)
a5 = Estratto(es,1,5)
b1 = Estratto(es,10,1)
b3 = Estratto(es,5,3)
b5 = Estratto(es,10,5)
a = Fuori90(a1 & b3 & a5)
b = Fuori90(b1 & a3 & b5)
c = Fuori90(a + b)
d = 90 - c
e = Fuori90(d + 53)
f = Distanza(d,53)
g = Fuori90((e + f) + 8)
co = co + 1
n(1) = e
n(2) = f
n(3) = g
ImpostaGiocata 1,n,ruote,posta,12,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