Les files d'attente

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

upscmp Source=filedattente.upl

Revenir en haut de la page...

filedattente

Revenir en haut de la page...

Source Composant "Exemple d'emploi des files d'attente" 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(A : Entier, B : Caractere Entree Sortie, C : Date Sortie)
/*******************************************************************/
Debut
Ecran.Ecrire("Dans AFaire2 "+Caractere(A)+" "+B);
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
B="afaire2";
C=DateSysteme();
Fin Procedure

Fonction AFaire3() Retourner Booleen
/**********************************/
Debut
Ecran.Ecrire("Dans AFaire3");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Retourner Faux;
Fin Fonction

Fonction AFaire4(A : Entier, B : Caractere Entree Sortie, C : Date Sortie) Retourner Booleen
/************************************************************************************/
Debut
Ecran.Ecrire("Dans AFaire4 "+Caractere(A)+" "+B);
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
B="afaire4";
C=DateSysteme();
Retourner Vrai;
Fin Fonction

Fonction AFaire5() Retourner Entier
/**********************************/
Debut
Ecran.Ecrire("Dans AFaire5");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Retourner 1;
Fin Fonction

Fonction AFaire6(A : Entier, B : Caractere Entree Sortie, C : Date Sortie) Retourner Entier
/***********************************************************************************/
Debut
Ecran.Ecrire("Dans AFaire6 "+Caractere(A)+" "+B);
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
B="afaire6";
C=DateSysteme();
Retourner 2;
Fin Fonction

Fonction AFaire7() Retourner Reel
/*******************************/
Debut
Ecran.Ecrire("Dans AFaire7");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Retourner 1.1;
Fin Fonction

Fonction AFaire8(A : Entier, B : Caractere Entree Sortie, C : Date Sortie) Retourner Reel
/*********************************************************************************/
Debut
Ecran.Ecrire("Dans AFaire8 "+Caractere(A)+" "+B);
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
B="afaire8";
C=DateSysteme();
Retourner 2.1;
Fin Fonction

Fonction AFaire9() Retourner Caractere
/************************************/
Debut
Ecran.Ecrire("Dans AFaire9");
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
Retourner "bonjour";
Fin Fonction

Fonction AFaire10(A : Entier, B : Caractere Entree Sortie, C : Date Sortie) Retourner Caractere
/***************************************************************************************/
Debut
Ecran.Ecrire("Dans AFaire10 "+Caractere(A)+" "+B);
Ecran.Ecrire("Date="+Caractere(DateSysteme()));
Ecran.Ecrire("\n");
B="afaire10";
C=DateSysteme();
Retourner "coucou";
Fin Fonction

Principal
/*******/
Debut
MaFile.ActiverJournal(Vrai);
D=DateSysteme();
Ecran.Ecrire("Reference="+Caractere(D));
T1=AFaire1()||MaFile;
T1.PlanifierAuPlusTot(D+15);
E="coucou2";
T2=AFaire2(1,E,D2)||MaFile;
T2.PlanifierAuPlusTard(D+10);
T3=AFaire3()||MaFile;
T3.PlanifierAuPlusTot(D+25);
E="coucou4";
T4=AFaire4(4, E, D2)||MaFile;
T4.PlanifierApres(ListeDe(T1));
T5=AFaire5()||MaFile;
T5.PlanifierApres(ListeDe(T2));
E="coucou6";
T6=AFaire6(6, E, D2)||MaFile;
T6.PlanifierAuPlusTot(D+15, 3, 1);
T7=AFaire7()||MaFile;
T7.PlanifierAuPlusTot(D+15, 3, 3);
E="coucou8";
T8=AFaire8(8, E, D2)||MaFile;
T8.PlanifierAuPlusTot(D+15, 3, 2);
T9=AFaire9()||MaFile;
T9.PlanifierAuPlusTot(D+15);
E="coucou10";
T10=AFaire10(10, E, D2)||MaFile;
T10.PlanifierAuPlusTot(D+15);

Pour T=MaFile.ParcoursAuDebut() JusquA MaFile.DernierElement() Faire Fin Pour
Ecran.Ecrire("\n");
TantQue Vrai Faire Fin TantQue
Fin Principal

Revenir en haut de la page...