Module2

Ce programme présente l'usage des méthodes de rappel sur les modules et sur les tâches.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/module2.upl.

Mode compilé

Commande de compilation


upscmp Source=module2.upl

Commande d'exécution


module2

Mode interprété


upssng Source=module2.upl

Fichier source


Source Composant "Exemple de l'emploi de AttacherTache, DetacherTache, AttacherModule et DetacherModule" Version 4.0.0;



Fonction PrincipalT(T : Nul Ou Tache) Retourner Entier

/****************************************************/

Debut

Ecran.Ecrire("Tâche "+T.NomTache);

Fin Fonction



AttacherModule

/************/

Debut

Ecran.Ecrire("AttacherModule:"+Objet.NomModule);

Fin AttacherModule



DetacherModule

/************/

Debut

Ecran.Ecrire("DetacherModule:"+Objet.NomModule);

Fin DetacherModule



AttacherTache

/***********/

Debut

Ecran.Ecrire("AttacherTache:"+Objet.NomTache);

Fin AttacherTache



DetacherTache

/***********/

Debut

Ecran.Ecrire("DetacherTache:"+Objet.NomTache);

Fin DetacherTache



Principal

/*******/

Variable

   M : Nul Ou Module;

   T : Nul Ou Tache;


   
Debut

Ecran.Ecrire("Debut Principal");



M=Module("UpsTrn", 1, 2, 0);

Ecran.Ecrire("NomModule="+M.NomModule);

M=Nul;



T=Tache("ExempleDeTache", PrincipalT, Faux);

Attendre(5.0);

T=Nul;



Ecran.Ecrire("Fin Principal");

Fin Principal

Résultat de l'exécution

AttacherModule:module2 AttacherTache:Principal Debut Principal AttacherModule:UpsTrn NomModule=UpsTrn DetacherModule:UpsTrn AttacherTache:ExempleDeTache Tâche ExempleDeTache DetacherTache:ExempleDeTache Fin Principal DetacherTache:Principal DetacherModule:module2