[..] Calcul de boucle?

[ethneldryt]

Bonjour j'essaie :

Code : Tout sélectionner

$tot=0
while 1
    $retot=$tot+1
    MsgBox(0,"",$retot)
wend

mais ça ne marche pas , pourquoi?

[ani]

l'exemple while...wend repris dans l'aide

Code : Tout sélectionner

$i = 0
While $i <= 10
    MsgBox(0, "Value of $i is:", $i)
    $i = $i + 1
WEnd

donc en reprenant cette exemple, ton exemple deviend ceux-ci

Code : Tout sélectionner

$tot = 0
While 1
    MsgBox(0, "la valeur de $tot vaut :", $tot)
    $tot = $tot + 1
WEnd

la variable retot te renverra tout le temp zero zero zero

[Tlem]

Je rectifie ce que ani vous à dit (la variable $retot ne vous renverra pas tout le temp zéro zéro zéro mais 1) :

En réalité dans le code que vous donnez, vous utilisez 2 variables.
- $tot qui est égal à zéro
- $retot qui est égal à $tot + 1 soit 0 + 1 soit ... 1 !!!

Comme la variable $retot n'est jamais incrémentée, elle est à chaque boucle égale à 0 + 1 et donc c'est pour cela que vous avez 1 pour seul et unique résultat.

Pour compléter la démonstration de ani, il est aussi possible de faire ceci :

Code : Tout sélectionner

Dim $retot
while 1
    $retot += 1
    MsgBox(0,"",$retot)
wend

Par contre, il est obligatoire de déclarer la variable $retot avant.