Description...
Exemple...
Traduction...
TypePlanification Dans (PlanificationAuPlusTot, PlanificationAuPlusTard, PlanificationSynchronisee);
La signification des valeurs est la suivante :
Variable
E : Entier;
MonTravail : Nul Ou Travail;
FileDAttente
MaFile(1);
Procedure P(A : Entier Entree Sortie)
/*********************************/
Debut
Ecran.Ecrire("P="+Caractere(A));
Fin Procedure
Principal
Debut
E=10;
MonTravail=P(E)||MaFile;
/* Mise en file de l'appel de 'P' dans la file 'MaFile'. Le travail est 'MonTravail'. */
MonTravail.PlanifierAuPlusTard(DateSysteme()+10);
/* Le travail est à déclencher dans au plus 10 secondes. */
Ecran.Ecrire(MaFile.NbTachesServeur);
Ecran.Ecrire(MaFile.NbTravauxEnAttente());
TantQue (MonTravail.Etat!=TravailTermine) Et (MonTravail.Etat!=TravailEnErreur) Faire
/* Nous attendons que le travail soit accompli. */
Attendre(5);
Fin TantQue
Si MonTravail.Etat==TravailEnErreur Alors
/* Il y a eu une erreur. */
Ecran.Ecrire(MonTravail.MessageErreur);
Sinon
/* Lit la valeur de sortie correspondant au premier paramètre. */
Ecran.Ecrire(MonTravail.LireValeurEntier(1));
Fin Si
Fin Principal
PlanArt | PlanKind | 计划种类 | TipoPlan | - | - | - | - |