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


Le code suivant permet de tracer un texte dans un champ image (ImageDessin). Le texte à dessiner est saisi par l'utilisateur dans un champ de saisie (SaisieTexte). La police, la taille et la couleur du texte sont sélectionnées par l'utilisateur à l'aide de trois sélecteurs (SelectPolice, SelectTaille et SelectCouleur).



// Déclaration des variables
PoliceTexte est une chaîne de caractères
TailleTexte est un entier
CouleurTexte est un entier
// Déclaration du dessin dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération de la police sélectionnée
SELON SelectPolice
    CAS 1 : PoliceTexte = "Arial"
    CAS 2 : PoliceTexte = " Times New Roman"
    CAS 3 : PoliceTexte = " Courier New "
FIN
// Récupération de la taille sélectionnée
SELON SelectTaille
    CAS 1 : TailleTexte = 10
    CAS 2 : TailleTexte = 12
    CAS 3 : TailleTexte = 14
FIN
// Récupération de la couleur du texte sélectionnée
SELON SelectCouleur
    CAS 1 : CouleurTexte = iRougeClair
    CAS 2 : CouleurTexte = iBleuClair
    CAS 3 : CouleurTexte = iVertClair
    CAS 4 : CouleurTexte = iJauneClair
FIN
// Initialisation de la police
dPolice(PoliceTexte, TailleTexte)
// Tracé du texte
dTexte(10, 10, SaisieTexte, CouleurTexte)