Auteur: Patrick BikerDes 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.
ChaineVersPalm (en anglais StringToPalm)
|
// Chargement de la DLL WinDev pour le PALM
PalmInstalle() // Initialise la chaîne à transmettre MonMémo est une chaîne = "Mon texte à transmettre" MonSujet est une chaîne = "Essai Mémo Palm" // Transmet la chaîne au Palm Pilot de BOB dans la catégorie "Non Classé" ChaîneVersPalm (MonSujet, MonMémo, "BOB") // Transmet la chaîne au Palm Pilot de BOB dans la catégorie "Travail" ChaîneVersPalm (MonSujet, MonMémo, "BOB", "Travail") ... PalmDésinstalle()
|
FichierVersPalm (en anglais FileToPalm)
|
// Chargement de la DLL WinDev pour le PALM
PalmInstalle() // Initialise les données à transmettre HLitPremier(BlocNote, Tâche) SI HTrouve() ALORS // Transmet au Palm Pilot de BOB dans la catégorie "Travail" FichierVersPalm (BlocNote.Sujet, BlocNote, "BOB", "Travail") ... FIN PalmDésinstalle()
|
PalmAjoute (en anglais PalmAdd)
|
// Un accès est ouvert sur la base de données "bloc notes" de l'utilisateur PCS
// Cet accès est identifié par la chaîne "MonAcces" : PalmCharge("MonAcces", "PCS", PalmBDMémo ) ... // Construction un nouvel enregistrement // Initialisation des variables de la structure PALM PalmRAZ() // Renseignement de la variable PALM pour le nouvel enregistrement Palm.Catégorie = "Transmission" PalmMémo.Donnée = "Ceci est le message à transmettre au Palm Pilot" // Ajout de l'enregistrement SI PalmAjoute ("MonAcces") = Faux ALORS Erreur("Erreur lors de l'ajout d'un enregistrement dans "+... "la base de données PALM" + ErreurInfo()) FIN
|
PalmCharge (en anglais PalmLoad)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge ("ACCESJEF", "JEF", PalmBDMémo ) = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitPremier("ACCESJEF")
|
PalmDesinstalle (en anglais PalmUninstall)
PalmEnDehors (en anglais PalmOut)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitDernier("ACCESJEF") TANTQUE PalmEnDehors ("ACCESJEF") = Faux // Traitement MonMémo = PalmLitPrécedent() FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmFerme (en anglais PalmClose)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN ... // Fermeture de l'accès PalmFerme ("ACCESJEF")
|
PalmFiltre (en anglais PalmFilter)
|
// Afficher les messages dans une table (MaTable) en fonction
// de la catégorie sélectionnée dans une combo (CbCatégorie) --- Code d'initialisation de la combo ListeAjoute(CbCatégorie, "Toutes les catégories") ListeAjoute(CbCatégorie, PalmListeCatégorie()) --- A chaque modification de la combo CbCatégorie SI CbCatégorie = "Toutes les catégories" ALORS // Supprime le filtrage des catégories PalmFiltre ( palmFCatégorie ) SINON PalmFiltre ( palmFCatégorie , CbCatégorie) FIN // Parcourt tous les enregistrements et remplit la table TableSupprimeTout(MaTable) MonMémo = PalmLitPremier() TANTQUE PAS PalmEnDehors() TableAjoute(MaTable, MonMémo) MonMémo = PalmLitSuivant() FIN
|
PalmInstalle (en anglais PalmInstall)
PalmListeCategorie (en anglais PalmListCategory)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN // Remplit une combo avec la liste des catégories de l'accès "ACCESJEF" ListeAjoute(MaCombo, PalmListeCatégorie ()) ... // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmListeUtilisateurs (en anglais PalmListUsers)
|
// affiche dans la combo CBX_UTILISATEUR
// la liste des utilisateurs du palm ListeUtilisateur est une chaîne = PalmListeUtilisateurs () SI ListeUtilisateur = "" ALORS Erreur(ErreurInfo()) SINON ListeAjoute(CBX_UTILISATEUR, ListeUtilisateur) FIN
|
PalmLit (en anglais PalmRead)
|
MonMémo est une chaîne // Message du bloc-notes
MaCatégorie est une chaîne // Catégorie du bloc-notes // Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l’utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN PalmLitPremier("ACCESJEF") TANTQUE PAS PalmEnDehors("ACCESJEF") MonMémo = PalmLit ( palmInfoDonnée ) MaCatégorie = PalmLit ( palmInfoCatégorie ) TableAjouteLigne(MaTable, MonMémo, MaCatégorie) PalmLitSuivant() FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmLitDernier (en anglais PalmReadLast)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitDernier ("ACCESJEF") TANTQUE PAS PalmEnDehors("ACCESJEF") // Traitement MonMémo = PalmLitPrécedent() FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmLitPrecedent (en anglais PalmReadPrevious)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l’utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitDernier("ACCESJEF") TANTQUE PAS PalmEnDehors("ACCESJEF") // Traitement MonMémo = PalmLitPrécédent () FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmLitPremier (en anglais PalmReadFirst)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + … ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitPremier ("ACCESJEF") TANTQUE PAS PalmEnDehors("ACCESJEF") // Traitement MonMémo = PalmLitSuivant() FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmLitSuivant (en anglais PalmReadNext)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN MonMémo = PalmLitPremier("ACCESJEF") TANTQUE PAS PalmEnDehors("ACCESJEF") // Traitement MonMémo = PalmLitSuivant () FIN // Fermeture de l'accès PalmFerme("ACCESJEF")
|
PalmModifie (en anglais PalmModify)
|
// Un accès est ouvert sur la base de données "bloc notes" de l'utilisateur PCS
// Cet accès est identifié par la chaîne "MonAcces" : PalmCharge("MonAcces", "PCS") ... // Un enregistrement est chargé en mémoire par PalmLit // Modification du sujet de ce message palmMemo.Donnée = "Mon nouveau sujet" // Applique les modifications en mémoire SI PalmModifie ("MonAcces") = Faux ALORS Erreur ("Erreur lors de la modification de l'enregistrement "+... "dans la base de données PALM" + ErreurInfo()) FIN
|
PalmNbEnr (en anglais PalmNbRec)
|
// Un accès est ouvert : "ACCESJEF"
// Nombre total d’enregistrements de la base de données // (par exemple : 25 enregistrements) Info("Nombre total de messages : " + PalmNbEnr ("ACCESJEF")) // Affiche 25 // Filtre pour obtenir uniquement les messages de // la catégorie Bureau (il y a 8 enregistrements) PalmFiltre("ACCESJEF", palmFCatégorie , "Bureau") // Nombre d'enregistrements de la catégorie Bureau Info("Nombre de messages dans la catégorie Bureau" + ... PalmNbEnr ("ACCESJEF")) // Affiche 8
|
PalmPositionne (en anglais PalmPosition)
|
MonMémo est une chaîne // Chaîne contenant le message du bloc-notes
// Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l’utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN Index est un entier = 1 // Parcourt tous les enregistrements et remplit une table POUR Index = 1 à PalmNbEnr() TableAjoute(MaTable, PalmPositionne (Index)) FIN
|
PalmRafraichit (en anglais PalmRefresh)
|
PalmCharge("MonAccesFP", "FP")
PalmCharge("MonAccesJEF", "JEF") // Différents traitements et positionnement ... // Synchronisation avec le Palm de l'utilisateur FP // On demande le rafraîchissement des bases de données de FP PalmRafraîchit ("FP") // Traitement et synchronisation avec le/les Palm Pilot // On rafraîchit toutes les bases de tous les utilisateurs PalmRafraîchit ()
|
PalmRAZ (en anglais PalmRAZ)
|
// Un accès est ouvert sur la base de données "bloc notes"
// de l'utilisateur PCS // Cet accès est identifié par la chaîne // "MonAcces" : PalmCharge("MonAcces", "PCS") ... // Construction un nouvel enregistrement // On initialise les variables en vidant les informations précédentes PalmRAZ () // On remplit la variable pour initialiser le Bloc Notes palmMemo.Donnée = "Ceci est le message à transmettre au Palm Pilot" // Ajout de cet enregistrement SI PalmAjoute("MonAcces") = Faux ALORS Erreur("Erreur lors de l'ajout d'un enregistrement"+... "dans la base de données PALM" + ErreurInfo()) FIN
|
PalmReset (en anglais PalmReset)
PalmSupprime (en anglais PalmDelete)
|
MonMémo est une chaîne // Message du bloc-notes
MaCatégorie est une chaîne // Catégorie du bloc-notes // Ouvre un accès nommé "ACCESJEF" sur la base de données PALM // "Bloc-Notes" de l'utilisateur JEF SI PalmCharge("ACCESJEF", "JEF") = Faux ALORS Erreur("Erreur lors de l'accès à la base de données PALM" + ... ErreurInfo()) FinProgramme() FIN PalmFiltre( palmFCatégorie , "Vacances") PalmLitPremier() TANTQUE PAS PalmEnDehors() SI PalmSupprime ("ACCESJEF") = Faux ALORS Erreur("Erreur lors de la suppression de l'enregistrement"+... " dans la base de données PALM" + ErreurInfo()) FIN PalmLitSuivant() FIN
|
PalmVersChaine (en anglais PalmToString)
|
// Le Palm Pilot contient un message du type :
// Dans la catégorie "Travail" : // IDMémo : 15247 // NomClient : BOB // ... // Initialise la chaîne à transmettre MonMémo est une chaîne // Transmet la chaîne au Palm Pilot de BOB dans "Non Classé" MonMémo = PalmVersChaîne ("15247", "BOB", "Travail") // MonMémo contient donc une chaîne du type : // "IDMémo : 15247" + RC + "NomClient : BOB" + RC + ...
|
