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