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


12- Premier programme
Premier programme.

Voici un petit exercice tout simple à réaliser mais avec des instructions utiles à apprendre pour vos futurs programmes personnels.

Recopier ce petit programme sur une nouvelle page.
Pour ouvrir une nouvelle page cliquer sur l´icône <qbasic> dans votre répertoire <qbasic>.

À la page d´accueille, tapez sur la touche <Escape> pour fermer la boîte de dialogue et débuter une nouvelle page.

Vous arrivez sur une nouvelle page de travaille. Vous pouvez directement commencer à travailler.

Le but de ce petit programme est de faire connaissance et d´utiliser des ´´commandes´´ de bases.

Les ´´commandes´´ ont étés écrite en majuscules bien que le <qbasic> converti automatiquement les commandes minuscules en majuscules.

Vous, et moi, ensemble allons faire un simple programme pour réaliser le prix de vente d´un produit (prix de vente = prix d´achat + tva + marge bénéficiaire ).

Pour votre facilité, vous retrouverez tous les programmes de ce site à la fin du site.

Voici le programme en lui-même, comme je l´ai déjà dit peut importe le chemin utiliser pour se rentre quelque part seul compte le résultat.

Dans un premier temps recopier simplement ce programme et sauver le. Ensuite, nous analyserons pas à pas les ´´commandes´´ et instructions.


´  PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE R=ROMAN ´´
PRINT
INPUT ´´Type du produit ´´ ; produit$
produit$=UCASE$(produit$)
IF produit$ = ´´L´´ THEN produit$ = ´´Livre(s)´´
IF produit$ = ´´R´´ THEN produit$ = ´´Roman(s)´´
INPUT ´´Prix d´achat = ´´ ; prix
INPUT ´´La TVA est de ´´ ; tva
INPUT ´´Quantité d´unité ´´; volume
PRINT
PRINT ´´La marge par unité est de ´´ ; benef ;´´%´´
benef = prix * benef
PRINT ´´ Prix d´achat par unité = ´´ ; prix
PRINT ´´Benefice par unité = ´´ ; benef
valeur = prix + benef
PRINT ´´Prix de vente htva ´´ ; valeur
PRINT ´´La TVA est de ´´ ; tva ; ´´%´´
PRINT ´´Nombre d´unité ´´ ; volume
tva = tva / 100
PrixVente = valeur * tva
PrixVente = ( PrixVente1 + valeur ) * volume
PRINT ´´Le stock total de ´´ ; produit$ ; ´´a une valeur de ´´ ; USING ´´######.##´´ ; PrixVente
PRINT
END




Pour voir le résultat taper la touche de fonction <F5>. Si le programme ne fonctionne pas bien, VERIFIER si vous avez bien recopié l´exemple en respectant bien la ponctuations.

Sauver ce programme en cliquant sur <Fichier> ou si vous préférez les raccourcis clavier c´est <Alt> et ensuite la lettre <F> Ensuite cliquer sur <Enregistrer sous ...> et taper <ENTER>.

Le programme vous demande un nom de fichier. Vous pouvez lui donner le nom de votre choix huit lettre ou chiffre au maximum. Ne jamais commencer par un chiffre. Ne pas utiliser des lettres avec accent : à é è ù etc.

Dans l´exemple je l´ai appellé <calcule>. Après le nom, le programme lui donnera l´extension de trois lettres <BAS> bien que vous puissiez mettre l´extension de votre choix. Mais à ce stade-ci, je vous le déconseille de modifier les trois lettres après le point.

Maintenant que votre travaille est sauver car je suppose que lorsque vous aurez nommé votre programme vous aurez tapez sur <Enter>, voyons ensemble ligne par ligne ce petit programme et la signification des données.





13- Un titre
Un titre

Au début du programme on peut y lire.

´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25

´======== LE DEBUT =======
titre:



Lorsqu´en début de ligne vous placez le signe [ ´ ], c´est-à-dire un accent, tout ce qui suit n´est pas interpréter par le programme.

Faites l´expérience suivante, en recopiant sur une autre feuille, ce qui suit. En n´oubliant pas de bien placer le signe [ ´ ] au début de la seconde ligne.


PRINT ´´Salut, première ligne !´´
´PRINT ´´Salut, deuxième ligne !´´




Lorsque que vous tapez la touche de fonction <F5> vous remarquerez qu´il manque une ligne (la seconde ligne). C´est la conséquence du signe [ ´ ] en début de ligne.

Cela permet de placer un titre à différent endroit de votre programme. Il est important de placer un titre qui explique en une ligne simple une section de votre programme surtout si votre programme est long.

Par exemples :

´ NOM DU PROGRAMME
´ LE DEBUT
[...]

´LES VARIABLES
[...]

´LE MILIEU
[...]

´POUR SAUVER DES DONNER
[...]

REM LA FIN ET QUITTER
[...]




Dans l´exemple ci-dessus, je n´ai rien recopier entre les titres. J´ai simplement indiqué des crochets [ ... ] à ces endroits sont supposés venir des lignes d´instructions ou de textes.

On peu remplacer [ ´ ] l´accent par la fonction <REM> en début de ligne, cela aura le même résultat que l´accent.




14- Les Variables
Variables.

A la suite du titre (Programme de calcule) et du sous-titre (Les variables) il y a deux lignes importantes.


´PROGRAMME DE CALCULE
´=== Les variables ===

titre$= ´´Calcule du bénéfice. ´´
benef = .25




Dans cette zone du sous titre appelée : Les variables, vous aller centraliser toutes les variables de votre programme. De cette manière si vous devez changer une variable qui intervient plusieurs fois dans votre programme vous saurez où elle se trouve sans devoir aller changer cette variable à différent endroit du programme.

Le signe $ se place TOUJOURS à la fin d´une donnée fixe (une constante). Faite le teste suivant :

titre = 10
titre$ = ´´20´´
PRINT titre ; ´ ´ ; titre$
titre2 = titre + titre
titre2$ = titre$ + titre$
PRINT titre2 ; ´ ´ ; titre2$



Faites <F5> pour voir le résultat.
la premier fois avec PRINT vous obtiendrez : 10 20
Avec le second PRINT vous obtiendrez : 20 2020

Les chaînes de caractères doivent se terminer par le signe $ et le premier caractère ne peux pas être un chiffre :

Exemple :
titre5$ -> est correcte
5titre$ -> est incorrecte

Vous pouvez écrire titre5$ ou Titre5$ ou TITRE5$, cela aura le même résultat.






15- Balise
Balise


´ PROGRAMME DE CALCULE
´======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======

titre:



Un mot suivi par le signe [ : ] deux points comme dans notre exemple <titre:> est en quelque sorte considérer comme une balise.
Cette balise n´apparaît pas lors de l´exécution du programme.
Fort utile lorsqu´il faut utiliser les commande GOTO ou GOSUB nous verrons ces commande plus tard.





16- CLS
CLS


´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======
titre:

CLS




La commande <CLS> permet de vider l´écran et de placer le curseur en haut à gauche de l´écran.






17- Tab(chiffre)
Tab(chiffre)


´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT




La fonction TAB(Chiffre) suivi d´un chiffre entre parenthèses indique à quelle distance (en pixels) le curseur doit se positionner par rapport au bord gauche de l´écran. Dans notre exemple plus haut on notera que le <titre$> sera placé à 25 pixels du bord gauche de l´écran.

De plus, la fonction <PRINT> termine la ligne ; cela aura pour effet d´insérer une ligne d´espacement entre le <titre$> et la ligne suivante.





18- INPUT
INPUT

´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´ ======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE R=ROMAN ´´
PRINT

INPUT ´´Type du produit ´´ ; produit$



Une autre fonction très importante <INPUT>. Cette fonction est une question qui demande une réponse de la part de la personne qui utilise le programme.

Comme une valeur est déjà attribuer à la réponse, dans l´exemple cette valeur est <produit$> avec le signe <$>, à la fin de la variable, la réponse pourra être indifféremment une lettre ou plusieurs lettres ou encore un chiffre ou plusieurs chiffres. Par contre sans le signe <$> à la fin de la variable on devra IMPERATIVEMENT écrire un ou plusieurs chiffres.

Fessons un petit teste pour visualiser l´explication précédente. Ecrivez ce qui suit :


´ Teste INPUT
INPUT ´´INPUT avec $ ´´ ; produit$
INPUT ´´INPUT sans $ ´´ ; produit




Taper la touche de fonction <F5>
Faites le texte en répondant un chiffre quelconque aux deux lignes et recommencer en répondant une lettre aux deux lignes.

Vous remarquerez que, à la ligne, sans le signe <$>, vous serez obligé de taper un chiffre.






19- UCASE$(variable$)
UCASE$(variable$)
Revenons à notre programme et voyons la fonction <UCASE$(variable$)>.

L´utilisateur du programme à répondue une lettre à la question : <´´Type du produit ?´´>

Mais il se peut que l´utilisateur ait répondu un <r> ou un <l>, c´est-à-dire des minuscules. Or le programme attend comme réponse un <R> ou un <L> donc des lettres majuscules. Pas de problème la fonction <UCASE$(variable$)> va automatiquement convertir toutes les minuscules en majuscules. Voici donc comment écrire la commande.


´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´ ======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE R=ROMAN ´´
PRINT
INPUT ´´Type du produit ´´ ; produit$
produit$=
UCASE$(produit$)


Pour votre information ; la fonction <LCASE$(variable$)> est simplement la fonction inverse de : <UCASE$(variable$)> c´est-à-dire qu´elle converti toutes les lettres en minuscules.





20- IF ... THEN ...
IF ... THEN...

´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice.´´
benef = .25


´======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE       R=ROMAN ´´
PRINT
INPUT ´´Type du produit ´´ ; produit$
produit$=UCASE$(produit$)

IF produit$ = ´´L´´ THEN produit$ = ´´Livre(s)´´
IF produit$ = ´´R´´THEN produit$= ´´Roman(s)´´



Cette fonction exécute une procédure conditionnelle.
<IF> en français signifie <Si> et <THEN> signifie <ALORS>.

Comment cela fonctionne ? Ecrivez l´exemple suivant et testez le :

INPUT ´´Répondez A ou B ´´ ; r$
r$ = UCASE$(r$)
IF r$ = ´´A´´ THEN PRINT ´´Réponse A´´
IF r$ = ´´B´´ GOTO quitter
PRINT ´´Ni A ni B !´´
END
quitter:
PRINT ´´Réponse B´´



Tapez la touché de fonction <F5> pour lancer votre teste

En résumé cela veut dire :
Si la réponse est A alors écrire Réponse A
Si la réponse est B aller à (la balise) quitter.
Mais si la réponse est autre chose, alors le programme donnera : Ni A ni B ! Et ce sera la fin avec la fonction END.

Fonction logique n´est-il pas ?
Nous verrons plus tard qu´il y a beaucoup mieux et plus à faire avec la fonction : IF ... THEN ...





21- USING ; "###.##"
USING


´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE    R=ROMAN ´´
PRINT
INPUT ´´Type du produit ´´ ; produit$
produit$=UCASE$(produit$)
IF produit$ = ´´L´´ THEN produit$ = ´´Livre(s)´´
IF produit$ = ´´R´´ THEN produit$= ´´Roman(s)´´
INPUT ´´Prix d´achat = ´´ ; prix
INPUT ´´La TVA est de ´´ ; tva
INPUT ´´Quantité d´unité ´´; volume
PRINT
PRINT ´´La marge par unité est de ´´ ; benef ;´´%´´
benef = prix * benef
PRINT ´´Prix d´achat par unité = ´´ ; prix
PRINT ´´Benefice par unité = ´´ ; benef
valeur = prix + benef
PRINT ´´Prix de vente htva ´´ ; valeur
PRINT ´´La TVA est de ´´ ; tva ; ´´%´´
PRINT ´´Nombre d´unité ´´ ; volume
tva = tva / 100
PrixVente = valeur * tva
PrixVente = ( PrixVente1 + valeur ) * volume
PRINT ´´Le stock total de ´´ ; produit$ ; ´´ a une valeur de ´´ ; USING "######.##" ; PrixVente



Lorsqu´on fait une division, il arrive souvent qu´il y ait plusieurs chiffres après la virgule.

Plutôt que d´obtenir :

1,0258
10,10
0,11896 etc...

Mais plutôt :

1,02
10,10
0,12


Pour garder toujours le même nombre de chiffre après une virgule il suffit d´utiliser la commande <USING ; ´´###.##´´>.

Le point indique l´emplacement de la virgule, dans notre exemple il y aura deux chiffre après la virgule mais rien ne vous empêche d´en placer trois. Le signe dièse <#> indique le nombre de chiffre voulu avant et après la virgule.

Cette commande est très utile lorsque vous voulez faire un tableau avec des chiffres placer en colonne de cette manière vous pourrez garder le même alignement et la lecture se fera mieux.






22- END
END

´ PROGRAMME DE CALCULE
´ ======= Les variables =======
titre$= ´´Calcule du bénéfice. ´´
benef = .25


´======== LE DEBUT =======
titre:
CLS
PRINT TAB(25) ; titre$ : PRINT
PRINT ´´L=LIVRE R=ROMAN ´´
PRINT
INPUT ´´Type du produit ´´ ; produit$
produit$=UCASE$(produit$)
IF produit$ = ´´L´´ THEN produit$ = ´´Livre(s)´´
IF produit$ = ´´R´´ THEN produit$= ´´Roman(s)´´
INPUT ´´Prix d´achat = ´´ ; prix
INPUT ´´La TVA est de ´´ ; tva
INPUT ´´Quantité d´unité ´´; volume
PRINT
PRINT ´´La marge par unité est de ´´ ; benef ;´´%´´
benef = prix * benef
PRINT ´´Prix d´achat par unité = ´´ ; prix
PRINT ´´Benefice par unité = ´´ ; benef
valeur = prix + benef
PRINT ´´Prix de vente htva ´´ ; valeur
PRINT ´´La TVA est de ´´ ; tva ; ´´%´´
PRINT ´´Nombre d´unité ´´ ; volume
tva = tva / 100
PrixVente = valeur * tva
PrixVente = ( PrixVente1 + valeur ) * volume
PRINT ´´Le stock total de ´´ ; produit$ ; ´´ a une valeur de ´´ ; USING ´´######.##´´ ; PrixVente
PRINT

END


Ne pas oublier d´indiquer la fin du programme avec la fonction <END>

Si dans votre programme vous aller à la ligne pour séparer vos commande afin que cela soit plus lisible n´ayez aucunes craintes car cela n´apparaîtra pas à l´écran.






23- TESTE
Teste


Lorsque vous aurez recopié le programme, qui vous est proposer à titre d´exemple, à vous de bien assimiler les fonctions vues, testez le en tapant <F5>.

Après avoir répondu aux questions vous deviez obtenir le résultat suivant.

´ Calcule du bénéfice.

L=LIVRE   R=ROMAN
Type du produit ?
Prix du produit = ?
La TVA est de ?
Quantité ?
Le stock total de (x) a une valeur de (valeur)






24- Résumé du chapitre 2.
Résumé du chapitre 2.
Nous avons réalisé un premier petit programme.

Des commandes importantes ont été utilisées telles que :
  • PRINT,
  • INPUT,
  • CLS,
  • UCASE$(variable$),
  • IF ... THEN ...,
  • USING´´###.##´´,
  • END,
  • TAB(chiffre),
  • REM,
  • le signe accent [ ´ ],
  • une variable fixe ( ou une constante),
  • le signe [ $ ],
  • le balise suivit de deux points [ : ],
  • le signe [ + ],
  • le signe [ - ],
  • le signe [ * ],
  • le signe [ / ].

Avec ces commandes, vous pouvez déjà réaliser vos propres petits programmes suivant vos propres besoins.



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



Powered by : www.webhabilis.be