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.
MemAjoute (en anglais MemAdd)
// Ajoute la valeur de la rubrique Client.Nom dans la zone mémoire "ZoneMem"
// La valeur retournée sera le numéro d'enregistrement de cette rubrique MemAjoute ("ZoneMem", Client.Nom, HNumEnr(Client))
|
MemCree (en anglais MemCreate)
MemDernier (en anglais MemLast)
// Positionne sur le dernier élément de la zone mémoire
// "MaZoneMémoire" et renvoie la valeur de cet élément ResDernier = MemDernier ("MaZoneMémoire")
|
MemEnCours (en anglais MemCurrent)
// Indice de l'élément en cours dans la zone mémoire "ZoneMémoire"
ResIndice = MemEnCours ("ZoneMémoire")
|
MemEnDehors (en anglais MemOut)
MemPremier("MaZoneMémoire")
// Parcours en dehors de la zone mémoire "MaZoneMémoire" ? TANTQUE MemEnDehors ("MaZoneMémoire") = Faux // Traitements dans la zone mémoire ... // Fin des traitements MemSuivant("MaZoneMémoire") FIN
|
MemExiste (en anglais MemExist)
MemModifie (en anglais MemModify)
// Remet à 0 toutes les valeurs supérieures à 100
// dans la zone mémoire "MaZoneMémoire" POUR Indice = 1 à MemOccurrence("MaZoneMémoire") ResValeur = MemRécupère("MaZoneMémoire", Indice) SI ResValeur > 100 ALORS MemModifie ("MaZoneMémoire", 0, 0, Indice) FIN
|
MemOccurrence (en anglais MemCount)
// Nombre d'éléments présents dans la zone mémoire "MaZoneMémoire"
ResOccurrence = MemOccurrence ("MaZoneMémoire")
|
MemPositionne (en anglais MemSetPosition)
// Positionne sur l'élément 7 dans la zone mémoire "MaZoneMémoire"
ResPosition = MemPositionne ("MaZoneMémoire", 7)
|
MemPrecedent (en anglais MemPrevious)
// Positionne sur l'élément précédent de la zone mémoire
// "MaZoneMémoire" et renvoie la valeur de cet élément ResPrécédent = MemPrécédent ("MaZoneMémoire")
|
MemPremier (en anglais MemFirst)
// Positionne sur le premier élément de la zone mémoire
// "MaZoneMémoire" et renvoie la valeur de cet élément ResPremier = MemPremier ("MaZoneMémoire")
|
MemRecherche (en anglais MemSeek)
// Recherche la première valeur égale à "M" dans la zone mémoire "ZoneMem"
ResRecherche = MemRecherche ("ZoneMem", "M")
|
MemRecupere (en anglais MemRetrieve)
// Récupération de la valeur de retour de l'élément 7
// présent dans la zone mémoire "MaZoneMémoire" ResRécupère = MemRécupère ("MaZoneMémoire", 7)
|
MemSuivant (en anglais MemNext)
// Positionne sur l'élément suivant de la zone mémoire
// "MaZoneMémoire" et renvoie la valeur de cet élément ResSuivant = MemSuivant ("MaZoneMémoire")
|
MemSupprime (en anglais MemDelete)
// Supprime toutes les valeurs nulles de la zone mémoire "ZoneMémoire"
ResRecherche = MemRecherche("ZoneMémoire", 0) TANTQUE MemEnDehors = Faux MemSupprime ("ZoneMémoire", MemEnCours("ZoneMémoire")) MemSuivant("ZoneMémoire") FIN
|
MemSupprimeTout (en anglais MemDeleteAll)
MemTrie (en anglais MemSort)
MemTrouve (en anglais MemFound)
// L'élément a-t'il été trouvé dans la zone mémoire "ZoneMémoire" ?
ResTrouvé = MemTrouvé ("ZoneMémoire")
|
MemValCle (en anglais MemKeyVal)
// Récupération de la valeur de l'élément en cours
// dans la zone mémoire "MaZoneMémoire" ResValeur = MemValClé ("MaZoneMémoire")
|