pictogram Auteur: Patrick Biker
Date: 18 mars 2006
Maj : 21 Mars 2015

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.

Aller à la page des exemples évolués

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


Début de la page

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


Début de la page

dArc (en anglais dArc)

// Dessin d'un arc de cercle jaune clair
dArc (10, 10, 50, 50, 20, 20, 40, 50, iJauneClair )


Début de la page

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 )


Début de la page

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)


Début de la page

dCopieImage (en anglais dCopyBlt)

// Copie de l'image de la fenêtre courante dans un champ image
dCopieImage ( copieEcran ,MonImage)


Début de la page

dCopieImage (en anglais dCopyBlt)

// Copie simple du contenu du champ image "ImageDessin"
// dans le champ image "ImageCopie"
ResCopie = dCopieImage (ImageDessin, ImageCopie)


Début de la page

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 )


Début de la page

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"


Début de la page

dFinDessin (en anglais dEndDrawing)

// Destruction de l'image présente dans le champ image "ImageDessin"
dFinDessin (ImageDessin)


Début de la page

dFond (en anglais dBackground)

// Déclaration de la couleur de fond des différents dessins
dFond ( iVertClair )


Début de la page

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


Début de la page

dLigne (en anglais dLine)

// Dessin d'une ligne jaune clair
dLigne (10, 10, 50, 50, iJauneClair )


Début de la page

dPixelCouleur (en anglais dPixelColor)

// Identification de la couleur du pixel (15, 25)
// sur le champ image "ImageDessin"
ResCouleur = dPixelCouleur (ImageDessin, 15, 25)


Début de la page

dPoint (en anglais dPoint)

// Dessin d'un point jaune clair
dPoint (10, 50, iJauneClair )


Début de la page

dPolice (en anglais dFont)

// Déclaration de la police de caractères :
// Arial, taille 12, gras
dPolice ("Arial", 12, iGras )


Début de la page

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 )


Début de la page

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 )


Début de la page

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 )


Début de la page

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


Début de la page

dRemplissage (en anglais dFill)

// Coloriage d'une zone en bleu clair
dRemplissage (10, 50, iBleuClair )


Début de la page

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


Début de la page

dSauveImageBmp (en anglais dSaveImageBMP)

// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageBMP (ImageDessin, EnMémoire )


Début de la page

dSauveImageBmp (en anglais dSaveImageBMP)

// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.BMP"
ResSauvegarde = dSauveImageBMP (ImageDessin, "C:\Documents\Image.BMP")


Début de la page

dSauveImageBmp (en anglais dSaveImageBMP)

// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.BMP"
ResSauvegarde = dSauveImageBMP (ImageDessin, "\Documents\Image.BMP")


Début de la page

dSauveImageGif (en anglais dSaveImageGIF)

// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageGIF (ImageDessin, enMémoire )


Début de la page

dSauveImageGif (en anglais dSaveImageGIF)

// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.GIF"
ResSauvegarde = dSauveImageGIF (ImageDessin, "C:\Documents\Image.GIF")


Début de la page

dSauveImageGif (en anglais dSaveImageGIF)

// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.GIF"
ResSauvegarde = dSauveImageGIF (ImageDessin, "\Documents\Image.GIF")


Début de la page

dSauveImageJpeg (en anglais dSaveImageJPEG)

// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImageJPEG (ImageDessin, EnMémoire )


Début de la page

dSauveImageJpeg (en anglais dSaveImageJPEG)

// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.JPEG"
ResSauvegarde = dSauveImageJPEG (ImageDessin, "C:\Documents\Image.JPEG")


Début de la page

dSauveImageJpeg (en anglais dSaveImageJPEG)

// Sauve l'image présente dans "ImageDessin" sur "\Documents\Image.JPEG"
ResSauvegarde = dSauveImageJPEG (ImageDessin, "\Documents\Image.JPEG")


Début de la page

dSauveImagePNG (en anglais dSaveImagePNG)

// Sauve l'image présente dans "ImageDessin" sur "C:\Documents\Image.PNG"
ResSauvegarde = dSauveImagePNG (ImageDessin, "C:\Documents\Image.PNG")


Début de la page

dSauveImagePNG (en anglais dSaveImagePNG)

// Sauve en mémoire l'image présente dans "ImageDessin"
ResSauvegarde = dSauveImagePNG (ImageDessin, EnMémoire )


Début de la page

dStylo (en anglais dPen)

// Déclaration de la couleur et du style par défaut des différents tracés
dStylo ( iVertClair , 3)


Début de la page

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


Début de la page

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


Début de la page

dTexte (en anglais dTexte)

// Dessin d'un texte en jaune clair
dTexte(10, 20, "Le développement facile" , iJauneClair )


Début de la page

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)


Début de la page

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


Début de la page

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


Début de la page

gCadrage (en anglais gAlignment)

// Cadrage horizontal et vertical
Libellé1 = gCadrage ("GV","BOB")
Libellé1 = gCadrage ("GB","BOB")


Début de la page

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


Début de la page

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


Début de la page

gFond (en anglais gBackGround)

// Ajout du mot "Jaune" sur fond jaune dans la liste "ListeCouleur"
ListeAjoute(ListeCouleur, gFond ( iJauneClair ) + "Jaune")


Début de la page

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


Début de la page

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


Début de la page

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.


Début de la page

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 )


Début de la page

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


Début de la page

GPolice (en anglais gFont)

// Ecrit le mot "Poussin" sur un fond jaune
ListeAjoute("LISTE1", gPolice ("Arial") + "Poussin")


Début de la page

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


Début de la page

gStylo (en anglais gPen)

// Ajout du mot "Jaune" de couleur jaune dans la liste "ListeCouleur"
ListeAjoute(ListeCouleur, gStylo ( iJauneClair ) + "Jaune")


Début de la page

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)


Début de la page

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)


Début de la page

RVB (en anglais RGB)

// Coloriage d'une zone en bleu clair
dRemplissage(10, 50, RVB (0,255,255))


Début de la page