Selon

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

upscmp Source=selon.upl

Revenir en haut de la page...

selon

Revenir en haut de la page...

Source Composant "Exemple d'emploi de Selon" Version 1.0.0;

Enumere Type TA
/*****/ Fin Type

Procedure TA.Afficher()
/*********************/
Debut
Ecran.Ecrire("A=");
Ecran.Ecrire(A);
Selon B Faire Fin Selon
Ecran.Ecrire("I=");
Ecran.Ecrire(I);
Ecran.Ecrire("\n");
Fin Procedure

Principal
/*******/ Variable Debut
VA.A=1;
VA.B=Vert;
VA.B.B1.C="bonjour";
VA.B.B1.D=10.2;
VA.I=2;
VA.Afficher();

VB.A=2;
VB.B=Jaune;
VB.B.B2.E=12;
VB.B.B2.F=Vrai;
VB.B.B2.G=3.14;
VB.B.B2.AA=Homme;
VB.B.B2.AA.Sexe1.BB=12345;
VB.I=3;
VB.Afficher();

VC.A=3;
VC.B=Noir;
VC.B.Defaut.H=Date("10-10-1968");
VC.B.Defaut.DD=Pluie;
VC.B.Defaut.DD.Meteo2.FF=-12;
VC.I=4;
VC.Afficher();

VA.B=Rouge;
VA.Afficher();

VA.B=Bleu;
VA.B.B2.E=100;
VA.B.B2.F=Faux;
VA.B.B2.AA=Femme;
VA.B.B2.AA.Sexe2.CC=789.123;
VA.Afficher();
Fin Principal

Revenir en haut de la page...