X SUPERCIUK

[Roby]

CIAO SUPERCIUK

VEDO CON MOLTO PIACERE CHE CERTE COSE TI FANNO GOLA.... SEI SEMPRE IN GIRO A SBIRCIARE SU QUESTO SITO E NON TI ACCONTENTI DEI TUOI
SUPER LATIVI PROGRAMMI,

METTICI DEL TUO E ......DIMOSTRANDOCI LA TUA BRAVURA INTRINSEGA

DAMMI UNA MANO TU, CHE SEI "SUPER IN TUTTO"

 

[keeper]

quote:Originally posted by claudio8

CIAO SUPERCIUK

VEDO CON MOLTO PIACERE CHE CERTE COSE TI FANNO GOLA.... SEI SEMPRE IN GIRO A SBIRCIARE SU QUESTO SITO E NON TI ACCONTENTI DEI TUOI
SUPER LATIVI PROGRAMMI,

METTICI DEL TUO E ......DIMOSTRANDOCI LA TUA BRAVURA INTRINSEGA

DAMMI UNA MANO TU, CHE SEI "SUPER IN TUTTO"

caro claudio8 invece di fare il detective dammi una mano
ti posto questo script non riesco a fargli fare la verifica anche a tutte per esito ambo
Sub Main()
' un solo ambo da giocare a tutte metodo sommativo
Dim rt(2) 'le ruote sono due (2)
Dim nr(2) ' i nr in gioco sono 2

Dim pta(1) ' la puntata che faccio è l'ambo
pta(1) = 1 'la puntata sull'ambo (2) è di 1 euro
rt(1) = 1 ' la ruota è bari
rt (2) = 8 ' la ruota è roma
k = 7 ' i colpi in gioco sono 5
For n = 8000 To EstrazioneFin
If IndiceMensile = 1 Then 'i conti li faccio sulla prima estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,1,1) * 80)'prendo il 1° estratto della 1^ estraz del mese di BA
nr(2) = Fuori90(Estratto(n,8,5) + 35)'prendo il 5° estratto della 1^ estraz del mese di RO
'i due numeri così ricavati li metto in gioco per ambo a tutte,
ImpostaGiocata 1,nr,rt,pta,k,1 ' imposto la giocata e la stoppo all'uscita dell'ambo a tutte= 2
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[keeper]

vedi se così è corretto? grazie
Sub Main()
' un solo ambo da giocare a tutte metodo sommativo
Dim rt(3) 'le ruote sono due (2)
Dim nr(2) ' i nr in gioco sono 2

Dim pta(2) ' la puntata che faccio è l'ambo
pta(2) = 1 'la puntata sull'ambo (2) è di 1 euro
rt(1) = 1 ' la ruota è bari
rt (2) = 8 ' la ruota è roma
rt (3) = 11 ' la ruota è tutte
k = 7 ' i colpi in gioco sono 7
For n = 8000 To EstrazioneFin
If IndiceMensile = 1 Then 'i conti li faccio sulla prima estrazione del mese
ng = 0
nr(1) = Fuori90(Estratto(n,1,1) * 80)'prendo il 1° estratto della 1^ estraz del mese di BA
nr(2) = Fuori90(Estratto(n,8,5) + 35)'prendo il 5° estratto della 1^ estraz del mese di RO
'i due numeri così ricavati li metto in gioco per ambo a tutte,
ImpostaGiocata 2,nr,rt,pta,k,2 ' imposto la giocata e la stoppo all'uscita dell'ambo = 1
Gioca n
End If
Next
ScriviResoconto
End Sub

 

[keeper]

dimenticavo io devo perà puntare solo sull'ambo a tutte