Pourquoi ce programme ne s'arrête pas?

[africanos]

salut à toutes et tous,

j'ai essayé ce petit bout de code :

Code : Tout sélectionner

 For i.b=0 To 127
        Debug Str(i.b)
   Next i.b

est ce que quelq'un peut m'expliquer pourquoi il nes'arrête pas?
Merci pour la lecture et ausi pour la réponse.

[Fig]

bein, chez moi ça s'arrête, comprend pas...

[Atomo]

Ce code marche :

Code : Tout sélectionner

For i=0 To 127 
  Debug i
Next i

Le problème survient quand tu déclares le type après For.

[venom]

moi sa ne s'arrete pas non plus
comme sa oui :

Code : Tout sélectionner

 For i=0 To 127
   Debug Str(i)
Next i

@++

[cha0s]

le type Byte est limité a 127 donc quand tu fait next i et qu'il est a 127 il redescend a -128 par conséquent il reste dans la boucle.

Code : Tout sélectionner

i.b = 127 + 1
Debug i

[africanos]

Merci pour les réponses .
pour Atomo ,
même si la variable est déclarée avant For , le problème persiste:
essayez ceci:

Code : Tout sélectionner

i.b=0
   For i=0 To 127
        Debug Str(i)
   Next i

Pour venom ta version ne s'arrête pas ca tu n'a pas déclaré la variable i , or , a partir de la version 4.30, le type par défaut est le type integer (.i).

je pense que la réponse de chaOs est plus logique .

bonne programmation

[Le psychopathe]

Merci pour les réponses .
pour Atomo ,
même si la variable est déclarée avant For , le problème persiste:
essayez ceci:

Code : Tout sélectionner

i.b=0
   For i=0 To 127
        Debug Str(i)
   Next i

Pour venom ta version ne s'arrête pas ca tu n'a pas déclaré la variable i , or , a partir de la version 4.30, le type par défaut est le type integer (.i).

je pense que la réponse de chaOs est plus logique .

bonne programmation

cha0s a répondu pour le pourquoi alors je te conseil de faire comme ceci pour esquiver le problème :

Code : Tout sélectionner

i.b=0 
   For i=-1 To 126 
        Debug Str(i+1) 
   Next i 

[Le psychopathe]

Ou encore une autre solution

Code : Tout sélectionner

i.b=0 
   For i=0 To 127 
        Debug Str(i) 
if i = 127
break
endif
   Next i 

[djes]

Le type char a été fait pour ça.

Code : Tout sélectionner

For i.c=0 To 127
  Debug Str(i)
Next i 

[Octavius]

Ou encore :

Code : Tout sélectionner

i.b=0
For i=0 To 127
   If i<0 : Break : EndIf
   Debug Str(i)
Next i

Ceci dit, j'aime beaucoup cette astuce de boucle infinie qui permet de compter les incrémentations.

Code : Tout sélectionner

i.b=0
For i=-128 To 127
   Debug Str(i)
Next i

[brossden]

Bonjour à tous

Juste entre nous pourquoi utiliser les Bytes ??
A notre époque quel PC n'a pas 1 Go de mémoire vive ?
Je comprend qu'il y trente ans on essayait de faire des économies d'octets, mais bon est-ce toujours d'actualité, sans compter que c'est source d'erreur et autres problèmes, mais bon c'est juste mon avis!

Joyeuses Pâques !

[djes]

Bonjour à tous

Juste entre nous pourquoi utiliser les Bytes ??
A notre époque quel PC n'a pas 1 Go de mémoire vive ?
Je comprend qu'il y trente ans on essayait de faire des économies d'octets, mais bon est-ce toujours d'actualité, sans compter que c'est source d'erreur et autres problèmes, mais bon c'est juste mon avis!

Joyeuses Pâques !

+1

[Octavius]

Je ne sais pas chez les autres, mais chez moi c'est une habitude de programmation. Quand j'ai appris (tout seul avec les tutos d'internet et du forum), j'ai bêtement suivi les recommandations, ne pas utiliser plus de mémoire que nécessaire. Même si c'est vrai qu'à l'échelle des RAM actuelles c'est un gain bien minime. Mais c'est aussi dans mon caractère d'être maniaque et économe. Et puisque j'utilise la commande 'EnableExplicit', je déclare toutes mes variables, donc ça ne me compte rien d'écrire '.b' à la place de '.l' ou '.i'. En fait dans mes programmes on retrouve tous les types de variable, et j'ai rarement des erreurs (et en plus c'est pas le genre d'erreurs trop difficiles à déboguer).