Procedure Optimiser(PasDEffetDeBord) Connecter(U : Caractere, M : Nul Ou Caractere=, S : Nul Ou Serveur);
Si le mot de passe n'est pas le bon ou si le jour ne respecte pas le calendrier de connexion ou si l'heure ne respecte pas l'intervalle horaire de connexion, alors l'exception ConnexionImpossible est envoyée.
Si la session était déjà connectée, elle est d'abord déconnectée avant de tenter de se reconnecter.
Principal
/*******/
Variable
/******/
S : Nul Ou Serveur;
Debut
...
S=Serveur("UpsKrn", Nul, "SrvFinances");
Connecter("scott", "elephant", S);
/* On se connecte sur le serveur S par 'scott/elephant'. */
...
Deconnecter(S);
...
Fin Principal
- | - | - | - | - | - | - | - | - |