EtSi et OuSinon

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

upscmp Source=etsi.upl

Revenir en haut de la page...

etsi

Revenir en haut de la page...

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

Type TA Defaut
/************/ 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

Revenir en haut de la page...