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.
Avertissement (en anglais Warning)
TitreSuivant("Attention")
Avertissement ("Cette manipulation n'a pas été validée"+ ... RC +"Contactez le responsable de l'application")
|
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
|
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
|
Erreur (en anglais Error)
Erreur (en anglais Error)
info (en anglais Info)
Nom_utilisateur est une chaîne = "Julie"
TitreSuivant("Accueil") Info("Bonjour" + Nom_utilisateur + RC + "Bienvenue !")
|
info (en anglais Info)
Info
("Les données que vous allez consulter ne sont visibles ", ...
"que par vous. Cette transaction est sécurisée.")
|
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
|
Message (en anglais Message)
Message
("Traitement en cours...")
Traitement() // Procédure permettant de réaliser le traitement voulu Message ("Prêt")
|
Message (en anglais Message)
Message (en anglais Message)
MessageAjouteCase (en anglais MessageAddCell)
// Ajoute la case "MaCase" dans la barre
// de message de la fenêtre en cours MessageAjouteCase ("MaCase",100, iRougeClair )
|
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")
|
OKAnnuler (en anglais OKCancel)
// Suppression d'une ligne avec confirmation (oui par défaut)
SI OKAnnuler ("Supprimer cet enregistrement ?") ALORS HSupprime(CLIENT) FIN
|
OKAnnuler (en anglais OKCancel)
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
|