Des exemples d'utilisation des fonctions du WLangage
Rien de tel qu'un exemple pour comprendre une fonction de WLangage. Dans cette section, vous trouverez des exemples simples.
Des exemples évolués, où la fonction est utilisée en contexte, sont également disponible sur ce site.
ChargeImage (en anglais LoadImage)
// L'image "C:\MesImages\Image.BMP"est composée de
// 20 dessins disposés en 10 lignes et en 2 colonnes. // Le cadre autour de ces composantes ne sera pas affiché. ChargeImage (IdImage, "C:\MesImages\Image.BMP", 10, 2, "C")
|
ChargeImage (en anglais LoadImage)
// L'image "\MesImages\Image.BMP"est composée de
// 20 dessins disposés en 10 lignes et en 2 colonnes. // Le cadre autour de ces composantes ne sera pas affiché. ChargeImage (IdImage, "\MesImages\Image.BMP", 10, 2, "C")
|
dArc (en anglais dArc)
dCercle (en anglais dCircle)
// Dessin d'un cercle dont le fond est jaune clair et
// le bord bleu clair dCercle (10, 10, 50, 50, iJauneClair , iBleuClair )
|
dChangeMode (en anglais dChangeMode)
// Dessine un rectangle puis l'efface
dChangeMode ( dessinXor ) // Affiche le rectangle (en mode XOR) dRectangle(0, 0, 100, 100) Multitache(10) // Efface le rectangle dRectangle(0, 0, 100, 100)
|
dCopieImage (en anglais dCopyBlt)
dCopieImage (en anglais dCopyBlt)
// Copie simple du contenu du champ image "ImageDessin"
// dans le champ image "ImageCopie" ResCopie = dCopieImage (ImageDessin, ImageCopie)
|
dCorde (en anglais dChord)
// Dessin d'une corde de cercle dont le
// fond est jaune clair et le bord bleu clair dCorde (10, 10, 50, 50, 20, 20, 40, 50, iJauneClair , iBleuClair )
|
dDebutDessin (en anglais dStartDrawing)
// Début du dessin dans le champ image "ImageDessin"
ResDessin = dDébutDessin (ImageDessin) // Dessins dans le champ image "ImageDessin" ... // Fin des dessins dans le champ image "ImageDessin"
|
dFinDessin (en anglais dEndDrawing)
dFond (en anglais dBackground)
dInverseCouleur (en anglais dInvertColor)
// Inverse les couleurs du champ IMAGE1
Résultat est un booléen Résultat = dInverseCouleur (Image1) SI Résultat = Faux ALORS Erreur("L'opération a échoué")
|
dLigne (en anglais dLine)
dPixelCouleur (en anglais dPixelColor)
// Identification de la couleur du pixel (15, 25)
// sur le champ image "ImageDessin" ResCouleur = dPixelCouleur (ImageDessin, 15, 25)
|
dPoint (en anglais dPoint)
dPolice (en anglais dFont)
dPolygone (en anglais dPolygon)
// Dessin d'un polygone à 4 côtés dont le
// fond est jaune clair et le bord bleu clair dPolygone (4, 10, 20, 20, 50, 40, 60, 50, 10, iJauneClair , iBleuClair )
|
dPortion (en anglais dSlice)
// Dessin d'une portion de cercle dont le
// fond est jaune clair et le bord bleu clair dPortion (10, 10, 50, 50, 20, 20, 40, 50, iJauneClair , iBleuClair )
|
dRectangle (en anglais dRectangle)
// Dessin d'un rectangle dont le fond est jaune clair
// et le bord bleu clair dRectangle (10, 10, 50, 50, iJauneClair , iBleuClair )
|
dRedimensionne (en anglais dResize)
// Zoom du champ IMAGE1: on grossit 2 fois l'image affichée dans le champ
Résultat est un booléen Résultat = dRedimensionne (Image1, ... Image1..Largeur * 2, ... Image1..Hauteur *2)) SI Résultat = Faux ALORS Erreur("L'opération a échoué")
|
dRemplissage (en anglais dFill)
dRotation (en anglais dRotation)
// Rotation du champ IMAGE1 de 45 degrés
Résultat est un booléen Résultat = dRotation (Image1,45) SI Résultat = Faux ALORS Erreur("L'opération a échoué")
|
dSauveImageBmp (en anglais dSaveImageBMP)
// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageBMP (ImageDessin, EnMémoire )
|
dSauveImageBmp (en anglais dSaveImageBMP)
// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.BMP"
ResSauvegarde = dSauveImageBMP (ImageDessin, "C:\Documents\Image.BMP")
|
dSauveImageBmp (en anglais dSaveImageBMP)
// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.BMP"
ResSauvegarde = dSauveImageBMP (ImageDessin, "\Documents\Image.BMP")
|
dSauveImageGif (en anglais dSaveImageGIF)
// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageGIF (ImageDessin, enMémoire )
|
dSauveImageGif (en anglais dSaveImageGIF)
// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.GIF"
ResSauvegarde = dSauveImageGIF (ImageDessin, "C:\Documents\Image.GIF")
|
dSauveImageGif (en anglais dSaveImageGIF)
// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.GIF"
ResSauvegarde = dSauveImageGIF (ImageDessin, "\Documents\Image.GIF")
|
dSauveImageJpeg (en anglais dSaveImageJPEG)
// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageJPEG (ImageDessin, EnMémoire )
|
dSauveImageJpeg (en anglais dSaveImageJPEG)
// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.JPEG"
ResSauvegarde = dSauveImageJPEG (ImageDessin, "C:\Documents\Image.JPEG")
|
dSauveImageJpeg (en anglais dSaveImageJPEG)
// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.JPEG"
ResSauvegarde = dSauveImageJPEG (ImageDessin, "\Documents\Image.JPEG")
|
dSauveImagePNG (en anglais dSaveImagePNG)
// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.PNG"
ResSauvegarde = dSauveImagePNG (ImageDessin, "C:\Documents\Image.PNG")
|
dSauveImagePNG (en anglais dSaveImagePNG)
// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImagePNG (ImageDessin, EnMémoire )
|
dStylo (en anglais dPen)
dSymetrieHorizontale (en anglais dHorizontalSymmetry)
// Symétrie horizontale du champ IMAGE1
Résultat est un booléen Résultat = dSymétrieHorizontale (Image1) Si Résultat = Faux ALORS Erreur("L'opération a échoué")
|
dSymetrieVerticale (en anglais dVerticalSymmetry)
// Symétrie verticale du champ IMAGE1
Résultat est un booléen Résultat = dSymétrieVerticale (Image1) SI Résultat = Faux ALORS Erreur("L'opération a échoué")
|
dTexte (en anglais dTexte)
dTexte (en anglais dTexte)
// Calculer la taille d'un texte
nLargeurTexte est un entier dDébutDessin(Image1)
dTexte
(X,Y,MonTexte)
nLargeurTexte = TexteLargeur(Saisie1,MonTexte)
dTexte(X + nLargeurTexte,Y,MonTexteSuivant)
|
gARecuperer (en anglais gARetrieve)
ListeSupprimeTout(LISTE1)
ListeAjoute(LISTE1,gStylo( iNoir )+"Voiture") // LISTE1[1] retourne la chaîne de caractères "Voiture" ListeAjoute(LISTE1, gARecuperer ("Bateau")+gStylo( iNoir )+ ... " à moteur") //LISTE1[2] retourne la chaîne de caractères "Bateau" ListeAjoute(LISTE1, gARecuperer (gImage(2,25)+" ABC")+" DEF") //LISTE1[3] retourne la chaîne de caractères "2,25"+ESC+"ABC" // Les fonctions gRectangle, gCercle, gLigne sont ignorées ListeAjoute(LISTE1, gARecuperer (gRectangle(0,0,50,18))) //LISTE1[4] retourne une chaîne vide
|
gCadrage (en anglais gAlignment)
// Cadrage à droite des 20 premiers éléments dans la liste "ListeClient"
POUR Indice = 1 à 20 ListeAjoute(ListeClient, gCadrage ("D", Nom[Indice])) FIN
|
gCadrage (en anglais gAlignment)
gCercle (en anglais gCircle)
// Dessin d'un cercle dans un élément de la liste "ListeFigure"
// Le fond du cercle est vert clair et les bordures sont jaune clair ListeAjoute(ListeFigure, gCercle (0, 0, 25, 18, iVertClair , iJauneClair ))
|
gCoord (en anglais gCoord)
// Ajout en relief du mot "Relief" dans la liste "TypeEcriture"
ListeAjoute(TypeEcriture, gCoord (2,2) + "Relief" + 18 + gCoord (1,1) + "Relief")
|
gFond (en anglais gBackGround)
// Ajout du mot "Jaune" sur fond jaune dans la liste "ListeCouleur"
ListeAjoute(ListeCouleur, gFond ( iJauneClair ) + "Jaune")
|
gImage (en anglais gImage)
// Ajout de l'image "C:\MesImages\Image.BMP" dans la liste "ListeImage"
ListeAjoute(ListeImage, gImage ("C:\MesImages\Image.BMP")) // Ajout d'une image constituée de plusieurs dessins // Découpage en 10 lignes et 2 colonnes // Chargement en mémoire de l'image "C:\MesImages\ImageDec.BMP" ChargeImage(IdImage, "C:\MesImages\ImageDec.BMP", 10, 2) POUR RangDessin = 1 à 10*2 ListeAjoute(ListeImage, gImage (IdImage, RangDessin)) FIN
|
gImage (en anglais gImage)
// Ajout de l'image "\MesImages\Image.BMP" dans la liste "ListeImage"
ListeAjoute(ListeImage, gImage ("\MesImages\Image.BMP")) // Ajout d'une image constituée de plusieurs dessins // Découpage en 10 lignes et 2 colonnes // Chargement en mémoire de l'image "\MesImages\ImageDec.BMP" ChargeImage(IdImage, "\MesImages\ImageDec.BMP", 10, 2) POUR RangDessin = 1 à 10*2 ListeAjoute(ListeImage, gImage (IdImage, RangDessin)) FIN
|
gLien (en anglais gLink)
// La combo "ComboCivilité" affiche les titres de civilité :
// "Monsieur", "Madame" et "Mademoiselle". // Un entier représentant une civilité sera retourné au langage. ListeAjoute (ComboCivilité, "Monsieur" + gLien ("1")) // Seule la chaîne de caractères "1" est retournée au langage. // Cette chaîne de caractères retournée n'est pas affichée dans la combo.
|
gLienActive (en anglais gLinkActivate)
// La combo "ComboCivilité" affiche les titres de civilité :
// "Monsieur", "Madame" et "Mademoiselle". // Un entier représentant une civilité sera retourné au langage. ListeAjoute(ComboCivilité, "Monsieur" + gLien("1")) // Seule la chaîne de caractères "1" est retournée au langage. // Cette chaîne de caractères retournée n'est pas affichée dans la combo. // Autoriser la récupération de la valeur définie par la fonction gLien. gLienActive (ComboCivilité, Vrai )
|
gLigne (en anglais gLine)
// Tracé d'une ligne verte dans un élément de la liste "ListeFigure"
ListeAjoute(ListeFigure, gLigne (0, 0, 25, 18, iVertClair ))
|
GPolice (en anglais gFont)
gRectangle (en anglais gRectangle)
// Dessin d'un rectangle dans un élément de la liste "Figure"
// Le fond du rectangle est vert clair et le bord jaune clair ListeAjoute(Figure, gRectangle (0, 0, 25, 18, iVertClair , iJauneClair ))
|
gStylo (en anglais gPen)
// Ajout du mot "Jaune" de couleur jaune dans la liste "ListeCouleur"
ListeAjoute(ListeCouleur, gStylo ( iJauneClair ) + "Jaune")
|
InfoBitmap (en anglais BitmapInfo)
InfoImage, Format sont des chaînes
Hauteur, Largeur sont des entiers // Récupération des caractéristiques de l'image InfoImage = InfoBitmap ("C:\Windows\CARREAU.BMP") Format = ExtraitChaîne(InfoImage, 1) Largeur = Val(ExtraitChaîne(InfoImage, 2)) Hauteur = Val(ExtraitChaîne(InfoImage, 3)) // Affichage des caractéristiques Info("Format de l'image : " + Format, "Largeur : " + Largeur, ... "Hauteur : " + Hauteur)
|
InfoBitmap (en anglais BitmapInfo)
InfoImage, Format sont des chaînes
Hauteur, Largeur sont des entiers // Récupération des caractéristiques de l'image InfoImage = InfoBitmap ("\Windows\CARREAU.BMP") Format = ExtraitChaîne(InfoImage, 1) Largeur = Val(ExtraitChaîne(InfoImage, 2)) Hauteur = Val(ExtraitChaîne(InfoImage, 3)) // Affichage des caractéristiques Info("Format de l'image : " + Format, "Largeur : " + Largeur,... "Hauteur : " + Hauteur)
|