Les calendriers

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=calendrier.upl

Revenir en haut de la page...

calendrier

Revenir en haut de la page...

Source Composant "Exemple d'emploi des calendriers" Version 1.0.0;

Variable
/******/
FileDAttente
/**********/
Procedure AFaire1()
/*****************/
Debut
Ecran.Ecrire("Dans AFaire1");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Fin Procedure

Procedure AFaire2()
/*****************/
Debut
Ecran.Ecrire("Dans AFaire2");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Fin Procedure

Principal
/*******/
Debut
MaFile.ActiverJournal(Vrai);
D=DateSysteme();
Ecran.Ecrire("Reference="+Caractere(D));

C1=Calendrier("MonCalendrier1");
PC11=PeriodeCalendrier(PeriodeJournaliere, D+10, 10);
C1.AjouterPeriodeIncluse(PC11);
PC12=PeriodeCalendrier(PeriodeJournaliere, D+20, 30, Nul, D+60);
C1.AjouterPeriodeExclue(PC12);

C2=Calendrier("MonCalendrier2");
PC2=PeriodeCalendrier(PeriodeHebdomadaire, D+20, 20);
C2.AjouterPeriodeIncluse(PC2);

T=AFaire1()||MaFile;
T.PlanifierPeriodiquement(C1);
T=AFaire2()||MaFile;
T.PlanifierPeriodiquement(C2);

Attendre(120);
C1.SupprimerPeriodeIncluse(PC11);
C1.SupprimerPeriodeExclue(PC12);

Attendre(120);
C2.SupprimerPeriodeIncluse(PC2);
Fin Principal

Revenir en haut de la page...