UpsSys.Alarme

Procedure Habilitation Optimiser(PasDEffetDeBord) Alarme(Traitement : Fonction() Retourner Booleen, DelaiEnSecondes : Entier, Periodique : Booleen);

Description

La procédure Alarme permet de poser une alarme se déclenchant dans DelaiEnSecondes secondes. Quand l'heure de déclenchement de l'alarme a sonnée, la fonction Traitement est appelée.

Si Periodique est Vrai, alors l'alarme est périodique, c'est à dire qu'elle est réarmée pour un même délai. Il faut toutefois de la fonction Traitement retourne Vrai. Dès que la fonction Traitement retourne Faux, l'alarme périodique est désactivée. Pour une alarme non-périodique, le résultat de Traitement est sans effet.

Il n'y a pas de limitation quant au nombre d'alarmes qui peuvent être posées simultanément.

Si une alarme ne peut être posée, l'exception AlarmeImpossible est envoyée.

Exemple

/****************************************************************/
Fonction EcrireLHeure() Retourner Booleen
/* Objet : Ecrit l'heure. */
/****************************************************************/
Debut
Ecran.Ecrire(Caractere(DateSysteme())+"\n");
Retourner Vrai;
Fin Fonction

Principal
/*******/
Debut
...
Alarme(EcrireLHeure, 60);
/* On pose une alarme pour écrire l'heure toutes les minutes. */
...
Fin Principal

Traduction

---------