WHILE
Imaginez que vous vouliez vous servir de la calculatrice que vous avez programmé plus d'une fois, vous n'allez pas presser F5 à chaque fois ? Bien sur que non ! Regardez cet exemple :
TANT QUE j'ai faim
Je mange
Q-Basic fonctionne de la même manière sauf que TANT QUE est remplacée par WHILE. Essayez ceci :
REM programmé par Christophe DESCOTTES GENON
REM programme qui montre l'utilisation des boucles
DIM encore AS STRING
encore = "o"
CLS
WHILE encore = "o"
INPUT "Voulez vous recommencer " ; encore
WEND
REM WEND est le mot clé qui signifie que la boucle est finie. C'est comme ENDIF dans une boucle IF
END
Pressez F5
FOR NEXT STEP
Dans cette partie, vous allez apprendre à vous servir du mot clé FOR. Que fait FOR ? Et bien, il permet de faire autant de fois que l'on veut une certaine action. Cela est presque la même chose que la boucle WHILE, mais cette fois ci on sait combien de fois sera faites l'action demandée.
REM programmé par Christophe DESCOTTES GENON
REM programme qui compte jusqu'à 200
DIM nombre AS INTEGER
FOR nombre = 1 TO 200
PRINT "nombre = " ; nombre
NEXT
REM NEXT signifie que la boucle s'arrête à cet endroit
END
Pressez F5
Vous pouvez utiliser le mot clé STEP, il indique la valeur d'incrémentation du compteur à chaque passage de la boucle.
REM programmé par Christophe DESCOTTES GENON
REM programme qui compte jusqu'à 200
DIM nombre AS INTEGER
FOR nombre = 1 TO 200 STEP 5
PRINT "nombre = " ; nombre
NEXT
REM NEXT signifie que la boucle s'arrête à cet endroit
END
Pressez F5
Dans ce programme l'ordinateur compte de 5 en 5. On peut aussi faire un compte à rebours.
REM programmé par Christophe DESCOTTES GENON
REM programme qui compte jusqu'à 200
DIM nombre AS INTEGER
FOR nombre = 200 TO 1 STEP -5
PRINT "nombre = " ; nombre
NEXT
END
Pressez F5
Je pense qu'il est grand temps de faire quelque chose de vraiment amusant. Vous vous rappelez des couleurs, des cercles. Oui ! Et bien nous allons les combiner !
REM programmé par Christophe DESCOTTES GENON
REM programme qui montre des trucs qui bougent
DIM encore AS STRING
DIM demarrercercle AS INTEGER
DIM cerclewide AS INTEGER
DIM col AS INTEGER
encore = "o"
SCREEN 12
WHILE encore = "o"
CLS
FOR cerclewide = 30 TO 70 STEP 20
FOR col = 1 TO 14
FOR demarrercercle = 100 TO 550 STEP 20
CIRCLE (demarrercercle, 240), cerclewide, col
SOUND demarrercercle + cerclewide, 1
NEXT
CLS
NEXT
NEXT
INPUT "Encore " ; encore
WEND
END
Pressez F5 |