x scripter , Dove sta l'errore ?

[gian332]

Buongiorno a tutti , rivolgo la mia domanda a chiunque possa rispondermi
lo script di Test che ho postato sotto quando esegue l'istruzione
SeriefreqTurbo mi va in crash e non riesco a capire dove sbaglio. :-(

Option Explicit
Sub Main
    Dim Ini,fin,frq
    Dim num(5)
    Dim sorte(5)
    Dim ruota(12)
    sorte(2) = 2
    ruota(1) = 1
    num(0) = 0
    num(1) = 1
    num(2) = 2
    num(3) = 3
    num(4) = 4
    num(5) = 5
    Ini = 9000
    fin = 9393

    frq = SerieFreqTurbo(Ini,fin,num,ruota(1),sorte(2)) 'Eseguendo questa istruzione mi va in crash 
End Sub

 

[i legend]

Ciao ruota è una array.

 

[gian332]

Ciao ruota è una array.

ciao iLeggend grazie x la risp; anche se al posto di ruota(1) mettessi 1 oppure BA_ non cambia nulla, quando esegue quell'istruzione va in crash

 

[LuigiB]

Ciao , sono felice di confermare che il buon Legend aveva ragione .. ciò non toglie che potresti avere qualche file vecchio ..prova , a me questo funziona .. se ti da ancora errore poi dobbiamo vedere ...

aggiungo una nota di teoria.

passando Ruota(2) stai passando l'elemento all'indice 2 del vettore ruota , tale e quale a passare una variabile che non sia un vettore.
Il vettore va passato col suo nome senza parentesi e senza indici,

Option Explicit
Sub Main
    Dim Ini,fin,frq
    Dim num(5)
    Dim sorte(5)
    Dim ruota(12)
    sorte(2) = 2
    ruota(1) = 1
    num(0) = 0
    num(1) = 1
    num(2) = 2
    num(3) = 3
    num(4) = 4
    num(5) = 5
    Ini = 9000
    fin = 9393

    frq = SerieFreqTurbo(Ini,fin,num,ruota,sorte(2))

    Scrivi frq

End Sub

 

[Beppignello]

ciao

guarda le differenze tra il tuo e questo


Option Explicit
Sub Main
Dim Ini,fin,frq,sorte
Dim num(5)
Dim ruota(12)
sorte = 2
ruota(1) = 1
num(1) = 6
num(2) = 1
num(3) = 2
num(4) = 3
num(5) = 4
Ini = 9000
fin = 9393
frq = SerieFreqTurbo(Ini,fin,num,ruota,sorte) 'Eseguendo questa istruzione mi va in crash
Scrivi StringaNumeri(num,".") & " " & SiglaRuota(ruota(1)) & "....fr." & frq
End Sub

 

[gian332]

Funzionano entrambi sia quello di Luigi che di beppe !! Quindi l'errore stava in ruota , va passato ril vettore cosi comè senza parentesi ..Bene siete come sempre fantastici e tempestivi vi RINGRAZIO di cuore Ileggend beppe Luigi, avevo smanettato parecchio ma non cero arrivato da solo

 

[LuigiB]

funzionano uguali perche sono uguali
passare sorte(2) quando sorte è un vettore il cui elemento all'indice 2 vale 2 è come passare sorte quando sorte è una semplice variabile che vale 2 ...

ciao ..