Quel est le problème de ce petit code ? (Résolu)

Bonsoir à tous,

essayez ce code tel qu'il est présenté, puis suivez les instructions de la ligne 5.

???

Code:: dim n%

for n%=1 to 10 : if even(n%)=1 then message "Ce nombre "+str$(n%)+" est paire." : next n%

rem remplacez la ligne 3 par les 3 lignes 7, 8 et 9

' for n%=1 to 10
' if even(n%)=1 then message "Ce nombre "+str$(n%)+" est paire."
' next n%

END

QUESTION: pourquoi la ligne 3 ne marche pas !

A+

PS: test fait avec V09.27 et la dernière version 28i13.

C'est parce que dans le premier passage dans ta boucle "en une seule ligne", le résultat du IF est faux. Et donc, conformément au comportement d'un IF en ligne, le reste de la ligne est simplement ignoré.

Merci Klaus,
Un piège pour débutant, et je suis tombé dedans. Embarassed

A+

T'en fais pas - ça arrive. En tout cas, je me fais souvent piéger par des détails de ce genre.

Oui, tout ça pour économiser des lignes dans le code. Very Happy

La solution:

Code:: dim n%
for n%=1 to 10 : if even(n%)=1 : message "Ce nombre "+str$(n%)+" est paire." : else : end_if : next n%

END

A+

C’est l’économie des bouts de chandelles !
Ta mémoire vive (euh celle de ton ordi) est à ce point pleine?

Voici comment optimiser le code

Code:: dim n%
for n% = 1 to 10
if even(n%) = 1 then message "Ce nombre " + str$(n%) + " est un nombre pair"
next n%

C'est plus clair, non ?

Salut Papydall,

C'est plus clair: Ben oui, mais mon problème n'est pas d'économiser de la mémoire vive, je veux juste limiter les lignes dans le code pour avoir un sous-programme plus compact.

Bref, pour moi c'est résolu.

A+

» RESOLU : petit code à tester, trouver l'erreur^^
» Quel code
» Quel dossier par défaut d'un code lancé par Panoramic_Editor
» [Résolu] Interception touches quel que soit objet Panoramic
» Code à vérifier SVP (Oups ! résolu)