Les paramètres

Ce programme présente l'usage des paramètres scalaires et objets.

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

Ne pas oublier de créer un fichier param.ini dans ${UPS_HOME}/ini en mode mono-utilisateur ou dans ${UPS_HOME}/ini/${UPS_USER} en mode multi-utilisateurs.

Ce fichier contient les valeurs par défaut des paramètres du programme.

Mode compilé

Commande de compilation


upscmp Source=parametre.upl

Commande d'exécution


parametre

Mode interprété


upssng Source=parametre.upl

Fichier source


Source Composant "Exemple d'emploi des paramètres" Version 4.0.0;



Enumere

/*****/

   Couleur Dans (Rouge, Blanc, Bleu);



Parametre <param.ini> Section "parametre"

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

   A : Booleen;

   B : Nul Ou Booleen;

   C : Couleur;

   D : Nul Ou Couleur;

   E : Date;

   F : Nul Ou Date;

   G : Entier;

   H : Nul Ou Entier;

   I : Reel;

   J : Nul Ou Reel;



Principal

/*******/

Debut

Ecran.Ecrire("A=");

Ecran.Ecrire(A);

Ecran.Ecrire("B=");

Ecran.Ecrire(B);

Si C==Blanc Alors

   Ecran.Ecrire("C==Blanc");

Sinon

   Ecran.Ecrire("C!=Blanc");

Fin Si

Si D==Blanc Alors

   Ecran.Ecrire("D==Blanc");

Sinon

   Ecran.Ecrire("D!=Blanc");

Fin Si

Ecran.Ecrire("E=");

Ecran.Ecrire(Caractere(E, "%jj-%mm-%A"));

Ecran.Ecrire("F=");

Ecran.Ecrire(Caractere(F, "%jj-%mm-%A"));

Ecran.Ecrire("G=");

Ecran.Ecrire(G);

Ecran.Ecrire("H=");

Ecran.Ecrire(H);

Ecran.Ecrire("I=");

Ecran.Ecrire(I);

Ecran.Ecrire("J=");

Ecran.Ecrire(J);

Fin Principal

Résultat de l'exécution

A= Vrai B= Faux C!=Blanc D==Blanc E= 10-10-1968 F= 03-03-1998 G= 10 H= 21 I= 3.14 J= 2.71