Commande de compilation...
Commande d'exécution...
Fichier source...
upscmp Source=etsi.upl
etsi
Source Composant "Exemple d'emploi de EtSi et de OuSinon" Version
1.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