Les dictionnaires

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

upscmp Source=dictionnaire.upl AdaptateurDictionnaire=Oui AdaptateurServeurUpsNet=Oui

Revenir en haut de la page...

dictionnaire

Revenir en haut de la page...

Ne pas oublier de créer un entrepôt MonEntrepotdans la configuration du noyau d'exécution. Ce programme nécessite sa définition.

Revenir en haut de la page...

Source Composant "Exemple d'emploi des dictionnaires" Version 1.0.0;

Enumere
/*****/
Public : Prive : Entrepot
/*******/
Public : Public :
/*****/

Type C1 Defaut
/************/
Public :
/******/ Prive :
/******/ Public :
/******/
Fin Type

Type C2 Defaut
/************/
Fin Type

Variable
/******/
Public :
/******/ Prive :
/******/ Exception
/*******/
Public :
/******/ Prive :
/*****/ Procedure C1.Ecrire1(Prm : Nul Ou Booleen)
/**************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure

Procedure C1.Ecrire2(Prm : Nul Ou Entier)
/*************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure

Procedure C1.Ecrire3(Prm : Nul Ou Reel)
/***********************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure

Procedure C1.Ecrire3(Prm : Nul Ou Caractere)
/****************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure

Procedure Appel1()
/****************/
Debut
Ecran.Ecrire("Appel1();");
Fin Procedure

Procedure Appel2(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 : Caractere Entree Sortie)
/**********************************************************************************/
Debut
Ecran.Ecrire("Appel2("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel2";
Fin Procedure

Fonction Appel3() Retourner Booleen
/*********************************/
Debut
Ecran.Ecrire("Appel3();");
Retourner Vrai;
Fin Fonction

Fonction Appel4(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 : Caractere Entree Sortie) Retourner Booleen
/***************************************************************************************************/
Debut
Ecran.Ecrire("Appel4("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel4";
Retourner Vrai;
Fin Fonction

Fonction Appel5() Retourner Entier
/********************************/
Debut
Ecran.Ecrire("Appel5();");
Retourner 10;
Fin Fonction

Fonction Appel6(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 : Caractere Entree Sortie) Retourner Entier
/**************************************************************************************************/
Debut Ecran.Ecrire("Appel6("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel6";
Retourner 10;
Fin Fonction

Fonction Appel7() Retourner Reel
/******************************/
Debut
Ecran.Ecrire("Appel7();");
Retourner 11.11;
Fin Fonction

Fonction Appel8(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 : Caractere Entree Sortie) Retourner Reel
/************************************************************************************************/
Debut
Ecran.Ecrire("Appel8("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel8";
Retourner 11.11;
Fin Fonction

Fonction Appel9() Retourner Caractere
/***********************************/
Debut
Ecran.Ecrire("Appel9();");
Retourner "schuss";
Fin Fonction

Fonction Appel10(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 : Caractere Entree Sortie) Retourner Caractere
/******************************************************************************************************/
Debut
Ecran.Ecrire("Appel10("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel10";
Retourner "schuss";
Fin Fonction

Principal
/*******/
Variable Debut
L=ListeDe(Objet(Vrai));
L+=Objet(5);
L+=Objet(3.14159);
L+=Objet("salut");

P=Global.EnumererEnumeres(++Numero, A);
TantQue P!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Numero=0;
Pr=Global.EnumererEntrepots(++Numero, A);
TantQue Pr!=Nul Faire Fin TantQueBR> Ecran.Ecrire("\n");

Numero=0;
T=Global.EnumererTypes(++Numero, A);
TantQue T!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Numero=0;
P=Global.EnumererVariables(++Numero, T, EstNul, A, ?);
TantQue P!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Numero=0;
E=Global.EnumererExceptions(++Numero, A);
TantQue E!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Numero=0;
Ap=C1.EnumererMethodes(++Numero, P, A);
TantQue Ap!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Numero=0;
Ap=Global.EnumererAppels(++Numero, P, A);
TantQue Ap!=Nul Faire Fin TantQue
Ecran.Ecrire("\n");

Global.EcrireVariable("VA1", Objet(Vrai));
Ecran.Ecrire("VA1="+Caractere(VA1));
Ecran.Ecrire("VA1="+Caractere(Booleen(Global.LireVariable("VA1"))));
Global.EcrireVariable("VB1", Objet(Vrai));
Ecran.Ecrire("VB1="+Caractere(VB1));
Ecran.Ecrire("VB1="+Caractere(Booleen(Global.LireVariable("VB1"))));

Global.EcrireVariable("VC1", Objet(10));
Ecran.Ecrire("VC1="+Caractere(VC1));
Ecran.Ecrire("VC1="+Caractere(Entier(Global.LireVariable("VC1"))));
Global.EcrireVariable("VD1", Objet(20));
Ecran.Ecrire("VD1="+Caractere(VD1));
Ecran.Ecrire("VD1="+Caractere(Entier(Global.LireVariable("VD1"))));

Global.EcrireVariable("VE1", Objet(11.11));
Ecran.Ecrire("VE1="+Caractere(VE1));
Ecran.Ecrire("VE1="+Caractere(Reel(Global.LireVariable("VE1"))));
Global.EcrireVariable("VF1", Objet(22.22));
Ecran.Ecrire("VF1="+Caractere(VF1));
Ecran.Ecrire("VF1="+Caractere(Reel(Global.LireVariable("VF1"))));

Global.EcrireVariable("VG1", Objet("coucou"));
Ecran.Ecrire("VG1="+VG1);
Ecran.Ecrire("VG1="+Caractere(Global.LireVariable("VG1")));
Global.EcrireVariable("VH1", Objet("coucou"));
Ecran.Ecrire("VH1="+VH1);
Ecran.Ecrire("VH1="+Caractere(Global.LireVariable("VH1")));
Ecran.Ecrire("\n");

Ecran.Ecrire("++VC1="+Caractere(Entier(Global.IncrementerDecrementerVariable("VC1", Vrai, Vrai))));
Ecran.Ecrire("++VD1="+Caractere(Entier(Global.IncrementerDecrementerVariable("VD1", Vrai, Vrai))));
Ecran.Ecrire("VC1--="+Caractere(Entier(Global.IncrementerDecrementerVariable("VC1", Faux, Faux))));
Ecran.Ecrire("VD1--="+Caractere(Entier(Global.IncrementerDecrementerVariable("VD1", Faux, Faux))));
Ecran.Ecrire("++VE1="+Caractere(Reel(Global.IncrementerDecrementerVariable("VE1", Vrai, Vrai))));
Ecran.Ecrire("++VF1="+Caractere(Reel(Global.IncrementerDecrementerVariable("VF1", Vrai, Vrai))));
Ecran.Ecrire("VE1--="+Caractere(Reel(Global.IncrementerDecrementerVariable("VE1", Faux, Faux))));
Ecran.Ecrire("VF1--="+Caractere(Reel(Global.IncrementerDecrementerVariable("VF1", Faux, Faux))));
Ecran.Ecrire("\n");
Fin Principal

Revenir en haut de la page...