Ciao ho provato a fare un mix di script, ma non capendoci quasi niente mi da errore 13-tipo non corrispondente. chi mi può aiutare?
grazie [:I]
Sub Main()
Dim rg(10)
Dim rr(10)
Dim b1(1)
Dim p1(10)
Dim PosVoluta
Dim PosVoluta1
Dim PosVoluta2
Dim c(1)
Dim c1
Dim a1
p1(10) = 1
rg(1) = CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI GIOCO",,6))
c(1) = CInt(InputBox("Inserire colpi di gioco",,5))
rr(1) = CInt(InputBox("INSERIRE IL NUMERO DELLA RUOTA DI RICAVO",,3))
PosVoluta = CInt(InputBox("Inserire posizione da 1 a 5 INSERIRE N° 5 PER CONTROLLO",,5))
PosVoluta1 = CInt(InputBox("Inserire posizione da 1 a 5",,1))
PosVoluta2 = CInt(InputBox("Inserire posizione da 1 a 5",,3))
If PosVoluta > 0 And PosVoluta <= 5 And PosVoluta1 > 0 And PosVoluta1 <= 5 And PosVoluta2 > 0 And PosVoluta2 <= 5 Then
p1(5 + PosVoluta) = 1 '<-----poste in gioco indice da 6 a 10 per ed1 , ed2 , ed3 eccetera
p1(5 + PosVoluta1) = 1
p1(5 + PosVoluta2) = 1
c1 = c
fin = EstrazioneFin
For n = 7537 To fin
If IndiceMensile(n + 1) = 1 Then
a1 = Fuori90(Estratto(n,rr,PosVoluta) + 18)
b1(1) = a1 ' numero in gioco
ImpostaGiocata 1,b1,rg,p1,c1,5 + PosVoluta
Gioca n
End If
Next
ScriviResoconto
Else
MsgBox "Posizione non valida"
End If
End Sub