xLuigiB - ERRORE SCRIPT - DA LUBECK

[LUBECK]

Ciao,
sono un neofita del programma SPAZIOMETRIA 1.3.6.
e sto elaborando uno script usando la funzione
NumeriRipetutiRilevatiV(VetNumeri, VetRitornoN, Optional VetRitornoQ = Nothing) As Integer
vetNumeri è il vettore da analizzare
vetritornoN torna 1 vettore contenente i numeri ripetuti
vetritornoQ torna 1 vettore contenente la quantità dei numeri ripetuti.

Quando la eseguo mi ritorna questo errore:458 la variabile utilizza un tipo di automazione non supportato in Visual Basic

C'è una soluzione?

GRAZIE PER L'ATTENZIONE

 

[Baffoblu]

Beh, se metti lo script, forse qualcuno può tentare di aiutarti, perchè così non si potrà mai capire il perchè dell'errore....

è un po come dal dottore, "Dottore mi fa male qui ! - che cosa ho ?", il dottore non ha la vista a raggi x e non può guardare all'interno delle persone, e quindi prescriverà delle analisi e indagini diagnostiche, e secondo il risultato di questi che potrà dire al paziente che cosa ha.

la segnalazione dell'errore 458 non è che aiuti tantissimo.....

 

[LUBECK]

SALVE BAFFOBLU,
Grazie per l'attenzione.
Ecco la lista d'es.script:
Option Explicit
Sub Main
Dim InI
Dim FIN
Dim EST
Dim VETNUMERI(9000)
Dim VETRITORNON(1000)
Dim VETRITORNOQ(1000)
Dim B
InI=EstrazioneIni+4000
FIN=EstrazioneFin
For EST=InI To FIN
VETNUMERI(EST)=Estratto(EST,1,1)
Next
Call NumeriRipetutiRilevatiV(VETNUMERI,VETRITORNON,VETRITORNOQ)
For B = 1 To UBound(VETRITORNON)
Scrivi VETRITORNON(B)&" - "&VETRITORNOQ(B)
Next
End Sub


Scusa, forse ci sarà qualche errore perchè sono alle prime armi.

Grazie ancora per l'attenzione.

 

[Baffoblu]

Dovrebbe essere più o meno così
salvo errori......

Anchio non sono proprio un esperto,
vado ad intuito....

PS : al posto delle x metti i tuoi parametri

Option Explicit
Sub Main
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim VetNumeri(xx)
    Dim VetRitornoN(xx)
    Dim VetRitornoQ(xx)
    Dim k
    Dim y
    Inizio = EstrazioneFin - 100
    Fine = EstrazioneFin
    For idEstr = Inizio To Fine
        VetNumeri(idEstr) = Estratto(idEstr,1,1)
        NumeriRipetutiRilevatiV VetNumeri,VetRitornoN,VetRitornoQ
        For k = 1 To UBound(VetRitornoN)
            For y = 1 To UBound(VetRitornoQ)
                Call Scrivi(VetRitornoN(k))
                Call Scrivi(VetRitornoQ(k))
            Next
        Next
    Next
End Sub

 

[LUBECK]

GRAZIE BAFFO,

MA L'ERRORE PERSISTE TALE E QUALE:458 la variabile utilizza un tipo di automazione non supportato in Visual Basic

 

[Joe91]

Ciao Baffone ...

un saluto a Lubeck a Luigi ed a tutto il Forum ...

Premetto che anch'io non conosco questa istruzione e non essendo dichiarato lo scopo dell script ...

lo si deve dedurre ... per approsimazione.

Suppongo si volessero ricercare i numeri ripetuti in prima posizione estrazionale su Bari,

da questo: Estratto (idEstr,1,1) & Call NumeriRipetutiRilevatiV

Quindi è un errore "memorizzare" con indice estrazione "IdEstr" : VETNUMERI(EST)=Estratto(EST,1,1)

Ma si deve predisporre una dimensione sufficiente molto minore delle 9000 estrazioni ...

meglio ancora dinamica (Redim) di VetNumeri così da r-accogliere uno ad uno i primi estratti di Bari.

Quindi è opportuno rilevare tutti i primi estatti nel numero di estrazioni prescelto .... e...

solo dopo aver terminato la raccolta ... elaborare (far elaborare) i conteggi.

e dopo ancora visualizzare i risultati. (Ciò che ho evidenziato con i commenti nello script)

(Sempre ammesso che non si volesse "una visione dinamica" dei numeri che ...

di estrazione in estrazione stanno incrementando la loro frequenza.)

Con data (EstrazioneFin) letta dallo script al 12/04/2012.

Così riassunto rivisto e corretto, esso, indica che, il 13, a Bari si è ripetuto 2 volte.

Primo Determinato, nelle 54 estrazioni precedenti.

Come gli altri numeri (da controllare ... in elenco)

Option Explicit
Sub Main
 Dim idEstr
 Dim Inizio
 Dim Fine
 Dim Pos 

 Dim k 'indice VetNumeri
 ReDim VetNumeri(0) 'Ridimensionabile
 
 Dim VetRitornoN
 Dim VetRitornoQ
 
 Inizio = EstrazioneFin - 53
 Fine = EstrazioneFin
 Pos = 1 'Prima Estratto Determinato

'Titoli / Descrizione 
 Scrivi "Dal " & DataEstrazione(Inizio),1,0
 Scrivi " al " & DataEstrazione(Fine),1,0
 Scrivi " = " & Fine - Inizio + 1 & " Estrazioni",1
 Scrivi "Ripetizioni come " & Pos & "° Estratto Determinato.",1 : Scrivi 

'Raccolta dati
 For idEstr = Inizio To Fine
  k = k + 1
  ReDim Preserve VetNumeri(k)
  VetNumeri(k) = Estratto(idEstr,BA_,Pos)
 Next
 
'calcoli/statistiche sui Numeri Ripetuti
 Call NumeriRipetutiRilevatiV(VetNumeri,VetRitornoN,VetRitornoQ)
 
'visualizzazione risultati
 Scrivi "Numero      " & StringaNumeri(VetRitornoN,,True)
 Scrivi "Ripetizioni " & StringaNumeri(VetRitornoQ,,True)

End Sub

Buon Week-End

 

[LUBECK]

Adesso si che gira.

Grazie mille

 

[Baffoblu]

Thank you for the lesson Joe !