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 d'identifier la couleur d'un pixel. L'utilisateur sélectionne ce pixel en cliquant sur le champ image (ImageDessin). Les coordonnées du pixel sélectionné sont récupérées avec les fonctions SourisPosX et SourisPosY .

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



--Code de clic sur "ImageDessin"
// Déclaration des variables
CouleurPixel est un entier
CoordPixelHor est un entier
CoordPixelVert est un entier
CouleurPixelRouge est un entier
CouleurPixelVert est un entier
CouleurPixelBleu est un entier
// Récupération des coordonnées du pixel sélectionné
CoordPixelHor = SourisPosX()
CoordPixelVert = SourisPosY()
// Identification de la couleur du pixel sélectionné
CouleurPixel = dPixelCouleur (ImageDessin, CoordPixelHor, CoordPixelVert)
CouleurPixelRouge = Modulo(CouleurPixel, 256)
CouleurPixelVert = Modulo(CouleurPixel/256, 256)
CouleurPixelBleu = Modulo(CouleurPixel/256/256, 256)
// Affichage du résultat
Info("Les composantes couleur du pixel sont : " + RC + ...
   TAB + "- Rouge : " + CouleurPixelRouge + RC + ...
   TAB + "- Vert : " + CouleurPixelVert + RC + ...
   TAB + "- Bleu : " + CouleurPixelBleu)