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 modifier la couleur d'une zone dans un champ image (ImageDessin). L'utilisateur sélectionne cette zone en cliquant dedans sur le champ image. La nouvelle couleur est sélectionnée par l'utilisateur à l'aide d'un sélecteur (SelectCouleur). Les coordonnées du clic de souris sont récupérées par les fonctions SourisPosX et SourisPosY .

Pour cet exemple, nous considérons que le champ image (ImageDessin) contient plusieurs dessins.



--Code de clic sur "ImageDessin"
// Déclaration des variables
CouleurZone est un entier
CoordX est un entier
CoordY est un entier
// Déclaration du dessin dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération des coordonnées du clic de souris
CoordX = SourisPosX
CoordY = SourisPosY
// Récupération de la couleur de remplissage sélectionnée
SELON SelectCouleur
    CAS 1 : CouleurZone = iRougeClair
    CAS 2 : CouleurZone = iBleuClair
    CAS 3 : CouleurZone = iVertClair
    CAS 4 : CouleurZone = iJauneClair
FIN
// Coloriage de la zone
dRemplissage(CoordX, CoordY, CouleurZone)