Aiuto Per Correzione Script

[Roby]

Ci sarebbe una buona anima che mi risolvesse il problema di questo script di "Lola" che credo per una versione diversa di software mi sputa fuori questo errore (credo perchè la mia versione non prevede la ruota Nazionale):
Ciao, ho un problemino per lo script del "metodo sponge" e credo dipendente dal fatto che ho una versione vecchia del programma (5.2) e non 6.1.
Mi genera al momento dell'esecuzione questo errore:

LottoScript - Informazioni di debug
Script in esecuzione:
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.
Istruzione Impostagiocata: la dimensione del vettore delle ruote di gioco eccede il massimo di 10 valori.



Lo script iniziale era:

Sub main()
Dim ruote(11)
Dim numeri1(10)
Dim poste(10)
poste(2)=1
poste(3)=1
poste(4)=0
poste(5)=0
For n=7300 To EstrazioneFin
If IndiceMensile=1 Then

ruote(1)=0
ruote(2)=0
ruote(3)=0
ruote(4)=0
ruote(5)=5
ruote(6)=0
ruote(7)=0
ruote(8)=0
ruote(9)=0
ruote(10)=0
ruote(11)=0

numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,1))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,1))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,1))
numeri1(4)=Fu

 

[gianni_d]

A me così gira.
Se togli ' dalla giocata a tutte vedrai che la ruota che risponde meglio non é Mi.
Ciao

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim poste(5)
poste(2)=1
poste(3)=1
poste(4)=0
poste(5)=0
ruote(1)=5
'ruote(2)=11

For n=7300 To EstrazioneFin
If IndiceMensile=1 Then
ng=0
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,1))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,1))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,1))
numeri1(4)=Fuori90(Estratto(n,1,3)+Estratto(n,5,1))
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,5,1))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,13,2
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,2))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,2))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,2))
numeri1(4)=Fuori90(Estratto(n,1,3)+Estratto(n,5,2))
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,5,2))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,13,2
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,3))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,3))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,3))
numeri1(4)=Fuori90(Estratto(n,1,3)+Estratto(n,5,3))
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,5,3))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,13,2
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,4))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,4))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,4))
numeri1(4)=Fuori90(Estratto(n,1,3)+Estratto(n,5,4))
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,5,4))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,13,2
numeri1(1)=Fuori90(Estratto(n,1,1)+Estratto(n,5,5))
numeri1(2)=Fuori90(Estratto(n,1,5)+Estratto(n,5,5))
numeri1(3)=Fuori90(Estratto(n,1,2)+Estratto(n,5,5))
numeri1(4)=Fuori90(Estratto(n,1,3)+Estratto(n,5,5))
numeri1(5)=Fuori90(Estratto(n,1,4)+Estratto(n,5,5))
EliminaRipetuti numeri1
ng=ng+1
ImpostaGiocata ng,numeri1,ruote,poste,13,2



Gioca n
End If
Next
ScriviResoconto
End Sub

 

[Andrea Falorni]

Si' cosi funziona anche a me (pultroppo ho una vecchia versione di *** 5.2). Sulla versione demo della *** 6.0 funziona ma è una demo e mi toccherà comprarla a pieno

Come potremmo migliorare il sistemino? Dici Milano non è il massimo, hai visto qualche ruota migliore...?

FaloX

 

[gianni_d]

modifica da così

ruote(1)=5
'ruote(2)=11

a così

'ruote(1)=5
ruote(2)=11


e nel resoconto vedi la ruota con il maggior numero di vincite.

Ciao