Non gettare la spugna, così presto.
Le matrici che hai salvato in binario da VB6, anche se le hai dichiarate integer (1 to 90), sono salvate (0 to 89).
In VBNET per ricaricarle dichiarale:
Public RitardiEstrattiPrecedentiTutte(0 To 89) As Short
Naturalmente poi da codice dovrai sistemare gli indici aggiungendo -1 tutte le volte che accedi, oppure correggere il codice pensando che le matrici partono da 0
Non ho fatto una prova perché non posso usare VB6 velocemente, potresti avere anche altri problemi, non è detto che l'organizzazione dei Bytes nel salvataggio binario tra i due linguaggi siano identici.
Se avessi ancora problemi e dovessi risolvere un problema come il tuo, salverei due matrici singole identiche con pochi elementi facilmente identificabili, una con VB6 e una con VBNET, con un HEX Editor confronterei i due contenuti in modo da identificare eventuali discrepanze tra le due versioni.
altra prova da fare è non caricare tutte le matrici
FileGet(Libero, RitardiEstrattiPrecedentiTutte)
FileGet(Libero, RitardiEstrattiPrecedentiSingola)
FileGet(Libero, RitardiEstrattiTutte)
FileGet(Libero, RitardiEstrattiSingola)
FileGet(Libero, RitardoEstrattiStoricoTutte)
caricane solo una
FileGet(Libero, RitardiEstrattiPrecedentiTutte)
non dovresti avere più l'errore 'Impossibile leggere oltre la fine del flusso.'
controlla il contenuto della matrice caricata, ragiona in bytes e in esadecimale per capire le differenze.
in programmazione tutto è permesso |