Le qbasic

 <<-Retour     Home        Contact       Blog       Vidéo     Suite->> 


 1- Aide
 2- Avant-propos
 3- Démarrer
 4- Marche à suivre
 5- La Base
 6- Données fixes
 7- Données variables
 8- Calcul
 9- Sauver
10- Instructions
11- Résumé du chapitre 1
12- Premier programme
13- Un titre
14- Les Variables
15- Balise
16- CLS
17- Tab(chiffre)
18- INPUT
19- UCASE$ (variable$)
20- IF ... THEN ...
21- USING ; "###.##"
22- END
23- TEST
24- Résumé du chapitre 2
25- Second programme
26- Description du programme.
27- OPEN
28- FIELD
29- match$
30- Lire une donnée du fichie
31- LSET
32- PUT
33- GOTO et GOSUB
34- Boucle
35- Résumé du chapitre 3
36- Soignez la présentation
37- LOCATE
38- PALETTE
39- COLOR
40- LPRINT
41- STRING$(...)
42- CHR$(...)
43- DATA
44- RETORE
45- RUN
46- DATE$
47- TIME$
48- SLEEP
49- SCREEN (x)
50- Divers
51- Résumé du chapitre
52- Derniers petits conseils
53- CALCULE BAS
54- TELEPHON BAS
55- Résumé du chapitre
56- Jeux de caractères ASCII
57- Index
58- Signes & Symboles
59- Les Liens

E-Mail
Home





Valid HTML 4.01 Transitional





catalogue
Votre webmaster :
www.webhabilis.be


40- LPRINT
LPRINT

Vous allez me dire : ´´ - C'est bien joli de faire un programme mais dans certaines circonstances, il serait bien de pouvoir imprimer le résultat !´´. Je vous répondrais : ´´ – Pas de problème, avec la commande <LPRINT> !´´

Imagines une facture, dont votre programme ait fait tous les calcules ( de tva, le prix par unité multiplier par le nombre d'articles, adresse client, etc.) et la facture aurait été complétée avec les données introduites par un utilisateur.

La "commande" pour imprimer c'est LPRINT suivit du texte ou des données à imprimer. Voici un exemple.


'EXEMPLE AVEC LPRINT

debut:
CLS
INPUT "- Quel est votre prénom " ; prenom$
INPUT "- Quel est votre age " ; age
PRINT

programme:
INPUT "Donnez votre réponse et tapez <ENTER>. Vous souhaitez <Q>uiter, <i>mprimer <R>ecommencer " , reponse$
IF reponse$ = "Q" OR reponse$ = "q" THEN GOTO fin
IF reponse$ = "I" OR reponse$ = "i" THEN GOTO imprimer
IF reponse$ = "R" OR reponse$ = "r" THEN GOTO debut ELSE GOTO programme

imprimer:
LPRINT "Le prénom est " ; prenom$
LPRINT prenom$ ; " à " ; age ;"ans"
GOTO programme

fin:
CLS
PRINT "Au revoir..."
END




Ce n´est pas plus complique que cela. Si cela ne fonctionnait pas vérifiez que votre imprimante soit bien allumée et qu'il y ait du papier.

Mais attention, vous devrez faire plusieurs testes pour régler le format du papier et la présentation de votre texte imprimé.

Si ce qui doit être imprimé nécessite plusieurs pages placer des messages à l'écran pour prévenir ou aider l'utilisateur de votre programme.





41- STRING$(...)
STRING$(...)

Mon intention n'est pas de vous parler d'une pièce de vêtement. Mais de la "commande" STRING$(...) qui signifie une chaîne.

Voici un exemple.


'EXEMPLE STRING$(...)
CLS
PRINT "Premier exemple " ; STRING$(20, "*")
PRINT STRING$(20, " ") ; "Second exemple. "
PRINT "Le troisième pour la route " ; STRING$(20 , CHR$(177))
END




Vous l'avez compris, entre parenthèses, sont placées les données. D'abord un chiffre qui indique la longueur de la chaîne, une virgule pour séparer tout ça, ensuite le caractère que vous souhaitez aligner.

STRING$ ( [longueur] [ , ] [caractère] )

Bien sûr le chiffre qui représente la longueur-de-la-chaîne peut être une variable. Exemple :


'test STRING$(x ," ") suite
'Les Variables
a = 50
PRINT STRING$(a, "+")
PRINT
END



Vous verez le signe '+' autant de fois que vous l´aurez définis dans 'Les Variables. Pour le fun faites suivez l'ecemple suivant :


'test STRING$(x ," ") suite bis
a = 50
CLS
PRINT CHR$(201); STRING$(a, CHR$(205)); CHR$(187)
PRINT CHR$(186); STRING$(a, " "); CHR$(186)
PRINT CHR$(200); STRING$(a, CHR$(205)); CHR$(188)
END







42- CHR$(...)
CHR$(...)

Dans un exemple précédent vous aurez remarque STRING$(20 , CHR$(177))

Soit le caractère est placé entre guillemets ou soit vous écrivez le code valeur décimal ASCII qui est un chiffre compris entre 0 et 255.

Pour voir les code ASCII je vous suggère de cliquer dans la barre d'outils sur Aide
Dans la table de matière vous cliquez sur CODE DE CARACTERES ASCII Vous obtiendrez les codes très intéressant dont voici un exemple.



'EXEMPLE CADRE
PRINT CHR$(201) ; STRING$(23, CHR$(205)) ; CHR$(187)
PRINT CHR$(186) ; "Premier exemple de cadre " ; CHR$(186)
PRINT CHR$(200) ; STRING$(23, CHR$(205)) ; CHR$(188)
PRINT : PRINT
PRINT CHR$(218) ; STRING$(25, CHR$(196)) ; CHR$(191)
PRINT CHR$(179) ; "Second exemple de cadre " ; CHR$(179)
PRINT CHR$(192) ; STRING$(25, CHR$(196)) ; CHR$(217)
END



Tapez la touche de fonction F5.

Encore un petit truc pour améliorer la présentation de vos pages avec des cadres.





43- DATA
DATA

Voici une autre "commande" importante.

Il est important de stocker des données fixes dans un même programme.

Voyez l'exemple ci-dessous en le recopiant et teste le, en tapent F5.


'EXEMPLE AVEC DATA

'Variables
teste = 7
CLS
PRINT "Test avec des la commande <DATA> "
PRINT STRING$(34, "-")
FOR jour = 0 TO test
READ jour$
PRINT Voici les jours de la semaine " ; jour$
NEXT jour
END

'Les données
DATA "Lundi" , "Mardi" , "Mercredi"
DATA "Jeudi" , "Vendredi" , "Samedi"
DATA "Dimanche"



OK, plutôt simple comme exemple mais le principal ci trouve !

Vous remarquerez que la "commande" END ne doit pas obligatoirement se trouver tout à la fin du programme mais bien là où le programme se termine.

Voici quelques explications pour la "commande" DATA

Vous placer en début de ligne la "commande" DATA et vous placer la donnée entre guillemets. Vous pouvez placer ces données en fin de programme.

Pour lire une donnée vous avez besoin de la "commande" READ

Vous noterez que vous devez "lire" quelque chose. C'est pourquoi dans l'exemple le programme doit "lire" la "donnée" jour$

Tapez la touche de fonction F5.





44- RETORE
RETORE
La fonction <DATA> est bien utile, mais, il y a un mais ! ...

Lorsque que vous utilisez la fonction READ cette fonction lit les "datas" l'une après l'autre. Et lorsque toutes les datas on été lues le programme dit qu'il n'y a plus de data à lire ! Pour éviter cela il faut utiliser une fonction qui s'appelle RETORE Cette fonction permet de relire des datas depuis le début.

Pour mieux comprendre de quoi il s'agit faites l'exemple suivant avec RESTORE et sans RESTORE :


'TESTE AVEC RESTORE
CLS
PRINT
RESTORE
FOR a = 0 TO 25
READ donnee$
PRINT a , "La donnée est " ; donnee$
IF a = 9 OR a = 18 THEN RESTORE
IF a = 9 OR a = 18 THEN PRINT TAB(30) ; "... Tapez une touché !"
IF a = 9 OR a = 18 THEN WHILE INKEY$ = " " : WEND
NEXT a

PRINT
END
DATA "1" , "2" , "3" , "4" , "5"
DATA "6" , "7" , "8" , "9"
DATA "a" , "b" , "c" , "d"
DATA "e" , "f" , "g" , "h"
DATA "i" , "k" , "l" , "m"
DATA "n" , "o" , "p" , "q"




Vous remarquerez qu'avec la fonction RESTORE vous lisez les datas depuis le début.

Pour le fun faite le même programme qu'à l'image ... mais sans la fonction RESTORE et vous comprendrez mieux et plus vite que toutes les explications !





45- RUN
RUN


Pour lancer l´exécution d´un programme en mémoire il faut utiliser la commande <RUN>
Imaginez que vous proposiez à un utilisateur de choisir entre plusieurs options ... Voyez l´exemple suivant :

´Option RUN

choix:
PRINT "Faites votre choix"
PRINT "Option 1"
Print "Option 2"
PRINT "Option 3"
INPUT choix
IF choix = 1 then RUN"option1.BAS"
IF choix = 2 then RUN"option2.BAS"
IF choix = 3 then RUN"option3.BAS"
GOTO choix

 

Naturellement vous avez créé trois programmes sous les noms <Option1.BAS>, <Option2.BAS>, <option3.BAS>
N´oubliez pas de vérifier votre programme en tapant la touche <F5>





46- DATE$
Vous pouvez également donner la date dans votre programme, cela est surtout utile quand vous devez imprimer des données.


´ Option DATE$

CLS
PRINT " Aujourd´hui nous somme le " ; DATE$ ; à l´écran.
LPRINT " Aujourd´hui nous somme le " ; DATE$ ; vers l´imprimante.

 

La fonction est simple vous devez juste introduire la commande <DATE$> là où vous voulez que la date soit présente.





47- TIME$

La fonction est simple vous devez juste introduire la commande <DATE$> là où vous voulez que la date soit présente.


´ Option TIME$

CLS
PRINT "Voici l´heure " ; TIME$
 





48- SLEEP
SLEEP
SLEEP [chiffre] le chiffre fait une pause durant le nombre de seconde(s) choisi.

' TESTE AVEC SLEEP
CLS
PRINT "Salut ! ... "
SLEEP 5
PRINT " ... Et voilà ! "
END

 






49- SCREEN (x)
SCREEN (x)

Le chiffre ne peut être que 1 ou 0.

'Test avec SCREEN

CLS
SCREEN 1 : COLOR 4
PRINT "Un nouveau format pour l'écran "
END

 






50- Divers
Divers
Pour supprimer le point d´interrogation <?> après la commande <INPUT>, il faut simplement remplacer le point virgule <;> par une virgule <,>


' TEST POUR SUPPRIMER LE POINT D´INTERROGATION <?>

INPUT "Votre prénom " , reponse$
END

 




´BOUCLE

CLS
INPUT "Tapez un chiffre entre 1 et 20 ?" ; chiffre
FOR x = 0 to chiffre
PRINT "Voici le chiffre " ; chiffre
NEXT x

END

 

La commande FOR variable simple = départ TO fin NEXT exécute une partie d´un programme un certain nombre de fois en incrémentant une variable de contrôle entre une valeur de départ et une valeur d´arrivée






51- Résumé du chapitre.
Résumé du chapitre.
Nous avons réalisé un programme un peu plus élaboré.

Des commandes importantes ont été utilisées telles que :
  • LPRINT,
  • LOCATE,
  • COLOR,
  • PALETTE,
  • STRING$(...),
  • CHR$(...),
  • DATA,
  • RESTE,
  • TIME$,
  • DATE$,
  • FOR ... = ... TO ...,
  • RUN,

Avec les commandes vues vous pouvez déjà réaliser vos propres programmes un peu plus élaborés, avec une meilleure présentation suivant vos besoins ou ceux de vos clients et imprimer le résultat.



  Haut de page  
Page précédente   Page suivante
  Home  


Powered by : www.webhabilis.be