La bonne aventure en BASIC

Nous allons essayer de créer un programme qui répond à toutes vos questions ... au hasard.

     RANDOMIZE TIMER
     PRINT "Je suis le diseur de Bonne Aventure."
     INPUT "Pose moi une question et appuie sur entrée pour avoir la réponse ...", A$
     PRINT
     Reponse = INT(RND * 5 + 1)
     SELECT CASE Reponse
       CASE 1
         PRINT "Oui, absolument."
       CASE 2
         PRINT "Demande-moi plus tard."
       CASE 3
         PRINT "Oh non !!"
       CASE 4
         PRINT "Cela est une certitude."
       CASE 5
         PRINT "Oui."
     END SELECT

A toi d'essayer

Scratch

Découvre Scratch pour facilement créer des histoires, des jeux et des animations.
visiter Scratch

Nous allons lancer les dés en Basic

Les nombres aléatoires en Basic : nous allons créer un programme simple pour lancer des dés :

RANDOMIZE TIMER
INPUT "Appuie sur ENTREE pour lancer les dés ...", A$
PRINT
De1 = INT(RND * 6 + 1)
De2 = INT(RND * 6 + 1)
PRINT "Premier dé : "; De1
PRINT "Deuxième dé : "; De2

Le programme fonctionne de la façon suivante :

RANDOMIZE TIMER permet d'indiquer que la génération des nombres aléatoires se fait à partir de l'horloge

INT permet de retourner la valeur entière d'un nombre réel (autrement dit pas de nombre à virgule)

RND définit un nombre aléatoire entre 0 et 1

L'étoile * permet de multiplier

Autrement dit :

De1 = INT(RND * 6 + 1) permet de définir la valeur du premier dé et la ligne suivante de définir la valeur du deuxième dé.

A toi d'essayer

Construire ta machine

Un jeu ou le but est de faire arriver la petite roue rouge dans la zone rouge.en utilisant des roues et des tiges.

Construire ta machine

Nous allons créer une règle IF ... THEN avec QBasic

SI ... ALORS ... (IF ... THEN)

INPUT "Ecris ton nom : ", Nom$
     IF Nom$="Mike" THEN 
       PRINT "Va-t'en !"
     ELSE
       PRINT "Bonjour, "; Nom$; ".  Comment vas tu ?"
     END IF

SI (IF) telle condition est remplie ALORS (THEN) telle action s'exécute.

Pour créer une régle réutiliser la commande INPUT. 
La commande INPUT te permet de rentrer des données.

Dans notre cas, les données que tu vas rentrer vont définir la variable Nom$ 
Dans notre exemple SI (IF) le Nom$ est celui de Mike ALORS (THEN) le programme va AFFICHER (PRINT) le message suivant "Va-t'en !".

SINON (ELSE) le programme AFFICHE (PRINT) "Bienvenue, " le nom que tu as rentré et ". Comment vas tu ?"

A toi d'essayer

Note bien que si tu veux rajouter des règles il faudra écrire ELSE IF exemple si dessous :

INPUT "Ecris ton nom : ", Nom$
     IF Nom$="Mike" THEN 
       PRINT "Va-t'en !"
     ELSE IF Nom$="Luc" THEN
       PRINT "Il y a longtemps que je ne t'avais pas vu !"
     ELSE
       PRINT "Bonjour, "; Nom$; ".  Comment vas tu ?"
     END IF