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.
Le code suivant permet de tracer une corde 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 corde du 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 corde du 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 // Déclaration du 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 corde de cercle dCorde(X1, Y1, X2, Y2, X3, Y3, X4, Y4, CouleurFond, CouleurTrait)
|