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 dessiner un cercle composé de plusieurs points dans un champ image (ImageDessin). Les coordonnées du centre du cercle et le rayon sont saisies par l'utilisateur dans des champs de saisie (PosCentreH, PosCentreV et Rayon). La couleur du point central et la couleur du cercle sont sélectionnées par l'utilisateur à l'aide de deux sélecteurs (SelectCouleurPoint et SelectCouleurCercle).



// Déclaration des variables
CouleurPoint est un entier
CouleurCercle est un entier
Indice est un entier
X, Y sont des entiers
// Déclaration du dessin dans le champ image "ImageDessin"
dDébutDessin(ImageDessin)
// Récupération de la couleur du point central sélectionnée
SELON SelectCouleurPoint
    CAS 1 : CouleurPoint = iRougeClair
    CAS 2 : CouleurPoint = iBleuClair
    CAS 3 : CouleurPoint = iVertClair
    CAS 4 : CouleurPoint = iJauneClair
FIN
// Récupération de la couleur du cercle sélectionnée
SELON SelectCouleurCercle
    CAS 1 : CouleurCercle = iRougeClair
    CAS 2 : CouleurCercle = iBleuClair
    CAS 3 : CouleurCercle = iVertClair
    CAS 4 : CouleurCercle = iJauneClair
FIN
// Dessin du cercle
POUR Indice = 0 à 360
    
X = PosCentreH + Rayon * Cosinus(Indice)
     Y = PosCentreV + Rayon * Sinus(Indice)
     dPoint(X, Y, CouleurCercle)
FIN
// Dessin du point central
dPoint(PosCentreH, PosCentreV, CouleurPoint)