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 un texte dans un champ image (ImageDessin). Le texte à dessiner est saisi par l'utilisateur dans un champ de saisie (SaisieTexte). La police, la taille et la couleur du texte sont sélectionnées par l'utilisateur à l'aide de trois sélecteurs (SelectPolice, SelectTaille et SelectCouleur).
|
||
// Déclaration des variables
PoliceTexte est une chaîne de caractères TailleTexte est un entier CouleurTexte est un entier // Déclaration du dessin dans le champ image "ImageDessin" dDébutDessin(ImageDessin) // Récupération de la police sélectionnée SELON SelectPolice CAS 1 : PoliceTexte = "Arial" CAS 2 : PoliceTexte = " Times New Roman" CAS 3 : PoliceTexte = " Courier New " FIN // Récupération de la taille sélectionnée SELON SelectTaille CAS 1 : TailleTexte = 10 CAS 2 : TailleTexte = 12 CAS 3 : TailleTexte = 14 FIN // Récupération de la couleur du texte sélectionnée SELON SelectCouleur CAS 1 : CouleurTexte = iRougeClair CAS 2 : CouleurTexte = iBleuClair CAS 3 : CouleurTexte = iVertClair CAS 4 : CouleurTexte = iJauneClair FIN // Initialisation de la police dPolice(PoliceTexte, TailleTexte) // Tracé du texte dTexte(10, 10, SaisieTexte, CouleurTexte)
|