Voici ce programme qui est une base en programmation et qui permet de voir l'utilisation de plusieurs fonctions.
PRINT "Jeu des allumettes"
SLEEP (2): CLS
INPUT "Ton nom : "; a$
INPUT "Mon nom : "; b$
SLEEP (2): CLS
Toi = 1
NbAl = 15
PRINT "Vous avez 15 allumettes, vous pouvez en prendre soit 1, 2, ou 3"
DO WHILE NbAl <> 0
AlPris = 0
DO
IF Toi = 1 THEN COLOR 14, 0: PRINT " "; a$: COLOR 7, 0 ELSE COLOR 10, 0: PRINT " "; b$: COLOR 7, 0
INPUT "Combien d'allumettes prenez-vous "; AlPris
LOOP UNTIL AlPris >= 1 AND AlPris <= 3 AND AlPris <= NbAl
NbAl = NbAl - AlPris
PRINT "Il reste "; NbAl; " allumettes"
Toi = 3 - Toi
LOOP
IF Toi = 1 THEN COLOR 14, 0: PRINT " "; a$; " à gagné": COLOR 7, 0 ELSE COLOR 10, 0: PRINT " "; b$; " à gagné": COLOR 7, 0
fin:
GOTO fin
Téléchargez qb64 en dernière version sur internet, recopier ce programme dans le qb64, lancer run , bon jeu.
