Bug VB !!! Problème avec un for qui termine sur 6

Question

J'ai remarquer que lorsqu'une boucle "for" termine sur 6 alors ça dernière valeur n'est pas 6 mais 0.
Bizarre mais bon c'était juste pour le signaler .

cs_Jack · Answer

Salut maxdebide
Bizarre ça.
A la fin d'une boucle For-Next, la variable prend toujours la valeur maxi de la boucle + 1
Faudrait approfondir ton code : tu modifies peut-être la valeur de ta variable dans uns sous-routine ... regarde aussi comment est dimensionnée ta variable : si elle est Public, il y a peut-être d'autres procédures qui utilisent cette même variable : pas bien
Vala
Jack

Tilois · Answer

Oui, d'accord avec jack, la boucle fini a valuer de la boucle+1. Ou alors après tu remet la valeur 0 dans ta valeur de boucle ou tu ais une opération... Je sais bien que les logiciels de micorsoft on parfois quelques bugs, mais ue erreur aussi grossiere n'aurait pas passer inapercu, depuis tout ce temps que vb existe !

cs_dragon · Answer

je confirme, le i vas se terminer avec sa dernière valeur, à moins que tu la change avant de vérifier sa valeur

c'est un bug dans ton code et pas dans VB6.0

tiens un vrai bug, dans Access 97, j'ai pogné cette erreur:
Microsoft Access

Microsoft Access ne peut trouver l'assistant ou la section Déclarations d'un module Visual Basic comporte une erreur de syntaxe.

La librairie de l'assistant dont vous avez besoin manque peut-être dans la clé Librairies de la section Microsoft Access du Registre Windows.

Afin de vous assurer que l'Assistant se trouve dans le registre Windows, relancez l'installation opur réinstaller Microsoft Access, puis compiler tous les modules Visual Basic dans la base de données

ce que j'aime c,est la dernière ligne "compiler tous les modules Visual Basic" lol, comme si j'avais les sources. En plus se message a été afficher quand j'ai voulu regarder le lien de mes table, donc c,est pas dans le code, j'avasi encore rien ouvert lol. Oki un petit redémarrage d'acces a corriger le problème

maxdebide · Answer

Ba c bizarre g fait juste :
 for i = 1 to 6
     if i = 0 then msgbox "BUG"
next i
et ça marche

maxdebide · Answer

Voila le vrai bug :

For i = 0.01 To 0.06 Step 0.01
    MsgBox i
Next i 

il n'affiche pas 0.06
par contre
For i = 0.01 To 0.07 Step 0.01
    MsgBox i
Next i 

affiche 0.06 et 0.07

c vraiment bizarre

cs_Jack · Answer

Salut maxdebide
Oui, tu as raison, il n'affiche pas le 0.06
C'est à peu près normal.
En fait, il faudrait que tu dimensionnes ta variable i :
Dim i As Single
Et là tu t'apercevras que la dernière valeur n'est pas 0.06 mais 5.99999E-02 : C'est à cause des arrondis.
Je te suggères d'utiliser des entiers de 1 à 6 et d'utiliser CSng(i / 100) pour récupérer ta valeur réelle :
Dim i As Integer, j As Single
For i = 1 To 6
j = CSng(i / 100)
MsgBox j
Next i

Vala
Jack

crenaud76 · Answer

Jack a la solution !!
Il est de toute façon toujours fortemetn déconseiller d'utiliser auter chose que des entiers pour faire une boucle du type "For ... To ... Next" !!!

Christophe R.

maxdebide · Answer

Merci les gas c t pas pour moi mais c t pour signaler le problème,moi g pas eu de problème pour le résoudre.

Bug VB !!! Problème avec un for qui termine sur 6

8 réponses

Discussions similaires