correzione script

[Alien.]

Sub Main()
Dim ruote (10)
Dim ruota1(10)
Dim nu1(10)
Dim nu2(5)
Dim nu3(3)
Dim nu4(3)
Dim nu5(3)
Dim numeri6 (3)
Dim poste (3)
Dim posta (3)
poste(2) = 1
posta (2) =1
posta(3) = 1
ruota(4) = 0
ruota(1) = 5
ruota(2) = 6
For n =9483 To EstrazioneFin
If IndiceMensile(2) = 1 Then
a = Fuori90 (Figura( Estratto(n - 60,5,1)) + Figura(Estratto(n,5,2)) + Figura(n,5,2)) + Figura(Estratto((n,5,3))
Figura(Estratto(n,5,4)) + Figura(Estratto(n5,5))+ 90 )
b = Fuori90(Figura( Estratto(n - 60,6,1)) + Figura(Estratto(n,6,2)) + Figura(Estratto(n,6,3))
Figura(Estratto(n,6,4)) + Figura(Estratto(n6,5))+ 90 )
c= Fuori90(Estratto(,6,1) + Estratto(n,5,1))
d= Fuori90(a+b)
e = Vert(c)
nu1(1) = a
nu1(2) = a
ImpostaGiocata 1, nu1, ruota,poste,12
nu1(1) = a
nu1(2) = c
ImpostaGiocata 2,nu1,ruota,poste,12
nu2(1) = c
nu2(2) = d
nu2(3) = e
IpostaGiocata 3,nu2,ruota,posta,12
Gioca n
End If
Next
ScriviResoconto
EndSub


Ciao ho copiato lo script ma mi da vari errori si può correggere,grazie.

 

[salvo50]

Ciao

Funziona, però non so se le correzioni sono quelle che intendeva l'autore

Sub Main()
   Dim ruota(2)
   'Dim ruota1(10)
   Dim nu1(2)
   Dim nu2(3)
  ' Dim nu3(3)
  ' Dim nu4(3)
  ' Dim nu5(3)
   'Dim numeri6(3)
   Dim poste(3)
   Dim posta(3)
   poste(2) = 1
   posta(2) = 1
   posta(3) = 1
   'ruota(4) = 0
   ruota(1) = 5
   ruota(2) = 6
   For n = 9483 To EstrazioneFin
      If IndiceMensile(n) = 1 Then
         a = Fuori90(Figura(Estratto(n - 60,5,1))) + Figura(Estratto(n,5,2)) + Figura(Estratto(n,5,2)) + Figura(Estratto(n,5,3))
         a = a + Figura(Estratto(n,5,4)) + Figura(Estratto(n,5,5))
         b = Fuori90(Figura(Estratto(n - 60,6,1))) + Figura(Estratto(n,6,2)) + Figura(Estratto(n,6,3))
         b = b + Figura(Estratto(n,6,4)) + Figura(Estratto(n,6,5))
         c = Fuori90(Estratto(n,6,1) + Estratto(n,5,1))
         d = Fuori90(a + b)
         e = Vert(c)
         nu1(1) = a
         nu1(2) = b
         ImpostaGiocata 1,nu1,ruota,poste,12
         nu1(1) = a
         nu1(2) = c
         ImpostaGiocata 2,nu1,ruota,poste,12
         nu2(1) = c
         nu2(2) = d
         nu2(3) = e
         ImpostaGiocata 3,nu2,ruota,posta,12
         Gioca n
      End If
   Next
   ScriviResoconto
End Sub

 

[Alien.]

Grazie salvo , ma il metodo è un "disastro" ..................peccato.