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

52- Derniers petits conseils.
Derniers petits conseils.

Maintenant vous êtes déjà apte à faire vos programmes.

Pour réaliser votre premier programme vous devez savoir ce que vous voulez faire et pensez bien à faciliter la vie de celui ou celle qui devra utiliser votre programme.

Pour l'utilisateur de votre programme, il suffit d'entrer des données à vous de savoir où et quoi en faire.

Prévoyez plusieurs possibilités. Que vos questions soient claires et faciles à répondre : Par un chiffre, Enter, oui non , etc.

Trop d'informations inutile sur un même écran distrait l'utilisateur. Soyez simple et claire.

Testez votre programme. Faites le tester par des amis. Adapter vous à la demande.

Bon succès.






53- CALCULE.BAS
CALCULE.BAS

´ 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

 






54- TELEPHON.BAS
TELEPHON.BAS


' REPERTOIRE TELEPHONIQUE
' ***** Les variables *****
DIM nom$(100), tel$(100)
escapes$=CHR$(27):bip$=CHR$(7):cls$=escape$+"E"+escape$+"H"
tel.fichier$="tel.seq" : fichier%=1
faux=0 : vrai=-1
fich.change=faux
PRINT cls$;"REPERTOIRE TELEPHONIQUE"

'******SAISIE DES DONNEES
GOSUB balise1

'******SAISIE DES COMMANDES
command=0
WHILE command<5 PRINT "RETETOIRE TELEPHONIQUE";donnees;" DONNEES"
PRINT : PRINT "'R'echercher un numero, 'A'jouter un numero, 'F'in"
match$="RrAaFf": GOSUB balise2 : command=reponse
ON command GOSUB balise3, balise3, balise4, balise4:GOSUB balise5
WEND
' ----- FIN -----

IF fich.change=vrai THEN GOSUB balise6
END

' SOUS PROGRAMME
balise1:
IF FIND$(tel.fichier$)<> "" THEN GOTO balise2
PRINT "ABSENCE DE REPERTOIRE SUR CETTE DISQUETTE ... 'C'hanger de disquette ou créer un 'N'ouveau repertoire ?"
match$="CcNn":GOSUB balise2
IF reponse = 3 or reponse = 4 THEN donnees = 0
RETURN

GOSUB balise8:
GOTO balise1

' LIS LES ENTREES
balise7:
PRINT: PRINT "LECTURE DU REPERTOIRE EN COURS; ... PATIENTEZ ..."
OPEN "I", fichier%,tel.fichier$
donnees=0
WHILE NOT (EOF(fichier%)donnees=donnees + 1
INPUT #fichier%, nom*(donnees), tel$(donnes)WENDCLOSE fichier%
RETURN
'RECHERCHE
balise3:
IF donnees=0 THEN PRINT "REPERTOIRE VIDE !!!"
RETURN
INPUT "TAPEZ LE NOM DE LA PERSONNE SUIVI DE <ENTER>";rech$
IF rech$="" THEN RETURN
compt=1
WHILE compt<= donnees AND nom$(comt)<> rech$:comt = compt + 1WENDIF compt > donnees THEN PRINT rech$;" INCONNU": RETURN´´AJOUTER UNE DONNEE´´

balise4:
IF donnees >= 100 THEN PRINT ´´PLUS DE PLACE !!´´
RETURN
INPUT ´´TAPEZ LE NUMERO DE TEL. CORRESPONDAT PUIS <RETURN> ´´ ;tel$
IF tel$=´´´´ THEN RETURN
donnees = donnees + 1nom$(donnees)= nom$tel$(donnees)=tel$fich.change=vrai :
RETURN

´ECRIRE DANS LE FICHIER
balise6:
PRINT : PRINT ´´ECRITURE DANS LE REPERTOIRE ; PATIENTEZ.´´
OPEN ´´O´´,fichier%,nom$(compt),tel$(compt)
NEXT
CLOSE fichier%
RETURN

´CHANGEMENT DE DISQUETTE
balise8:
RESET
PRINT ´´UNSERREZ LA DISQUETTE CONTENANT LE REPERTOIRE TELPHONIQUE PUIS TAPEZ <ENTER>´´, a$
RETURN

´TEST CLAVIER
balise2:
reponse$ = INKEY$
WHILE reponse$=´´
Reponse$ = INKEY$
WEND
Reponse = INSTR(match$, reponse$)
IF reponse = 0 THEN GOTO balise2
RETURN

´ATTENTE D´UNE ENTRÉE DE CLAVIER
PRINT : PRINT ´´TAPEZ UNE TOUCHE POUR LA SUITE...´´
WHILE INKEY$ = ´´´´ : WEND
RETURN

 



Tapez la touche de fonction F5 pour voir le résultat.




55-Résumé du chapitre
Résumé du chapitre.




Dans ce chapitre vous avez trouvé quelques petits conseils.
Un programme pour vous montrer une mamière d´utiliser les formules et les calcules.
Un autre programme pour faire votre répertoire téléphonique.







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


Powered by : www.webhabilis.be