Commande de compilation...
Commande d'exécution...
Remarque...
Fichiers sources...
upscmp Source=libf AdaptateurServeurCom=Oui AdaptateurServeurCorba=Oui
AdaptateurServeurJava=Oui
upsstr UpsVtm.Serveur=Oui Module=serveur Com=Executer
ou :
ou :
upsstr UpsVtm.Serveur=Oui Module=serveur Corba=Executer
upsstr UpsStr.Serveur=Oui Module=serveur Java=Executer
Source du module
Source Module "Exemple d'emploi des adaptateurs Com, Corba ou Java"
Version 1.0.0 ModuleDynamique;
Composant Dans "c:/essais/source/libf1.upl";
Source du composant
Source Composant "Exemple d'emploi des adaptateurs Corba, Com et Java"
Version 1.0.0 RattacherA "c:/up/exemples/libf.upl";
Enumere
/*****/
Public :
A1 Dans (ValA1, ValA2, ValA3);
Prive :
B2 Dans (ValB1, ValB2);
Entrepot
/*******/
Public :
MonEntrepot;
Public :
/*****/
Type C1 Defaut
/************/
Public :
/******/
CA1 : Booleen;
Prive :
CB1 : Nul Ou Booleen;
CC1 : Entier;
CD1 : Nul Ou Entier;
CE1 : Reel;
CF1 : Nul Ou Reel;
CG1 : Caractere;
CH1 : Nul Ou Caractere;
CA1V : Booleen Virtuel;
CB1V : Nul Ou Booleen Virtuel;
CC1V : Entier Virtuel;
CD1V : Nul Ou Entier Virtuel;
CE1V : Reel Virtuel;
CF1V : Nul Ou Reel Virtuel;
CG1V : Caractere Virtuel;
CH1V : Nul Ou Caractere Virtuel;
/******/
CA2 : Booleen;
Public :
CB2 : Nul Ou Booleen;
CC2 : Entier;
CD2 : Nul Ou Entier;
CE2 : Reel;
CF2 : Nul Ou Reel;
CG2 : Caractere;
CH2 : Nul Ou Caractere;
/******/
Constructeur();
Fin Type
Procedure Ecrire1(Prm : Nul Ou Booleen);
Procedure Ecrire2(Prm : Nul Ou Entier);
Procedure Ecrire3(Prm : Nul Ou Reel);
Procedure Ecrire3(Prm : Nul Ou Caractere);
Type C2 Defaut
/************/
CA1 : Entier;
Fin Type
Variable
/******/
Public :
/******/
VA1 : Booleen;
Prive :
VB1 : Nul Ou Booleen;
VC1 : Entier;
VD1 : Nul Ou Entier;
VE1 : Reel;
VF1 : Nul Ou Reel;
VG1 : Caractere;
VH1 : Nul Ou Caractere;
VA1V : Booleen Virtuel;
VB1V : Nul Ou Booleen Virtuel;
VC1V : Entier Virtuel;
VD1V : Nul Ou Entier Virtuel;
VE1V : Reel Virtuel;
VF1V : Nul Ou Reel Virtuel;
VG1V : Caractere Virtuel;
VH1V : Nul Ou Caractere Virtuel;
/******/
VA2 : Booleen;
Exception
VB2 : Nul Ou Booleen;
VC2 : Entier;
VD2 : Nul Ou Entier;
VE2 : Reel;
VF2 : Nul Ou Reel;
VG2 : Caractere;
VH2 : Nul Ou Caractere;
/*******/
Public :
/******/
E1("E1", 1);
Prive :
/*****/
E2("E2", 2);
Public :
Procedure C1.CA1V(P : Booleen)
/**************************/
Debut
CA2=P;
Fin Procedure
Fonction C1.CA1V() Retourner Booleen
/**********************************/
Debut
Retourner CA2;
Fin Fonction
Procedure C1.CB1V(P : Nul Ou Booleen)
/*********************************/
Debut
CB2=P;
Fin Procedure
Fonction C1.CB1V() Retourner Nul Ou Booleen
/*****************************************/
Debut
Retourner CB2;
Fin Fonction
Procedure C1.CC1V(P : Entier)
/*************************/
Debut
CC2=P;
Fin Procedure
Fonction C1.CC1V() Retourner Entier
/*********************************/
Debut
Retourner CC2;
Fin Fonction
Procedure C1.CD1V(P : Nul Ou Entier)
/********************************/
Debut
CD2=P;
Fin Procedure
Fonction C1.CD1V() Retourner Nul Ou Entier
/****************************************/
Debut
Retourner CD2;
Fin Fonction
Procedure C1.CE1V(P : Reel)
/***********************/
Debut
CE2=P;
Fin Procedure
Fonction C1.CE1V() Retourner Reel
/*******************************/
Debut
Retourner CE2;
Fin Fonction
Procedure C1.CF1V(P : Nul Ou Reel)
/******************************/
Debut
CF2=P;
Fin Procedure
Fonction C1.CF1V() Retourner Nul Ou Reel
/**************************************/
Debut
Retourner CF2;
Fin Fonction
Procedure C1.CG1V(P : Caractere)
/****************************/
Debut
CG2=P;
Fin Procedure
Fonction C1.CG1V() Retourner Caractere
/************************************/
Debut
Retourner CG2;
Fin Fonction
Procedure C1.CH1V(P : Nul Ou Caractere)
/***********************************/
Debut
CH2=P;
Fin Procedure
Fonction C1.CH1V() Retourner Nul Ou Caractere
/*******************************************/
Debut
Retourner CH2;
Fin Fonction
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 VA1V(P : Booleen)
/***********************/
Debut
VA2=P;
Fin Procedure
Fonction VA1V() Retourner Booleen
/*******************************/
Debut
Retourner VA2;
Fin Fonction
Procedure VB1V(P : Nul Ou Booleen)
/******************************/
Debut
VB2=P;
Fin Procedure
Fonction VB1V() Retourner Nul Ou Booleen
/**************************************/
Debut
Retourner VB2;
Fin Fonction
Procedure VC1V(P : Entier)
/**********************/
Debut
VC2=P;
Fin Procedure
Fonction VC1V() Retourner Entier
/******************************/
Debut
Retourner VC2;
Fin Fonction
Procedure VD1V(P : Nul Ou Entier)
/*****************************/
Debut
VD2=P;
Fin Procedure
Fonction VD1V() Retourner Nul Ou Entier
/*************************************/
Debut
Retourner VD2;
Fin Fonction
Procedure VE1V(P : Reel)
/********************/
Debut
VE2=P;
Fin Procedure
Fonction VE1V() Retourner Reel
/****************************/
Debut
Retourner VE2;
Fin Fonction
Procedure VF1V(P : Nul Ou Reel)
/***************************/
Debut
VF2=P;
Fin Procedure
Fonction VF1V() Retourner Nul Ou Reel
/***********************************/
Debut
Retourner VF2;
Fin Fonction
Procedure VG1V(P : Caractere)
/*************************/
Debut
VG2=P;
Fin Procedure
Fonction VG1V() Retourner Caractere
/*********************************/
Debut
Retourner VG2;
Fin Fonction
Procedure VH1V(P : Nul Ou Caractere)
/********************************/
Debut
VH2=P;
Fin Procedure
Fonction VH1V() Retourner Nul Ou Caractere
/****************************************/
Debut
Retourner VH2;
Fin Fonction
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