Encapsulation d'un module en technologie Up ! Virtual Technical Machine en ActiveX

Commande de compilation

upscmp Source=libf.upl AdaptateurServeurCom=Oui 
Guid=13d80cc0-ab17-11d4-8e3d-98789e401e71

Dans le menu Project - References de Visual Basic, il faut importer les déclarations des modules Up ! Kernel et LibF en cochant les cases correspondantes.

Commande d'enregistrement des ActiveX

upsvtm Com=Charger Module=libf

Commande d'exécution

libf2.exe

Remarque

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

Fichiers sources

Source du module


Source Module "Exemple d'emploi de l'adaptateur Java" Version 
4.0.0 ModuleDynamique;



Composant Dans "c:/essais/source/libf1.upl";

Source du composant


Source Composant "Exemple d'emploi de l'adaptateur Java" Version 
4.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;

	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;

Prive :

/******/

	CA2 : Booleen;

	CB2 : Nul Ou Booleen;

	CC2 : Entier;

	CD2 : Nul Ou Entier;

	CE2 : Reel;

	CF2 : Nul Ou Reel;

	CG2 : Caractere;

	CH2 : Nul Ou Caractere;

Public :

/******/

	Constructeur();

	Procedure Ecrire1(Prm : Nul Ou Booleen);

	Procedure Ecrire2(Prm : Nul Ou Entier);

	Procedure Ecrire3(Prm : Nul Ou Reel);

	Procedure Ecrire3(Prm : Nul Ou Caractere);

Fin Type



Type C2 Defaut

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

	CA1 : Entier;

Fin Type



Variable

/******/

Public :

/******/

	VA1 : Booleen;

	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;

Prive :

/******/

	VA2 : Booleen;

	VB2 : Nul Ou Booleen;

	VC2 : Entier;

	VD2 : Nul Ou Entier;

	VE2 : Reel;

	VF2 : Nul Ou Reel;

	VG2 : Caractere;

	VH2 : Nul Ou Caractere;

Exception

/*******/

Public :

/******/

	E1(1, TransactionToutesInvalidees);

Prive :

/*****/

	E2(2, TransactionToutesInvalidees);

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

Source Visual Basic


Dim MUpsKrn As IUpsKrn

Dim Mlibf As Ilibf



Private Sub EcrireEcran(ByVal Libelle As String)

' ==============================================

Ecran.AddItem Libelle

End Sub



Private Sub Form_Load()

' =====================

Dim VC1 As IlibfC1

Dim C As IUpsKrnCaractere



On Error GoTo GestionErreur



Set MUpsKrn = CreateObject("UpsApp.UpsKrn")

Set Mlibf = CreateObject("UpsApp.libf")



Set VC1 = Mlibf.C11()

VC1.CA1 = True

If VC1.CA1 Then

	EcrireEcran "VC1.CA1=True"

Else

	EcrireEcran "VC1.CA1=False"

End If

VC1.CB1 =
MUpsKrn.ComVariantBool2Booleen(True)

If MUpsKrn.Booleen2ComVariantBool(VC1.CB1) Then

	EcrireEcran "VC1.CB1=True"

Else

	EcrireEcran "VC1.CB1=False"

End If

VC1.CC1 = 2

EcrireEcran "VC1.CC1=" + Str$(VC1.CC1)

VC1.CD1 = MUpsKrn.ComInt2Entier(2)

EcrireEcran "VC1.CD1=" + Str$(MUpsKrn.Entier2ComLong(VC1.CD1))

VC1.CE1 = 3.2

EcrireEcran "VC1.CE1=" + Str$(VC1.CE1)

VC1.CF1 = MUpsKrn.ComDouble2Reel(3.2)

EcrireEcran "VC1.CF1=" + Str$(MUpsKrn.Reel2ComDouble(VC1.CF1))

VC1.CG1 =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VC1.CG1=" + MUpsKrn.Caractere2ComBStr(VC1.CG1)

VC1.CH1 =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VC1.CH1=" + MUpsKrn.Caractere2ComBStr(VC1.CH1)



VC1.CA1V = True

If VC1.CA1V Then

	EcrireEcran "VC1.CA1V=True"

Else

	EcrireEcran "VC1.CA1V=False"

End If

VC1.CB1V =
MUpsKrn.ComVariantBool2Booleen(True)

If MUpsKrn.Booleen2ComVariantBool(VC1.CB1V) Then

	EcrireEcran "VC1.CB1V=True"

Else

	EcrireEcran "VC1.CB1V=False"

End If

VC1.CC1V = 2

EcrireEcran "VC1.CC1V=" + Str$(VC1.CC1V)

VC1.CD1V = MUpsKrn.ComInt2Entier(2)

EcrireEcran "VC1.CD1V=" + Str$(MUpsKrn.Entier2ComLong(VC1.CD1V))

VC1.CE1V =
3.2

EcrireEcran "VC1.CE1V=" + Str$(VC1.CE1V)

VC1.CF1V =
MUpsKrn.ComDouble2Reel(3.2)

EcrireEcran "VC1.CF1V=" + Str$(MUpsKrn.Reel2ComDouble(VC1.CF1V))

VC1.CG1V =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VC1.CG1V=" + MUpsKrn.Caractere2ComBStr(VC1.CG1V)

VC1.CH1V =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VC1.CH1V=" + MUpsKrn.Caractere2ComBStr(VC1.CH1V)



VC1.Ecrire1 MUpsKrn.ComVariantBool2Booleen(True)

VC1.Ecrire2 MUpsKrn.ComInt2Entier(2)

VC1.Ecrire3 MUpsKrn.ComDouble2Reel(3.2)

VC1.Ecrire32 MUpsKrn.ComBStr2Caractere("coucou")



Mlibf.VA1 = True

If Mlibf.VA1 Then

	EcrireEcran "VA1=True"

Else

	EcrireEcran "VA1=False"

End If

Mlibf.VB1 =
MUpsKrn.ComVariantBool2Booleen(True)

If MUpsKrn.Booleen2ComVariantBool(Mlibf.VB1) Then

	EcrireEcran "VB1=True"

Else

	EcrireEcran "VB1=False"

End If

Mlibf.VC1 = 2

EcrireEcran "VC1=" + Str$(Mlibf.VC1)

Mlibf.VD1 = MUpsKrn.ComInt2Entier(2)

EcrireEcran "VD1=" + Str$(MUpsKrn.Entier2ComLong(Mlibf.VD1))

Mlibf.VE1 =
3.2

EcrireEcran "VE1=" + Str$(Mlibf.VE1)

Mlibf.VF1 =
MUpsKrn.ComDouble2Reel(3.2)

EcrireEcran "VF1=" + Str$(MUpsKrn.Reel2ComDouble(Mlibf.VF1))

Mlibf.VG1 = MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VG1=" + MUpsKrn.Caractere2ComBStr(Mlibf.VG1)

Mlibf.VH1 = MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VH1=" + MUpsKrn.Caractere2ComBStr(Mlibf.VH1)



Mlibf.VA1V = True

If Mlibf.VA1V Then

	EcrireEcran "VA1V=True"

Else

	EcrireEcran "VA1V=False"

End If

Mlibf.VB1V =
MUpsKrn.ComVariantBool2Booleen(True)

If MUpsKrn.Booleen2ComVariantBool(Mlibf.VB1V) Then

	EcrireEcran "VB1V=True"

Else

	EcrireEcran "VB1V=False"

End If

Mlibf.VC1V =
2

EcrireEcran "VC1V=" + Str$(Mlibf.VC1V)

Mlibf.VD1V =
MUpsKrn.ComInt2Entier(2)

EcrireEcran "VD1V=" + Str$(MUpsKrn.Entier2ComLong(Mlibf.VD1V))

Mlibf.VE1V = 3.2

EcrireEcran "VE1V=" + Str$(Mlibf.VE1V)

Mlibf.VF1V = MUpsKrn.ComDouble2Reel(3.2)

EcrireEcran "VF1V=" + Str$(MUpsKrn.Reel2ComDouble(Mlibf.VF1V))

Mlibf.VG1V =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VG1V=" + MUpsKrn.Caractere2ComBStr(Mlibf.VG1V)

Mlibf.VH1V =
MUpsKrn.ComBStr2Caractere("coucou")

EcrireEcran "VH1V=" + MUpsKrn.Caractere2ComBStr(Mlibf.VH1V)



Mlibf.Appel1

Mlibf.Appel2 True, 2, 3.2, C

EcrireEcran MUpsKrn.Caractere2ComBStr(C)

If Mlibf.Appel3 Then

	EcrireEcran "Appel3=True"

Else

	EcrireEcran "Appel3=False"

End If

If Mlibf.Appel4(True, 2, 3.2, C) Then

	EcrireEcran "Appel4=True"

Else

	EcrireEcran "Appel4=False"

End If

EcrireEcran MUpsKrn.Caractere2ComBStr(C)

EcrireEcran "Appel5=" + Str$(Mlibf.Appel5)

EcrireEcran "Appel6=" + Str$(Mlibf.Appel6(True, 2, 3.2, C))

EcrireEcran MUpsKrn.Caractere2ComBStr(C)

EcrireEcran "Appel7=" + Str$(Mlibf.Appel7)

EcrireEcran "Appel8=" + Str$(Mlibf.Appel8(True, 2, 3.2, C))

EcrireEcran MUpsKrn.Caractere2ComBStr(C)

EcrireEcran "Appel9=" + MUpsKrn.Caractere2ComBStr(Mlibf.Appel9)

EcrireEcran "Appel10=" + MUpsKrn.Caractere2ComBStr(Mlibf.Appel10(True, 
2, 3.2, C))

EcrireEcran MUpsKrn.Caractere2ComBStr(C)



Set VC1 = Nothing

Set VC = Nothing

Set C = Nothing

Set Mlibf = Nothing

Set MUpsKrn = Nothing

Exit Sub



GestionErreur:

'=============

EcrireEcran Erreur UpsKrn-0 : L'exception suivante a été envoyée dans le 
	source '" + Err.Source + "' :"

EcrireEcran Err.Description

End Sub