AMBI A TUTTE

[farfalla2]

QUESTO METODO NON E' IL MIO,FORSE LO HO PRESO IN QUESTO FORUM O FORSE IN ALTRI, RICAVA 3 AMBI DA GIOCARE A TUTTE E VIENE RICAVATO SU OGNI ESTRAZIONE DEL MESE.
PRIMO AMBO:
PRIMO DI BARI X 61........TERZO DI CA X 47
SECONDO AMBO:
PRIMO DI BARI X 7 ........QUINTO DI PA + 8
TERZO AMBO:
PRIMO DI BARI X 45 ........QUINTO DI GE X 71
PER CORTESIA AVREI BISOGNO DI UNO SCRIPT CHE MI CALCOLA QUESTI AMBI SU OGNI ESTRAZIONE DEL MESE. RINGRAZIO DI CUORE CHI MI AIUTERA'.

 

[Kewin!]

Spero sia giusto

'METODO SOMMATIVO PER AMBO A TUTTE by Farfalla2 http://forum.lottoced.com/f12/ambi-tutte-112148/
Sub Main()
ColoreTesto 2: Scrivi " Ambi a tutte ad ogni estrazione - Listed by Kewin",1,,0
Scrivi"°º¤ø,¸¸,ø¤º°`°º¤ø,¸,ø¤°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸,ø¤º°`°º¤ø,¸¸",1
Scrivi""
Dim posta(5)
Dim ruota(10)
Dim ruota1(10)
Dim am1(10),am2(10),am3(10)
posta(2) = 1
ruota(1) = 5
ruota1(1) = 11
rs = InputBox("Quante estrazioni vuoi controllare?",,100)

fin = EstrazioneFin
ini = fin - rs
For es = ini To fin

n1 = Fuori90(Estratto(es,1,1)* 61)
n2 = Fuori90(Estratto(es,2,3)* 47)
n3 = Fuori90(Estratto(es,1,1)* 7)
n4 = Fuori90(Estratto(es,7,5) + 8)
n5 = Fuori90(Estratto(es,1,1)* 45)
n6 = Fuori90(Estratto(es,4,5)*71)

am1(1) = n1
am1(2) = n2
ImpostaGiocata 1,am1,ruota1,posta,11,2
am2(1) = n3
am2(2) = n4
ImpostaGiocata 2,am2,ruota1,posta,11,2
am3(1) = n5
am3(2) = n6
ImpostaGiocata 3,am3,ruota1,posta,11,2
Gioca es
Next
ScriviResoconto
End Sub

Kewin

 

[farfalla2]

CIAO KEWIN....GRAZIEEEEEEEEEEEE