La troisième partie
sur les boucles que j'utilise peu mais bon.
----------- 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. nous allons combiner tous les
cercle de couleur vous verrez sa apres
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