lotto_tom75
Advanced Premium Member
Riesco ad ottenere il valore massimo e a salvarlo nel relativo vettore crtmaxrilevati con l'apposita funzione...
Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...
Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...
Ad una semplice verifica del tipo:
mi da sempre e soltanto
valore crt 0
Codice:
If crt > 0 Then
If MassimoV(crtmaxrilevati) = 0 Or crt > MassimoV(crtmaxrilevati) Then
Erase crtmaxrilevati
crtmaxrilevati = Array(0)
crtmaxrilevati = array_push(crtmaxrilevati,crt)
End If
End If
Ma quando si tratta di valutare il valore minimo crt e di salvarlo nel relativo vettore crtminrilevati mi incarto con il primo elemento del vettore sempre pari a 0 e non riesco a popolarlo con la funzione analoga...
Codice:
If crt > 0 Then
If MinimoV(crtminrilevati) = 0 Or crt < MinimoV(crtminrilevati) Then
Erase crtminrilevati
crtminrilevati = Array(0)
crtminrilevati = array_push(crtminrilevati,crt)
End If
End If
Ho provato varie soluzioni anche con il for x saltare il primo posto del vettore crtminrilevati ma non funzia...
Ad una semplice verifica del tipo:
Codice:
Call Scrivi ("verifica contenuto crtminrilevati: ")
Dim j
For j=0 To UBound(crtminrilevati)
Call Scrivi ("valore crt " & crtminrilevati(j))
If ScriptInterrotto Then Exit For
Next
mi da sempre e soltanto
valore crt 0