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

Avertissement (en anglais Warning)

TitreSuivant("Attention")
Avertissement ("Cette manipulation n'a pas été validée"+ ...
          RC +"Contactez le responsable de l'application")


Début de la page

Confirmer (en anglais Confirm)

Résultat est un entier
TitreSuivant("Sortie du programme")
Résultat = Confirmer ("Confirmez-vous l'abandon de la sauvegarde.", ...
                     "Options possibles","OUI : Abandon", ...
                     "NON : Sauvegarde","ANNULER : Annule l'opération en cours")

SELON Résultat
     CAS  Oui  : Ferme()
     CAS Non SauveFiche() // Traitement de sauvegarde
     CAS Annuler : RepriseSaisie()
FIN


Début de la page

Confirmer (en anglais Confirm)

Res est un entier = Confirmer ("Êtes-vous sûr de vouloir " + ...
    "charger cette page?")
SI Res = Vrai ALORS
  //L'utilisateur a validé
SINON
  //L'utilisateur n'a pas validé
 
RepriseSaisie("BTNVALID")
FIN


Début de la page

Erreur (en anglais Error)

TitreSuivant("Erreur client inconnu")
Erreur ("Ce code client n'existe pas : vous devez le créer")


Début de la page

Erreur (en anglais Error)

Erreur ("Vous devez indiquer votre nom.")


Début de la page

info (en anglais Info)

Nom_utilisateur est une chaîne = "Julie"
TitreSuivant("Accueil")
Info("Bonjour" + Nom_utilisateur + RC + "Bienvenue !")


Début de la page

info (en anglais Info)

Info ("Les données que vous allez consulter ne sont visibles ", ...
       "que par vous. Cette transaction est sécurisée."
)


Début de la page

Jauge (en anglais Gauge)

i est un entier
Maxim est un entier = 234
POUR i = 1 à Maxim
    Jauge (i, Maxim, "Il reste " + (Maxim-i)*100/Maxim + "% à effectuer")
FIN


Début de la page

Message (en anglais Message)

Message ("Traitement en cours...")
Traitement() // Procédure permettant de réaliser le traitement voulu
Message ("Prêt")


Début de la page

Message (en anglais Message)

// Message dans la case "InfoUtil"
Message(InfoUtil, "Saisissez votre nom")


Début de la page

Message (en anglais Message)

// Message avec défilement
Message ("Bienvenue!", Défilant , 5)


Début de la page

MessageAjouteCase (en anglais MessageAddCell)

// Ajoute la case "MaCase" dans la barre
// de message de la fenêtre en cours
MessageAjouteCase ("MaCase",100, iRougeClair )


Début de la page

MessageSupprimeCase (en anglais MessageDeleteCell)

// Ajoute la case "MaCase" dans la barre
// de message de la fenêtre en cours
MessageAjouteCase("MaCase",100, iRougeClair )
...
MessageSupprimeCase ("MaCase")


Début de la page

OKAnnuler (en anglais OKCancel)

// Suppression d'une ligne avec confirmation (oui par défaut)
SI OKAnnuler ("Supprimer cet enregistrement ?") ALORS
    HSupprime(CLIENT)
FIN


Début de la page

OKAnnuler (en anglais OKCancel)

// choix sortie
SI OKAnnuler ("Voulez-vous quitter le programme?") = Oui ALORS
    Ferme
FIN


Début de la page

OKAnnuler (en anglais OKCancel)

// Demande de confirmation de la suppression du fichier dont
// le nom est contenu dans la variable NOM_FIC, avec
// positionnement sur le bouton "Non" de la fenêtre OKAnnuler
SI OKAnnuler (Non, "Supprimer le fichier ?") ALORS
     fSupprime(NOM_FIC)
FIN


Début de la page

OuiNon (en anglais YesNo)

// Choix sortie
SI OuiNon ("Voulez-vous quitter le programme?") = Oui ALORS Ferme


Début de la page