Module

Ce programme présente l'usage des objets de type module.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/module.upl.

Mode compilé

Commande de compilation


upscmp Source=module.upl

Commande d'exécution


module

Mode interprété


upssng Source=module.upl

Fichier source


Source Composant "Exemple d'emploi du type Module" Version 4.0.0;



ImporterModule
 
/************/

	UpsNls(<UpsNls.upi>);




Variable

/******/

   C : Caractere;

   M : Nul Ou Module;



Principal

/*******/

Debut

Ecran.Ecrire(Global.NomModule);

Ecran.Ecrire(UpsNls.NomModule);

C=UpsNls.Message(Global, "Bonjour");

Ecran.Ecrire(C);

Si C=="Coucou" Alors

   M=UpsNls;

Sinon

   M=Global;

Fin Si

Si M==Global Alors

   Ecran.Ecrire("M==Global");

Fin Si

Si M!=Global Alors

   Ecran.Ecrire("M!=Global");

Fin Si

Fin Principal

Résultat de l'exécution

module UpsNls Bonjour le monde ! M==Global