Discussion :

[Jord]

Salut
Je débute en VB, j'ai ecrit une fonction en C que je voudrai transformer en VB mais je rencontre un petit Pb. En effet j'utilise un while qui fait des tests sur un tableau et il se trouve que parfois l'indice du tableau peut etre soit négatif soit superieur à l'indice maximun du tableau. En C ça ne pose pas de PB il n'entre tout simplement pas dans la boucle while mais en VB il me parle de IndexOutOfRangeException exception non traitée. Voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
PrivateSub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x AsString
Dim i AsInteger
Dim res AsInteger
Dim m AsInteger
x = Me.TextBox1.Text
m = x.Length
ReDim tab(m - 1)
tab(0) = -1
i = -1
For j AsInteger = 0 To m - 1
If ((i > 0) And ((i + 1) < m)) Then
While (x.Chars(i + 1) <> x.Chars(i))
i = tab(i)
EndWhile
EndIf
i = i + 1
tab(j) = i
Next j
For j AsInteger = 0 To m - 1
res = res * 10 + tab(j)
Next j
MsgBox(res)
EndSub

tab est un tableau d'entier global.
J'ai remplacé le code que j'utilisé au depart (ci-dessous) par le code si dessus(If ((i > 0) And ((i + 1) < m)) Then While (x.Chars(i + 1) <> x.Chars(i))

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2

while((i>0) And (x.Chars(i + 1) <> x.Chars(i))

mais j'ai toujours une erreur IndexOutOfRangeException mais je ne sais pas la traiter et je ne trouve rien de très explicite sur le net
merci d'avance

[behe]

salut, pour ton problème je sais pas trop. Utilise un try catch pour voir ou ca plante ( ds le catch renvoi les valeurs de toutes tes variables)
sinon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
While (x.Chars(i + 1) <> x.Chars(i))
i = tab(i)
EndWhile

pour moi c est une boucle infinie non?

edit: et pense a mettre l option strict à on.

[Jord]

J'ai reussi à faire ce que je voulais.
C un peut barbare mais ça marche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10

If (i >= 0) Then
DoWhile (x.Chars(i) <> x.Chars(j - 1))
i = tab(i)
If (((i + 1) >= m) Or i < 0) Then
ExitDo
EndIf
Loop
EndIf

merci behe
ps : si vous conaissez une meilleur manière de le codé n'hésitez pas

[behe]

re salut, explique ce que tu veux faire exactement dans ta boucle stp. Tu veux juste récupérer tous les chiffres rentrés dans une textbox et les mettre dans un tableau?