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 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)
|