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 ligne dans un champ image (ImageDessin). Les coordonnées du point de départ et d'arrivée de la ligne sont saisies par l'utilisateur dans des champs de saisie (X1, Y1, X2, Y2). La couleur de la ligne est sélectionnée par l'utilisateur à l'aide d'un sélecteur (SelectionCouleur).



// Déclaration de la variable
CouleurLigne est un entier
// Déclaration du dessin dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération de la couleur de la ligne sélectionnée
SELON SelectionCouleur
    CAS 1 : CouleurLigne = iRougeClair
    CAS 2 : CouleurLigne = iBleuClair
    CAS 3 : CouleurLigne = iVertClair
    CAS 4 : CouleurLigne = iJauneClair
FIN
// Tracé de la ligne
dLigne(X1, Y1, X2, Y2, CouleurLigne)