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

FaxConnecte (en anglais FaxConnect)

IdConnect est un entier
IdConnect = FaxConnecte ()
SI idConnect = 0 ALORS 
  Erreur("La connexion au serveur de fax a échoué."+ ...
     " Vérifiez que celui-ci est bien démarré", ...
  ErreurInfo( errMessageSystème ))
FIN
...
FaxDéconnecte(IdConnect)


Début de la page

FaxDeconnecte (en anglais FaxDisconnect)

IdConnect est un entier
IdConnect = FaxConnecte()
...
SI FaxDéconnecte (IdConnect) = Faux  ALORS
   Erreur("La déconnexion a échoué.",ErreurInfo( errMessageSystème ))
FIN


Début de la page

FaxEnvoie (en anglais FaxSend)

IdConnect est un entier
IdConnect = FaxConnecte()
...
ResEnvoiFax est un booléen
ResEnvoiFax = FaxEnvoie (IdConnect,"MonFax","Message.txt","0102030405")
...
FaxDéconnecte(IdConnect)


Début de la page

FaxEtat (en anglais FaxStatus)

IdConnect est un entier
IdConnect = FaxConnecte()
...
NomFax est une chaîne = "Monfax"
IdFax = FaxEnvoie(IdConnect,NomFax,"Message.txt","0102030405")
...
SI FaxEtat (IdConnect, NomFax) = FaxEtatEnvoyé ALORS Info("Le fax a été envoyé")
...
FaxDéconnecte(IdConnect)


Début de la page