pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

Exemples évolués

Chaque exemple montre une utilisation pratique de la fonction du WLangage.

Quand plusieurs syntaxes sont possibles, chacune est illustrée indépendamment.

Revenir à la page des exemples évolués


L'exemple suivant est une procédure permettant d'ajouter un produit dans le fichier PRODUIT. Pour chaque produit, cette procédure permet d'attacher l'image du produit dans le mémo de l'enregistrement.



// Procédure d'ajout d'un produit
FONCTION bAjouteProduit(sNomProduit, sImage)

// nom du produit
PRODUIT.NOM = sNomProduit

// photo du produit
SI PAS HAttacheMémo (PRODUIT,PHOTO, sImage, HMémoImg ) ALORS
  RENVOYER Faux
FIN

// ajoute le produit au fichier des produits
SI PAS HAjoute() ALORS
 RENVOYER Faux
FIN

RENVOYER Vrai