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 tracer un texte dans un champ image (ImageDessin). Le texte à dessiner est saisi par l'utilisateur dans un champ de saisie (SaisieTexte). La police est sélectionnée par l'utilisateur à l'aide de la fonction PoliceSelect.



// Création d'une police par défaut
PDéfaut est une police = PoliceCrée("Arial", 12)
// On utilise une variable pour stocker la police de l'utilisateur
PUtilisateur est une police
// On demande à l'utilisateur de modifier sa police
PoliceSelect(PUtilisateur, Vrai , PDéfaut)
// Initialisation de la police
dPolice(PUtilisateur)
// Tracé du texte
dTexte(10, 10, SaisieTexte)


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 et la taille du texte sont sélectionnées par l'utilisateur à l'aide de deux sélecteurs (SelectPolice et SelectTaille).



// Déclaration des variables
PoliceTexte est une chaîne
TailleTexte 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
// Initialisation de la police
dPolice(PoliceTexte, TailleTexte)
// Tracé du texte
dTexte(10, 10, SaisieTexte)