quote:Originally posted by LuigiB
ho fatto in modo che te lo chieda lui , senti ma come mai gioca sulla ruota 6 e cerca i numeri sulla ruota 3 ? E' giusto ? Il l'ho lasciato cosi
Codice:Sub Main() Dim r(10) Dim b1(1) Dim p1(10) Dim PosVoluta Dim c Dim a1 PosVoluta = CInt(InputBox ("Inserire posizione da 1 a 5")) If PosVoluta >0 And PosVoluta <= 5 Then p1(5+ PosVoluta) = 1 '<-----poste in gioco indice da 6 a 10 per ed1 , ed2 , ed3 eccetera r(1) = 6 ' gioca sulla ruota numero 6 c = 50 ' colpi di gioco fin = EstrazioneFin For n = 7537 To fin If IndiceMensile(n + 1) = 1 Then a1 = Fuori90(Estratto(n , 3, PosVoluta) + 18) ' come mai qui cerca il numero sulla ruota 3 invece che 6 ? b1(1) = a1 ' numero in gioco ImpostaGiocata 1,b1 ,r,p1, c, 5+ PosVoluta Gioca n End If Next ScriviResoconto Else MsgBox "Posizione non valida" End If End Sub
si il metodo cerca sulla ruota fi e mette in gioco sulla ruota na
ho cercato qualche script semplice per iniziare a guardarli. non sò se ci capirò mai niente, tentar non nuoce.
grazie mille sempre celerissimo