Jeux faciles à créer en QBasic

BASIC (Beginner's All-Purpose Symbolic Instruction Code) reste le langage de programmation le plus connu pour les débutants absolus, et QBasic est un interpréteur simple pour l'écrire et l'exécuter. Il existe encore une communauté importante d'amateurs de QBasic, et apprendre à créer des jeux QBasic enseigne les fondamentaux de la programmation tout en étant très amusant.

Premiers pas avec QBasic

Si vous n'avez pas QBasic, téléchargez la version originale sur Pete's QB Site (voir Ressources), ou une version plus récente appelée QB64, conçue pour être compatible avec l'original. Une fois ouvert, vous verrez un écran bleu. Tapez :

CLS
PRINT "Hello, world!"
INPUT "What's your name?"; name$
PRINT "Hello, "; name$; "!"
END

Puis appuyez sur Shift + F5 pour exécuter. Voici ce qui se passe :

• CLS (« clear screen ») efface l'écran pour démarrer proprement.
• PRINT affiche du texte à l'écran. Pour un nombre, les guillemets ne sont pas nécessaires.
• INPUT demande une entrée utilisateur. « name$ » à la fin est une variable stockant la réponse. Les variables texte finissent par « $ », les variables numériques par « % ».
• Le second PRINT affiche du texte avec la saisie utilisateur.
• END termine le programme.

Jeu de devinette en QBasic

Entrez ce code :

CLS
chances% = 1
RANDOMIZE TIMER
number% = INT(RND * 10) + 1
PRINT "I'm thinking of a number from 1 to 10. You have three chances to get it right."

DO WHILE chances% < 4
PRINT
PRINT "You're on chance #"; chances%; "."
INPUT "Guess the number"; guess%
IF guess% = number% THEN GOTO youwin
ELSEIF guess% < number% THEN PRINT "Too low."
ELSEIF guess% > number% THEN PRINT "Too high."
ELSE PRINT "There's been an error. Try again."
END IF
chances% = chances% + 1
LOOP

PRINT
PRINT "You ran out of chances! Sorry!"
END

youwin:
PRINT
PRINT "You guessed the number! The number was"; number%; "!"
END

Ce jeu génère un nombre aléatoire de 1 à 10 et offre trois chances avec indices. Il illustre de nombreux concepts de programmation.

chances% = 1 crée une variable numérique à 1 pour compter les tentatives. RANDOMIZE TIMER initialise le générateur aléatoire. number% = INT(RND * 10) + 1 crée un nombre de 1 à 10 (le « +1 » évite 0-9). La boucle DO WHILE chances% < 4 ... LOOP répète jusqu'à 3 tentatives. IF...THEN...ELSE traite la logique. GOTO youwin saute à la section victoire. chances% = chances% + 1 incrémente le compteur.

Autres idées de jeux

Avec PRINT, INPUT, IF...THEN...ELSE et GOTO, vous avez tout pour créer une aventure textuelle simple. Exemple :

house:
INPUT "You're standing in a house. What would you like to do"; choice$
IF choice$ = "go upstairs" THEN GOTO upstairs ELSE GOTO house

Essayez de le complexifier selon vos connaissances. Le web offre de nombreux jeux QBasic gratuits à télécharger. Jouez-y et examinez leur code pour apprendre de nouvelles techniques.