Bannière

Menu

  Accueil
  Forum (Partagé)

PureBasic

  Présentation
  Tutoriaux
      Mode Console
      Mode Screen
      Mode Window
      Autres
  Téléchargements

3D Games-Creator

  Présentation
  Tutoriaux
  Téléchargements

Autres

  Téléchargements
  Partenaires
  Liens
  Contact
  Livre d'Or
  News Letter

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

© Oliv.fr.fm - Design de PourTaPageWeb (Visitez le site)