Débogage Index Out Of Range Fermé

Question

Bonjour, 

J'ai établi un programme en VB a partir d'un code source en Fortran et j'ai réussi à compiler une version mais je n'arrive pas à le deboguer, j'ai recours à de nombreux index et je récupère systématiquement une erreur IndexOutOf Range Exception;

un exemple:

code VB:

 Do While (ray(i) <> 99999)
            i = i + 1
            dmaxc(i) = dmax
            xinc(i) = xin
            xiec(i) = xie

code source en Fortran:

do while (ray(i).ne.99999.)
       i=i+1
       dmaxc(i)=dmax
       xinc(i)=xin
       xiec(i)=xie

ray(i) est saisi dans une  inputbox et pour tout autre valeur que 99999 on retombe sur une exception IndexOutOf Range

dmaxc, xinc et xiec sont définis comme des Integer (Dim dmaxc(ncx+2) As Integer par exemple, ncx étant le nombre de courbes que je veux que le programme sorte.

Merci d'avance

loupius · Answer

Ah c'est sûr que ce code explose tous les compteurs !
En supposant que le code est:Do While (ray(i) <> 99999)
  i = i + 1
  dmaxc(i) = dmax
  xinc(i) = xin
  xiec(i) = xie
LoopAucun tableau ne résistera... la boucle ne peut se finir que si 'ray(i)' à un moment ou un autre vaut 999999, sinon 'i' va croitre indéfiniment indéfiniment... indéfiniment... et même plus encore ;-)
Bonne réflexion.

galuchon · Answer

certes mais je n'ai pas dit que le code source était parfait; ce n'est pas le seul endroit ou il y un une erreur de ce type;

Do
            i = i + 1
            If (sens(i) <> se1) Then
                kf1(ikd) = i - 1
                ikd = ikd + 1
                kd1(ikd) = i
                se1 = sens(i)
            End If
        Loop Until i = ncx

là l'erreur intervient à la 3ème ligne, que j'écrive 

Dim sens(ncx) As Integer

Dim sens(99999) As Integer ou quoi que ce soit d'autre...

Une idée?

Débogage Index Out Of Range

2 réponses

Discussions similaires