DIM Nom(10) AS STRING*100
DIM Prenom(10) AS STRING*100
DIM Age(10) AS INTEGER
DIM Avis(10) AS INTEGER
'Ici, on suppose que l'avis est un nombre
'     0: nul
'     1: très moyen
'     2: moyen
'     3: bon
'     4: très bon
'     5: excellent

TYPE lecteur
	prenom AS STRING*100
	nom AS STRING*100
	age AS INTEGER
	avis AS INTEGER
END TYPE

'Pour maintenant déclarer un tableau de plusieurs lecteur, on utilise ...

DIM lecteurs(10) AS lecteur

TYPE essai
	nom AS STRING*100
	prenom AS STRING*100
END TYPE

DIM essai1 AS essai

...

essai1.nom = "moi"
essai1.nom = essai1.nom + " et elle"

PRINT essai1.nom

FUNCTION carre(x)
carre = x*x
END FUNCTION

l

Pour créer une telle fonction, allez dans le menu Edition | Nouvelle Function

FUNCTION multiplie(x)
	INPUT "Entrez un nombre:";nb
	multiplie = nb * x
END FUNCTION

FUNTION multiplie(a,b)
	multiplie=a*b
END FUNCTION

FUNCTION repetechaine$(ch$,nb)
	a$=""
	for i=1 to nb
		a$=a$+ch$
	next i
END FUNCTION

PRINT repetechaine$("Candyman",5)

cri$=repetechaine$("ahh!!",3)

FUNCTION effaceecran
	locate 1,1
	for y=1 to 25
		for i=1 to 80
			PRINT " ";
		next i
	next y
END FUNCTION

l

Pour créer des SUBs, passez par le menu Edition | Nouveau SUB

Pour appeller une procedure à partir du programme principal (ou d'une autre procédure d'ailleurs), il suffit d'écrire son nom. Ici, pour appeller le SUB effaceecran, il suffit d'écrire effaceecrandans le programme principal.

    La deuxième méthode pour appeller une preocédure est d'utiliser CALL

    Si on décide d'utiliser CALL, les arguments devront être mis entres paranthèses, sans CALL, vous ne DEVEZ PAS les mettre entre paranthèses.

    Imaginons, un SUB nommé foo avec deux paramètre de type nombre

CALL foo (a,b) foo a,b

l

     ... ces deux appels sont équivalents.

l

Depuis le début, il y a beaucoup de choses qui sont faisables de différentes façons en QuickBasic. En fait, beaucoup de concept viennent de vieux basic, et Microsoft, dans sa volonté de maintien de compatibilité éternelle, a voulu gardé pleins de mot-clés qui sont maintenant complétement dépassés. Exemple: DEF FN, GOTO, GOSUB, LET, etc ...

>Les arguments spéciaux des fonctions/procédures

    Si vous avez suivi la ligne juste avant, vous devez vous dire qu'on peut donc prendre tous les types de données en arguments, Y COMPRIS ceux que vous avez créés. Et, c'est là que ça devient intéressant ...

    Pour par exemple créer une procédure échange le nom et le prénom d'un lecteur (voir définition du type lecteur plus haut), il faut spécifier à QuickBasic que l'argument est de ce type. Pour cela, on utilise le mot-clé AS comme dans la déclaration d'un tableau

SUB echange(lect AS lecteur) tmp$ = lect.nom lect.nom = lect.prenom lect.prenom = tmp$ END SUB

l

     ... d'où l'interêt des enregistrements ... En effet, avec le type lecteur définit, pas de problèmes, on appelle simplement echange lecteurs(1) si on veut échanger le nom et le prénom du lecteur n°1

    Mais, si on était resté avec la vieille méthode consistant à écrire :

DIM nom(10) AS STRING*100 DIM prenom(10) AS STRING*100 DIM age(10) AS INTEGER DIM avis(10) AS INTEGER

l

     ... comment aurions pu faire une procédure échangé qui tienne la route ?

    On aurait pu créer un SUB qui attend deux variables: le nom et le prénom ...

SUB echange(chaine1$, chaine2$) tmp$=chaine1$ chaine1$=chaine2$ chaine2$=tmp$ END SUB

l

    Il aurait donc fallu écrire dans le programme principale echange nom(1), prenom(1)

    Jusque là, ça va, c'est pas trop embétant. Mais, imaginons une énorme structure contenant le nom, le prénom, l'age, l'avis, le nb de frère, le nb de soeurs, le niveau en français, le niveau en maths, la situation militaire, etc .. d'un lecteur et une procédure chargée de classer et d'écrire tous ces renseignements dans un fichier, l'appel à cette procédure donnaerait ...

EcritDansFichier nom(1),prenom(1),age(1),situation(1),maths(1),francais(1), .....

l

    Et la procédure aurait pour arguments ... nom$, prenom$, age, situation, maths, ...

    Un peu long, non ? En plus, les inversions entres les différents arguments sont vite arrivées. Donc, utilisez des structures le plus possible, ça donne une grande souplesse et ça vous permettra de vous familiariser avec d'autres langages (comme le C, le Pascal par exemple ...

    Voila, le QuickBasic, c'est terminé pour aujourd'hui ... vous connaissez pas mal de choses déjà ...


Ce document est la propriété de discase. La rédaction ainsi que l'auteur déclinent toutes résponsabilité vis-â-vis des conséquences que pourrait entrainer le contenu de cet article.