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 une portion de cercle dans un champ image (ImageDessin). Les coordonnées du rectangle dans lequel le cercle sera inscrit et les coordonnées du point de départ et du point d'arrivée de la portion de cercle sont saisies par l'utilisateur dans des champs de saisie (X1, Y1, X2, Y2, X3, Y3, X4, Y4). La couleur du fond et la couleur du trait de la portion de cercle sont sélectionnées par l'utilisateur à l'aide de deux sélecteurs (SelectFond et SelectTrait).



// Déclaration des variables
CouleurFond est un entier
CouleurTrait est un entier
// Le dessin va être dessiné dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération de la couleur de fond sélectionnée
SELON SelectFond
    CAS 1 : CouleurFond = iRougeClair
    CAS 2 : CouleurFond = iBleuClair
    CAS 3 : CouleurFond = iVertClair
    CAS 4 : CouleurFond = iJauneClair
FIN
// Récupération de la couleur du trait sélectionnée
SELON SelectTrait
    CAS 1 : CouleurTrait = iRougeClair
    CAS 2 : CouleurTrait = iBleuClair
    CAS 3 : CouleurTrait = iVertClair
    CAS 4 : CouleurTrait = iJauneClair
FIN
// Tracé de la portion de cercle
dPortion(X1, Y1, X2, Y2, X3, Y3, X4, Y4, CouleurFond, CouleurTrait)