|
|
|
|
|
Mode Console
|
|
|
|
Voici les parties :
Introduction
Boucle simple avec
changements de couleurs
Boucle simple avec
changements de couleurs + Select
|
|
Introduction :
; Tutorial sur
la gestion du mode console
; http://www.oliv.fr.fm
OpenConsole()
; Ouvre la
fenêtre qui servira de console.
PrintN("Hello
World")
; Affiche
le message "Hello World").
; On
utilise PrintN() au lieu de Print() car ça nous
permet de faire un retour à la ligne.
; Si on ne
veut pas utiliser PrintN(), il faut faire un
ConsoleLocate() pour indiquer la position du
texte.
Print("Appuyez
sur une entrée")
; Vous
remarquerez que l'on ne peut afficher les
accents en mode console
ConsoleLocate(0,2)
Print("pour
continuer...")
Input()
; Attends
que l'on appui sur entrée.
CloseConsole()
|
|
Comme vous avez pu le
constater, on ouvre une fenêtre, on affiche le
texte et on attend l'appui sur la touche
entrée, seulement, au lieu d'appuyer sur
entrée, essayez les lettres, elles apparaîtrons.
|
|
; Tutorial sur la gestion du mode console
; http://www.oliv.fr.fm
Fin.b=0 : Touche.s= ""
; On
déclare Fin en tant que Byte et Touche en
tant que string (Chaîne de caractères) et on
leur assigne une valeur.
OpenConsole()
PrintN("Hello
World")
Print("Appuyez
sur une entree")
ConsoleLocate(0,2)
Print("pour
continuer...")
Repeat
; début
de la boucle.
Touche=Inkey()
; stocke
La valeur ASCII de la touche pressée dans
Touche.
If
Asc(Touche)=13
: fin=1 : EndIf
; Si la
valeur numérique de la touche est 13, on la
met fin à un pour fermer le programme.
Until
Fin=1 ;
Arrête la boucle si Fin=1
CloseConsole()
End
|
|
Voilà, ce n'est pas mieux comme ça ?
|
|
Boucle simple avec
changements de couleurs :
; Tutorial sur
la gestion du mode console.
; http://www.oliv.fr.fm.
OpenConsole ()
ConsoleTitle("Couleurs")
; Met un
titre à la console, c'est toujours mieux que PureBasic
XXXXXXXXXXX ;=).
Repeat
; Début
de la boucle.
PrintN("Changement
de couleurs.")
Print("Couleurs
disponibles : ")
ConsoleLocate(25,1)
; Pour
s'entraîner un peu avec ConsoleLocate().
Print("Bleu")
ConsoleLocate(40,1)
Print("Vert")
ConsoleLocate(55,1)
PrintN("Rouge")
PrintN("Choisissez...")
Print("?
") ;
Vous remarquez l'espace après "?"
et ce que ce n'est pas PrintN() ?
a$=Input()
; Comme
ça, après "?", on a un espace et
le texte entré sur la même ligne et éviter
le ConsoleLocate(), donc programme plus rapide. Le
"$" signifie chaîne de caractères.
ClearConsole()
; Efface
la console.
a$=LCase(a$)
;
Convertit le texte entré en minuscules car
sin l'utilisateur entre Bleu, l'ordinateur ne
le prendra pas en compte .
If
a$="bleu"
: ConsoleColor(11,0)
: EndIf
;
a$="bleu" on met la couleur bleue,
le deuxième chiffre sert à changer la couleur de la console
(faites de essais de 0 à 15).
If
a$="vert"
: ConsoleColor(10,0)
: EndIf
If
a$="rouge"
: ConsoleColor(4,0)
: EndIf
If
a$="sortie"
: CloseConsole()
: End
: EndIf
; Si
a$="sortie", ferme la console et
indique la fin du programme.
ForEver
; Fin de
la boucle.
|
|
Ici, on gère les
couleurs et les condition If. cependant, il y a
un moyen de rendre le code plus compréhensible
et un peu plus rapide, elle est ci-dessous.
|
|
Boucle simple avec
changements de couleurs + Select :
; Tutorial sur
la gestion du mode console
; http://www.oliv.fr.fm
OpenConsole()
ConsoleTitle("Couleurs")
Repeat
PrintN("Changement
de couleurs.")
Print("Couleurs
disponibles : ")
ConsoleLocate(25,1)
Print("Bleu")
ConsoleLocate(40,1)
Print("Vert")
ConsoleLocate(55,1)
PrintN("Rouge")
PrintN("Choisissez...")
Print("?
")
a$=Input()
ClearConsole()
a$=LCase(a$)
Select
a$ ; Ici,
on dit au programme de choisir les valeurs de a$.
Case
"bleu"
; Case
a$="Bleu".
ConsoleColor(11,0)
; Action
à exécuter.
Case
"vert"
ConsoleColor(10,0)
Case
"rouge"
ConsoleColor(10,0)
Case
"sortie"
CloseConsole()
End
Default
; si
a$ ne correspond à rien, on exécute cette
case.
PrintN("Mot
incomplet ou inconnu.")
Delay(1000)
; Arrête
totalement le programme pendant 1000ms soit 1
sec.
ClearConsole()
EndSelect
ForEver
|
|
|
|
|
