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 copier le contenu d'un champ image (ImageSource) dans un second champ image (ImageDestination). L'utilisateur sélectionne le mode de copie grâce à un champ liste (ListeMode).
|
||
// Déclaration des variables
ResCopie est un booléen ModeCopie est un entier // Récupération du mode de copie SELON ListeMode CAS 1 : ModeCopie = copieToutNoir CAS 2 : ModeCopie = copieDstInverse CAS 3 : ModeCopie = copieFusionCopie CAS 4 : ModeCopie = copiePasSrcCopie CAS 5 : ModeCopie = copiePasSrcEfface CAS 6 : ModeCopie = copieSrcEt CAS 7 : ModeCopie = copieSrcCopie CAS 8 : ModeCopie = copieSrcEfface CAS 9 : ModeCopie = copieSrcInverse CAS 10 : ModeCopie = copieSrcPeint CAS 11 : ModeCopie = copieToutBlanc CAS 12 : ModeCopie = copieFusionPeint CAS 13 : ModeCopie = copiePatCopie CAS 14 : ModeCopie = copiePatInverse CAS 15 : ModeCopie = copiePatPeint FIN // Copie du contenu du champ image ResCopie = dCopieImage (ImageSource, ImageDestination, ModeCopie) // Erreur ? SI ResCopie = Vrai ALORS Info("La copie a été effectuée") SINON Erreur("La copie n'a pas été effectuée") FIN
|
||
Le code suivant permet de réduire de 50 % une image affichée dans un champ image (ImageSource) dont les coordonnées sont (0,0), (150,200). L'image réduite est copiée dans un second champ image (ImageDestination).
|
||
// Déclaration des variables
ResCopie est un booléen // Réduction de l'image sélectionnée ResCopie = dCopieImage (ImageSource, ImageDestination,… copieSrcCopie , 0, 0, 150, 200, 0, 0, 75, 100) // Erreur ? SI ResCopie = Vrai ALORS Info("La réduction a été effectuée") SINON Erreur("La réduction n'a pas été effectuée") FIN
|