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

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


Début de la page

MemCree (en anglais MemCreate)

// Création d'une zone mémoire
MemCrée("MaZoneMémoire")


Début de la page

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


Début de la page

MemEnCours (en anglais MemCurrent)

// Indice de l'élément en cours dans la zone mémoire "ZoneMémoire"
ResIndice = MemEnCours ("ZoneMémoire")


Début de la page

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


Début de la page

MemExiste (en anglais MemExist)

// Teste l'existence de la zone mémoire "MaZoneMémoire"
ResExiste = MemExiste ("MaZoneMémoire")


Début de la page

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


Début de la page

MemOccurrence (en anglais MemCount)

// Nombre d'éléments présents dans la zone mémoire "MaZoneMémoire"
ResOccurrence = MemOccurrence ("MaZoneMémoire")


Début de la page

MemPositionne (en anglais MemSetPosition)

// Positionne sur l'élément 7 dans la zone mémoire "MaZoneMémoire"
ResPosition = MemPositionne ("MaZoneMémoire", 7)


Début de la page

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


Début de la page

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


Début de la page

MemRecherche (en anglais MemSeek)

// Recherche la première valeur égale à "M" dans la zone mémoire "ZoneMem"
ResRecherche = MemRecherche ("ZoneMem", "M")


Début de la page

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)


Début de la page

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


Début de la page

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


Début de la page

MemSupprimeTout (en anglais MemDeleteAll)

// Suppression de la zone mémoire "MaZoneMémoire"
MemSupprimeTout ("MaZoneMémoire")


Début de la page

MemTrie (en anglais MemSort)

// Tri croissant des éléments dans la zone mémoire "ZoneMémoire"
MemTrie
( "ZoneMémoire" , Vrai )


Début de la page

MemTrouve (en anglais MemFound)

// L'élément a-t'il été trouvé dans la zone mémoire "ZoneMémoire" ?
ResTrouvé = MemTrouvé ("ZoneMémoire")


Début de la page

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


Début de la page