EtSi et OuSinon

Ce programme présente l'usage de EtSi et OuSinon.

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

Mode compilé

Commande de compilation


upscmp Source=etsi.upl

Commande d'exécution


etsi

Mode interprété


upssng Source=etsi.upl

Fichier source


Source Composant "Exemple d'emploi de EtSi et de OuSinon" Version 4.0.0;



Type TA Defaut

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

   A : Nul Ou Caractere;

   Constructeur();

Fin Type



Fonction F() Retourner Booleen

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

Debut

Retourner Vrai;

Fin Fonction



Principal

/*******/

Variable

/*******/

	VA : Nul Ou TA;

	VB : Nul Ou TA;



Debut

Si F() Alors

	VA=TA();

	VA.A="coucou";

Fin Si

Si F() Alors

	VB=TA();

	VB.A="hello";


Fin Si

Si VA!=Nul EtSi VA.A!=Nul Alors

	Ecran.Ecrire("VA.A renseigne");

Sinon

	Ecran.Ecrire("Nul");

Fin Si

Si (VA!=Nul EtSi VA.A!=Nul) EtSi (VB!=Nul EtSi 
VB.A!=Nul) Alors

	Ecran.Ecrire("VA.A renseigne et VB.A renseigne");

Sinon

	Ecran.Ecrire("Nul");

Fin Si

Si (VA!=Nul EtSi VA.A!=Nul) OuSinon (VB!=Nul EtSi 
VB.A!=Nul) Alors

	Ecran.Ecrire("VA.A renseigne ou sinon VB.A renseigne");

Sinon

	Ecran.Ecrire("Nul");

Fin Si

Fin Principal

Résultat de l'exécution

VA.A renseigne VA.A renseigne et VB.A renseigne VA.A renseigne ou sinon VB.A renseigne