Définition...
Opérateurs...
Exemple...
Traduction...
/***************************************************************/
Type Calendrier Defaut Final
/* Objet : Type des objets correspondant aux calendriers. */
/***************************************************************/
Prive :
NomCalendrier : Caractere Lecture Public;
PeriodesIncluses : Nul Ou ListeDe Nul Ou PeriodeCalendrier Lecture Public;
PeriodesExclues : Nul Ou ListeDe Nul Ou PeriodeCalendrier Lecture Public;
DatePlanification : Nul Ou Date Lecture Public;
Public :
Constructeur(NomDuCalendrier : Caractere);
Procedure Habilitation AjouterPeriodeIncluse(P : Nul Ou PeriodeCalendrier);
Procedure Habilitation AjouterPeriodeExclue(P : Nul Ou PeriodeCalendrier);
Procedure Habilitation SupprimerPeriodeIncluse(P : Nul Ou PeriodeCalendrier);
Procedure Habilitation SupprimerPeriodeExclue(P : Nul Ou PeriodeCalendrier);
Fin Type
Le type Calendrier possède un constructeur explicite. Le paramètre NomDuCalendrier est le nom donné au calendrier.
Variable
MonCalendrier : Nul Ou Calendrier;
Periode : Nul Ou PeriodeCalendrier;
FileDAttente
MaFile(1);
Principal
Debut
E=10;
MonTravail=P(E)||MaFile;
/* Mise en file de l'appel de 'P' dans la file 'MaFile'. Le travail est 'MonTravail'. */
MonCalendrier=Calendrier("MonCalendrier");
Periode=PeriodeCalendrier(PeriodeJournaliere, Date("0-0-0 8:0:0"));
MonCalendrier.AjouterPeriodeIncluse(Periode);
/* Le calendrier comprend tous les jours de la semaine avec un déclenchement à 8 heures du matin. */
Periode=PeriodeCalendrier(PeriodeHedomadaire, Date("7-8-1999 8:0:0"));
MonCalendrier.AjouterPeriodeExclue(Periode);
/* Le calendrier ne comprend pas les samedis. */
Periode=PeriodeCalendrier(PeriodeHedomadaire, Date("8-8-1999 8:0:0"));
MonCalendrier.AjouterPeriodeExclue(Periode);
/* Le calendrier ne comprend pas les dimanches. */
MonTravail.PlanifierPeriodiquement(MonCalendrier);
/* Le travail est à déclencher selon le calendrier 'MonCalendrier'. */
Fin Principal
Kalender | Calendar | 日历 | Calendario | - | - | - | - |