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

Commande de compilation

javac -g -classpath MonArchive.jar;. -d . MonPaquetB/ClasseB.java
upscmp Source=MonPaquetB/ClasseB.java AdaptateurClientJava=Oui
javac -g -classpath MonArchive.jar;. -d . MonPaquetA/ClasseA.java
upscmp Source=MonPaquetA/ClasseA.java AdaptateurClientJava=Oui AdaptateurDictionnaire=Oui AdaptateurServeurUpsNet=Oui
upscmp Source=client.upl

Commande d'exécution

Sur Windows, il faut désactiver la machine virtuelle Java de Microsoft en renommant ${WINDOWS_HOME}/system32/jvm.dll.
Sur toutes les plates-formes, il faut ajouter au chemin d'accès aux bibliothèques dynamiques le répertoire du run-time Javaainsi que le répertoire de la machine virtuelle cliente ou serveur.

export PATH=${JRE_HOME}/bin:${JRE_HOME}/bin/client:${PATH}
# SET PATH=%JRE_HOME%\bin;%JRE_HOME%bin\client;%PATH%
client ClassesJava=${UPS_HOME}/upsjav/upsjav/french/upsvtm.jar;${UPS_HOME}/demo/upsjav/french/libf_sj.jar TracerJava=Oui

Fichiers sources

Classe ClasseB

package MonPaquetB;

public class ClasseB
{
public int Champ;

public ClasseB()
/**************/
{
Champ=2;
}
};

Classe ClasseA

package MonPaquetA;

import MonPaquetB.*;

public class ClasseA
/******************/
{
public static final int ConstanteA=1+2*3/1<<1>>1;
public static final double ConstanteB=1.0+2.0*3.1/1.0;

public static boolean ChampA1;
public static Boolean ChampB1;
public static byte ChampC1;
public static char ChampD1;
public static Character ChampE1;
public static double ChampF1;
public static Double ChampG1;
public static ClasseB ChampH1;
public static float ChampI1;
public static Float ChampJ1;
public static int ChampK1;
public static Integer ChampL1;
public static long ChampM1;
public static Long ChampN1;
public static Object ChampO1;
public static short ChampP1;
public static Short ChampQ1;
public static String ChampR1;

public static boolean ChampA2[];
public static Boolean ChampB2[];
public static byte ChampC2[];
public static char ChampD2[];
public static Character ChampE2[];
public static double ChampF2[];
public static Double ChampG2[];
public static ClasseB ChampH2[];
public static float ChampI2[];
public static Float ChampJ2[];
public static int ChampK2[];
public static Integer ChampL2[];
public static long ChampM2[];
public static Long ChampN2[];
public static Object ChampO2[];
public static short ChampP2[];
public static Short ChampQ2[];
public static String ChampR2[];

public boolean ChampA3;
public Boolean ChampB3;
public byte ChampC3;
public char ChampD3;
public Character ChampE3;
public double ChampF3;
public Double ChampG3;
public ClasseB ChampH3;
public float ChampI3;
public Float ChampJ3;
public int ChampK3;
public Integer ChampL3;
public long ChampM3;
public Long ChampN3;
public Object ChampO3;
public short ChampP3;
public Short ChampQ3;
public String ChampR3;

public boolean ChampA4[];
public Boolean ChampB4[];
public byte ChampC4[];
public char ChampD4[];
public Character ChampE4[];
public double ChampF4[];
public Double ChampG4[];
public ClasseB ChampH4[];
public float ChampI4[];
public Float ChampJ4[];
public int ChampK4[];
public Integer ChampL4[];
public long ChampM4[];
public Long ChampN4[];
public Object ChampO4[];
public short ChampP4[];
public Short ChampQ4[];
public String ChampR4[];

static void AppelZ1()
/*******************/
{
}

static boolean AppelA1(boolean P1)
/********************************/
{
return(ChampA1);
}

static Boolean AppelB1(Boolean P1)
/********************************/
{
return(ChampB1);
}

static byte AppelC1(byte P1)
/**************************/
{
return(ChampC1);
}

static char AppelD1(char P1)
/**************************/
{
return(ChampD1);
}

static Character AppelE1(Character P1)
/************************************/
{
return(ChampE1);
}

static double AppelF1(double P1)
/******************************/
{
return(ChampF1);
}

static Double AppelG1(Double P1)
/******************************/
{
return(ChampG1);
}

static ClasseB AppelH1(ClasseB P1)
/********************************/
{
return(ChampH1);
}

static float AppelI1(float P1)
/****************************/
{
return(ChampI1);
}

static Float AppelJ1(Float P1)
/****************************/
{
return(ChampJ1);
}

static int AppelK1(int P1)
/************************/
{
return(ChampK1);
}

static Integer AppelL1(Integer P1)
/********************************/
{
return(ChampL1);
}

static long AppelM1(long P1)
/***************************/
{
return(ChampM1);
}

static Long AppelN1(Long P1)
/**************************/
{
return(ChampN1);
}

static Object AppelO1(Object P1)
/******************************/
{
return(ChampO1);
}

static short AppelP1(short P1)
/****************************/
{
return(ChampP1);
}

static Short AppelQ1(short P1)
/****************************/
{
return(ChampQ1);
}

static String AppelR1(String P1)
/******************************/
{
return(ChampR1);
}

static void AppelZ2()
/*******************/
{
}

static boolean[] AppelA2(boolean[] P1)
/************************************/
{
return(ChampA2);
}

static Boolean[] AppelB2(Boolean[] P1)
/************************************/
{
return(ChampB2);
}

static byte[] AppelC2(byte[] P1)
/******************************/
{
return(ChampC2);
}

static char[] AppelD2(char[] P1)
/******************************/
{
return(ChampD2);
}

static Character[] AppelE2(Character[] P1)
/****************************************/
{
return(ChampE2);
}

static double[] AppelF2(double[] P1)
/**********************************/
{
return(ChampF2);
}

static Double[] AppelG2(Double[] P1)
/**********************************/
{
return(ChampG2);
}

static ClasseB[] AppelH2(ClasseB[] P1)
/************************************/
{
return(ChampH2);
}

static float[] AppelI2(float[] P1)
/********************************/
{
return(ChampI2);
}

static Float[] AppelJ2(Float[] P1)
/********************************/
{
return(ChampJ2);
}

static int[] AppelK2(int[] P1)
/****************************/
{
return(ChampK2);
}

static Integer[] AppelL2(Integer[] P1)
/************************************/
{
return(ChampL2);
}

static long[] AppelM2(long[] P1)
/******************************/
{
return(ChampM2);
}

static Long[] AppelN2(Long[] P1)
/******************************/
{
return(ChampN2);
}

static Object[] AppelO2(Object[] P1)
/**********************************/
{
return(ChampO2);
}

static short[] AppelP2(short[] P1)
/********************************/
{
return(ChampP2);
}

static Short[] AppelQ2(Short[] P1)
/********************************/
{
return(ChampQ2);
}

static String[] AppelR2(String[] P1)
/**********************************/
{
return(ChampR2);
}

void AppelZ3()
/************/
{
}

boolean AppelA3(boolean P1)
/*************************/
{
return(ChampA3);
}

Boolean AppelB3(Boolean P1)
/*************************/
{
return(ChampB3);
}

byte AppelC3(byte P1)
/*******************/
{
return(ChampC3);
}

char AppelD3(char P1)
/*******************/
{
return(ChampD3);
}

Character AppelE3(Character P1)
/*****************************/
{
return(ChampE3);
}

double AppelF3(double P1)
/***********************/
{
return(ChampF3);
}

Double AppelG3(Double P1)
/***********************/
{
return(ChampG3);
}

ClasseB AppelH3(ClasseB P1)
/*************************/
{
return(ChampH3);
}

float AppelI3(float P1)
/*********************/
{
return(ChampI3);
}

Float AppelJ3(Float P1)
/*********************/
{
return(ChampJ3);
}

int AppelK3(int P1)
/*****************/
{
return(ChampK3);
}

Integer AppelL3(Integer P1)
/*************************/
{
return(ChampL3);
}

long AppelM3(long P1)
/*******************/
{
return(ChampM3);
}

Long AppelN3(Long P1)
/*******************/
{
return(ChampN3);
}

Object AppelO3(Object P1)
/***********************/
{
return(ChampO3);
}

short AppelP3(short P1)
/*********************/
{
return(ChampP3);
}

Short AppelQ3(Short P1)
/*********************/
{
return(ChampQ3);
}

String AppelR3(String P1)
/***********************/
{
return(ChampR3);
}

void AppelZ4()
/************/
{
}

boolean[] AppelA4(boolean[] P1)
/*****************************/
{
return(ChampA4);
}

Boolean[] AppelB4(Boolean[] P1)
/*****************************/
{
return(ChampB4);
}

byte[] AppelC4(byte[] P1)
/***********************/
{
return(ChampC4);
}

char[] AppelD4(char[] P1)
/***********************/
{
return(ChampD4);
}

Character[] AppelE4(Character[] P1)
/*********************************/
{
return(ChampE4);
}

double[] AppelF4(double[] P1)
/***************************/
{
return(ChampF4);
}

Double[] AppelG4(Double[] P1)
/***************************/
{
return(ChampG4);
}

ClasseB[] AppelH4(ClasseB[] P1)
/*****************************/
{
return(ChampH4);
}

float[] AppelI4(float[] P1)
/*************************/
{
return(ChampI4);
}

Float[] AppelJ4(Float[] P1)
/*************************/
{
return(ChampJ4);
}

int[] AppelK4(int[] P1)
/*********************/
{
return(ChampK4);
}

Integer[] AppelL4(Integer[] P1)
/*****************************/
{
return(ChampL4);
}

long[] AppelM4(long[] P1)
/***********************/
{
return(ChampM4);
}

Long[] AppelN4(Long[] P1)
/***********************/
{
return(ChampN4);
}

Object[] AppelO4(Object[] P1)
/***************************/
{
return(ChampO4);
}

short[] AppelP4(short[] P1)
/*************************/
{
return(ChampP4);
}

Short[] AppelQ4(Short[] P1)
/*************************/
{
return(ChampQ4);
}

String[] AppelR4(String[] P1)
/***************************/
{
return(ChampR4);
}

public ClasseA()
/**************/
{
ChampA3=true;
ChampB3=new Boolean(true);
ChampC3=(byte)65;
ChampD3=(char)'a';
ChampE3=new Character('a');
ChampF3=2.3;
ChampG3=new Double(2.3);
ChampH3=new ClasseB();
ChampI3=(float)3.4;
ChampJ3=new Float(3.4);
ChampK3=2;
ChampL3=new Integer(2);
ChampM3=10;
ChampN3=new Long(10);
ChampO3=new String();
ChampP3=10;
ChampQ3=new Short((short)10);
ChampR3=new String("coucou");

ChampA4=new boolean[3];
ChampA4[0]=true;
ChampA4[1]=false;
ChampA4[2]=true;
ChampB4=new Boolean[3];
ChampB4[0]=new Boolean(true);
ChampB4[1]=new Boolean(false);
ChampB4[2]=new Boolean(true);
ChampC4=new byte[3];
ChampC4[0]=(byte)65;
ChampC4[0]=(byte)66;
ChampC4[0]=(byte)67;
ChampD4=new char[3];
ChampD4[0]=(char)'a';
ChampD4[1]=(char)'b';
ChampD4[2]=(char)'c';
ChampE4=new Character[3];
ChampE4[0]=new Character('a');
ChampE4[1]=new Character('b');
ChampE4[2]=new Character('c');
ChampF4=new double[3];
ChampF4[0]=2.3;
ChampF4[1]=3.4;
ChampF4[2]=4.5;
ChampG4=new Double[3];
ChampG4[0]=new Double(2.3);
ChampG4[1]=new Double(3.4);
ChampG4[2]=new Double(4.5);
ChampH4=new ClasseB[3];
ChampH4[0]=new ClasseB();
ChampH4[1]=new ClasseB();
ChampH4[2]=new ClasseB();
ChampI4=new float[3];
ChampI4[0]=(float)3.4;
ChampI4[1]=(float)4.5;
ChampI4[2]=(float)5.6;
ChampJ4=new Float[3];
ChampJ4[0]=new Float(3.4);
ChampJ4[1]=new Float(4.5);
ChampJ4[2]=new Float(6.7);
ChampK4=new int[3];
ChampK4[0]=2;
ChampK4[1]=3;
ChampK4[2]=4;
ChampL4=new Integer[3];
ChampL4[0]=new Integer(2);
ChampL4[1]=new Integer(3);
ChampL4[2]=new Integer(4);
ChampM4=new long[3];
ChampM4[0]=10;
ChampM4[1]=11;
ChampM4[2]=12;
ChampN4=new Long[3];
ChampN4[0]=new Long(10);
ChampN4[1]=new Long(11);
ChampN4[2]=new Long(12);
ChampO4=new Object[3];
ChampO4[0]=new String();
ChampO4[1]=new String();
ChampO4[2]=new String();
ChampP4=new short[3];
ChampP4[0]=10;
ChampP4[1]=11;
ChampP4[2]=12;
ChampQ4=new Short[3];
ChampQ4[0]=new Short((short)10);
ChampQ4[1]=new Short((short)11);
ChampQ4[2]=new Short((short)12);
ChampR4=new String[3];
ChampR4[0]=new String("coucou 1");
ChampR4[1]=new String("coucou 2");
ChampR4[2]=new String("coucou 3");
}

static
/****/
{
ChampA1=true;
ChampB1=new Boolean(true);
ChampC1=(byte)65;
ChampD1=(char)'a';
ChampE1=new Character('a');
ChampF1=2.3;
ChampG1=new Double(2.3);
ChampH1=new ClasseB();
ChampI1=(float)3.4;
ChampJ1=new Float(3.4);
ChampK1=2;
ChampL1=new Integer(2);
ChampM1=10;
ChampN1=new Long(10);
ChampO1=new String();
ChampP1=10;
ChampQ1=new Short((short)10);
ChampR1=new String("coucou");

ChampA2=new boolean[3];
ChampA2[0]=true;
ChampA2[1]=false;
ChampA2[2]=true;
ChampB2=new Boolean[3];
ChampB2[0]=new Boolean(true);
ChampB2[1]=new Boolean(false);
ChampB2[2]=new Boolean(true);
ChampC2=new byte[3];
ChampC2[0]=(byte)65;
ChampC2[0]=(byte)66;
ChampC2[0]=(byte)67;
ChampD2=new char[3];
ChampD2[0]=(char)'a';
ChampD2[1]=(char)'b';
ChampD2[2]=(char)'c';
ChampE2=new Character[3];
ChampE2[0]=new Character('a');
ChampE2[1]=new Character('b');
ChampE2[2]=new Character('c');
ChampF2=new double[3];
ChampF2[0]=2.3;
ChampF2[1]=3.4;
ChampF2[2]=4.5;
ChampG2=new Double[3];
ChampG2[0]=new Double(2.3);
ChampG2[1]=new Double(3.4);
ChampG2[2]=new Double(4.5);
ChampH2=new ClasseB[3];
ChampH2[0]=new ClasseB();
ChampH2[1]=new ClasseB();
ChampH2[2]=new ClasseB();
ChampI2=new float[3];
ChampI2[0]=(float)3.4;
ChampI2[1]=(float)4.5;
ChampI2[2]=(float)5.6;
ChampJ2=new Float[3];
ChampJ2[0]=new Float(3.4);
ChampJ2[1]=new Float(4.5);
ChampJ2[2]=new Float(6.7);
ChampK2=new int[3];
ChampK2[0]=2;
ChampK2[1]=3;
ChampK2[2]=4;
ChampL2=new Integer[3];
ChampL2[0]=new Integer(2);
ChampL2[1]=new Integer(3);
ChampL2[2]=new Integer(4);
ChampM2=new long[3];
ChampM2[0]=10;
ChampM2[1]=11;
ChampM2[2]=12;
ChampN2=new Long[3];
ChampN2[0]=new Long(10);
ChampN2[1]=new Long(11);
ChampN2[2]=new Long(12);
ChampO2=new Object[3];
ChampO2[0]=new String();
ChampO2[1]=new String();
ChampO2[2]=new String();
ChampP2=new short[3];
ChampP2[0]=10;
ChampP2[1]=11;
ChampP2[2]=12;
ChampQ2=new Short[3];
ChampQ2[0]=new Short((short)10);
ChampQ2[1]=new Short((short)11);
ChampQ2[2]=new Short((short)12);
ChampR2=new String[3];
ChampR2[0]=new String("coucou 1");
ChampR2[1]=new String("coucou 2");
ChampR2[2]=new String("coucou 3");
}
};

Source du composant client.upl

Source Composant "Exemple de l'emploi d'Up ! Java" Version 4.0.0;

ImporterModule
/************/

Prive :
/*****/
Procedure EcrireTableau(L:Caractere, T:Tableau[?] De Nul Ou Objet)
/****************************************************************/
Variable
Debut
Pour I=T.BorneMin JusquA T.BorneMax Faire Fin Pour
Fin Procedure

Principal
/*******/
Variable
Debut
A=ClasseA();
Pour I=0 JusquA 4 Faire Fin Pour
TC=Binaire("CCCCC");
TD="aaaaa";
TE="aaaaa";

Ecran.Ecrire(""ChampA1="+Caractere(ChampA1));
Ecran.Ecrire(""ChampB1="+Caractere(ChampB1));
Ecran.Ecrire(""ChampC1="+Caractere(ChampC1));
Ecran.Ecrire(""ChampD1="+Caractere(ChampD1));
Ecran.Ecrire(""ChampE1="+Caractere(ChampE1));
Ecran.Ecrire(""ChampF1="+Caractere(ChampF1));
Ecran.Ecrire(""ChampG1="+Caractere(ChampG1));
Ecran.Ecrire(""ChampH1.Champ="+Caractere(ChampH1.Champ));
Ecran.Ecrire(""ChampI1="+Caractere(ChampI1));
Ecran.Ecrire(""ChampJ1="+Caractere(ChampJ1));
Ecran.Ecrire(""ChampK1="+Caractere(ChampK1));
Ecran.Ecrire(""ChampL1="+Caractere(ChampL1));
Ecran.Ecrire(""ChampM1="+Caractere(ChampM1));
Ecran.Ecrire(""ChampN1="+Caractere(ChampN1));
Ecran.Ecrire(""ChampO1="+Caractere(ChampO1));
Ecran.Ecrire(""ChampP1="+Caractere(ChampP1));
Ecran.Ecrire(""ChampQ1="+Caractere(ChampQ1));
Ecran.Ecrire(""ChampR1="+ChampR1);
Ecran.Ecrire(""\n");

AppelZ1();
Ecran.Ecrire(""AppelA1="+Caractere(AppelA1(Faux)));
Ecran.Ecrire(""AppelB1="+Caractere(AppelB1(Faux)));
Ecran.Ecrire(""AppelC1="+Caractere(AppelC1(66)));
Ecran.Ecrire(""AppelD1="+Caractere(AppelD1(98)));
Ecran.Ecrire(""AppelE1="+Caractere(AppelE1(98)));
Ecran.Ecrire(""AppelF1="+Caractere(AppelF1(2.4)));
Ecran.Ecrire(""AppelG1="+Caractere(AppelG1(2.4)));
Ecran.Ecrire(""AppelH1="+Caractere(AppelH1(ClasseB()).Champ));
Ecran.Ecrire(""AppelI1="+Caractere(AppelI1(3.5)));
Ecran.Ecrire(""AppelJ1="+Caractere(AppelJ1(3.5)));
Ecran.Ecrire(""AppelK1="+Caractere(AppelK1(3)));
Ecran.Ecrire(""AppelL1="+Caractere(AppelL1(3)));
Ecran.Ecrire(""AppelM1="+Caractere(AppelM1(11)));
Ecran.Ecrire(""AppelN1="+Caractere(AppelN1(11)));
Ecran.Ecrire(""AppelO1="+Caractere(AppelO1("coucou")));
Ecran.Ecrire(""AppelP1="+Caractere(AppelP1(11)));
Ecran.Ecrire(""AppelQ1="+Caractere(AppelQ1(11)));
Ecran.Ecrire(""AppelR1="+AppelR1("hello"));
Ecran.Ecrire(""\n");

ChampA1=Faux;
ChampB1=Faux;
ChampC1=66;
ChampD1=98;
ChampE1=98;
ChampF1=2.4;
ChampG1=2.4;
ChampH1.Champ=3;
ChampI1=3.5;
ChampJ1=3.5;
ChampK1=3;
ChampL1=3;
ChampM1=11;
ChampN1=11;
ChampO1="coucou";
ChampP1=11;
ChampQ1=11;
ChampR1="hello";
Ecran.Ecrire(""ChampA1="+Caractere(ChampA1));
Ecran.Ecrire(""ChampB1="+Caractere(ChampB1));
Ecran.Ecrire(""ChampC1="+Caractere(ChampC1));
Ecran.Ecrire(""ChampD1="+Caractere(ChampD1));
Ecran.Ecrire(""ChampE1="+Caractere(ChampE1));
Ecran.Ecrire(""ChampF1="+Caractere(ChampF1));
Ecran.Ecrire(""ChampG1="+Caractere(ChampG1));
Ecran.Ecrire(""ChampH1.Champ="+Caractere(ChampH1.Champ));
Ecran.Ecrire(""ChampI1="+Caractere(ChampI1));
Ecran.Ecrire(""ChampJ1="+Caractere(ChampJ1));
Ecran.Ecrire(""ChampK1="+Caractere(ChampK1));
Ecran.Ecrire(""ChampL1="+Caractere(ChampL1));
Ecran.Ecrire(""ChampM1="+Caractere(ChampM1));
Ecran.Ecrire(""ChampN1="+Caractere(ChampN1));
Ecran.Ecrire(""ChampO1="+Caractere(ChampO1));
Ecran.Ecrire(""ChampP1="+Caractere(ChampP1));
Ecran.Ecrire(""ChampQ1="+Caractere(ChampQ1));
Ecran.Ecrire(""ChampR1="+ChampR1);
Ecran.Ecrire(""\n");

EcrireTableau(""ChampA2=",ChampA2);
EcrireTableau(""ChampB2=",ChampB2);
Ecran.Ecrire(""ChampC2="+Caractere(ChampC2));
Ecran.Ecrire(""ChampD2="+ChampD2);
Ecran.Ecrire(""ChampE2="+ChampE2);
EcrireTableau(""ChampF2=",ChampF2);
EcrireTableau(""ChampG2=",ChampG2);
EcrireTableau(""ChampH2=",ChampH2);
EcrireTableau(""ChampI2=",ChampI2);
EcrireTableau(""ChampJ2=",ChampJ2);
EcrireTableau(""ChampK2=",ChampK2);
EcrireTableau(""ChampL2=",ChampL2);
EcrireTableau(""ChampM2=",ChampM2);
EcrireTableau(""ChampN2=",ChampN2);
EcrireTableau(""ChampO2=",ChampO2);
EcrireTableau(""ChampP2=",ChampP2);
EcrireTableau(""ChampQ2=",ChampQ2);
EcrireTableau(""ChampR2=",ChampR2);
Ecran.Ecrire(""\n");

AppelZ2();
EcrireTableau(""AppelA2=",AppelA2(TA));
EcrireTableau(""AppelB2=",AppelB2(TB));
Ecran.Ecrire(""AppelC2="+Caractere(AppelC2(TC)));
Ecran.Ecrire(""AppelD2="+AppelD2(TD));
Ecran.Ecrire(""AppelE2="+AppelE2(TE));
EcrireTableau(""AppelF2=",AppelF2(TF));
EcrireTableau(""AppelG2=",AppelG2(TG));
EcrireTableau(""AppelH2=",AppelH2(TH));
EcrireTableau(""AppelI2=",AppelI2(TI));
EcrireTableau(""AppelJ2=",AppelJ2(TJ));
EcrireTableau(""AppelK2=",AppelK2(TK));
EcrireTableau(""AppelL2=",AppelL2(TL));
EcrireTableau(""AppelM2=",AppelM2(TM));
EcrireTableau(""AppelN2=",AppelN2(TN));
EcrireTableau(""AppelO2=",AppelO2(TO));
EcrireTableau(""AppelP2=",AppelP2(TP));
EcrireTableau(""AppelQ2=",AppelQ2(TQ));
EcrireTableau(""AppelR2=",AppelR2(TR));
Ecran.Ecrire(""\n");

ChampA2=TA;
ChampB2=TB;
ChampC2=TC;
ChampD2=TD;
ChampE2=TE;
ChampF2=TF;
ChampG2=TG;
ChampH2=TH;
ChampI2=TI;
ChampJ2=TJ;
ChampK2=TK;
ChampL2=TL;
ChampM2=TM;
ChampN2=TN;
ChampO2=TO;
ChampP2=TP;
ChampQ2=TQ;
ChampR2=TR;
EcrireTableau(""ChampA2=",ChampA2);
EcrireTableau(""ChampB2=",ChampB2);
Ecran.Ecrire(""ChampC2="+Caractere(ChampC2));
Ecran.Ecrire(""ChampD2="+ChampD2);
Ecran.Ecrire(""ChampE2="+ChampE2);
EcrireTableau(""ChampF2=",ChampF2);
EcrireTableau(""ChampG2=",ChampG2);
EcrireTableau(""ChampH2=",ChampH2);
EcrireTableau(""ChampI2=",ChampI2);
EcrireTableau(""ChampJ2=",ChampJ2);
EcrireTableau(""ChampK2=",ChampK2);
EcrireTableau(""ChampL2=",ChampL2);
EcrireTableau(""ChampM2=",ChampM2);
EcrireTableau(""ChampN2=",ChampN2);
EcrireTableau(""ChampO2=",ChampO2);
EcrireTableau(""ChampP2=",ChampP2);
EcrireTableau(""ChampQ2=",ChampQ2);
EcrireTableau(""ChampR2=",ChampR2);
Ecran.Ecrire(""\n");

Ecran.Ecrire(""A.ChampA3="+Caractere(A.ChampA3));
Ecran.Ecrire(""A.ChampB3="+Caractere(A.ChampB3));
Ecran.Ecrire(""A.ChampC3="+Caractere(A.ChampC3));
Ecran.Ecrire(""A.ChampD3="+Caractere(A.ChampD3));
Ecran.Ecrire(""A.ChampE3="+Caractere(A.ChampE3));
Ecran.Ecrire(""A.ChampF3="+Caractere(A.ChampF3));
Ecran.Ecrire(""A.ChampG3="+Caractere(A.ChampG3));
Ecran.Ecrire(""A.ChampH3.Champ="+Caractere(A.ChampH3.Champ));
Ecran.Ecrire(""A.ChampI3="+Caractere(A.ChampI3));
Ecran.Ecrire(""A.ChampJ3="+Caractere(A.ChampJ3));
Ecran.Ecrire(""A.ChampK3="+Caractere(A.ChampK3));
Ecran.Ecrire(""A.ChampL3="+Caractere(A.ChampL3));
Ecran.Ecrire(""A.ChampM3="+Caractere(A.ChampM3));
Ecran.Ecrire(""A.ChampN3="+Caractere(A.ChampN3));
Ecran.Ecrire(""A.ChampO3="+Caractere(A.ChampO3));
Ecran.Ecrire(""A.ChampP3="+Caractere(A.ChampP3));
Ecran.Ecrire(""A.ChampQ3="+Caractere(A.ChampQ3));
Ecran.Ecrire(""A.ChampR3="+A.ChampR3);
Ecran.Ecrire(""\n");

A.AppelZ3();
Ecran.Ecrire(""A.AppelA3="+Caractere(A.AppelA3(Faux)));
Ecran.Ecrire(""A.AppelB3="+Caractere(A.AppelB3(Faux)));
Ecran.Ecrire(""A.AppelC3="+Caractere(A.AppelC3(66)));
Ecran.Ecrire(""A.AppelD3="+Caractere(A.AppelD3(98)));
Ecran.Ecrire(""A.AppelE3="+Caractere(A.AppelE3(98)));
Ecran.Ecrire(""A.AppelF3="+Caractere(A.AppelF3(2.4)));
Ecran.Ecrire(""A.AppelG3="+Caractere(A.AppelG3(2.4)));
Ecran.Ecrire(""A.AppelH3="+Caractere(A.AppelH3(ClasseB()).Champ));
Ecran.Ecrire(""A.AppelI3="+Caractere(A.AppelI3(3.5)));
Ecran.Ecrire(""A.AppelJ3="+Caractere(A.AppelJ3(3.5)));
Ecran.Ecrire(""A.AppelK3="+Caractere(A.AppelK3(3)));
Ecran.Ecrire(""A.AppelL3="+Caractere(A.AppelL3(3)));
Ecran.Ecrire(""A.AppelM3="+Caractere(A.AppelM3(11)));
Ecran.Ecrire(""A.AppelN3="+Caractere(A.AppelN3(11)));
Ecran.Ecrire(""A.AppelO3="+Caractere(A.AppelO3("coucou")));
Ecran.Ecrire(""A.AppelP3="+Caractere(A.AppelP3(11)));
Ecran.Ecrire(""A.AppelQ3="+Caractere(A.AppelQ3(11)));
Ecran.Ecrire(""A.AppelR3="+A.AppelR3("hello"));
Ecran.Ecrire(""\n");

A.ChampA3=Faux;
A.ChampB3=Faux;
A.ChampC3=66;
A.ChampD3=98;
A.ChampE3=98;
A.ChampF3=2.4;
A.ChampG3=2.4;
A.ChampH3.Champ=3;
A.ChampI3=3.5;
A.ChampJ3=3.5;
A.ChampK3=3;
A.ChampL3=3;
A.ChampM3=11;
A.ChampN3=11;
A.ChampO3="coucou";
A.ChampP3=11;
A.ChampQ3=11;
A.ChampR3="hello";
Ecran.Ecrire(""A.ChampA3="+Caractere(A.ChampA3));
Ecran.Ecrire(""A.ChampB3="+Caractere(A.ChampB3));
Ecran.Ecrire(""A.ChampC3="+Caractere(A.ChampC3));
Ecran.Ecrire(""A.ChampD3="+Caractere(A.ChampD3));
Ecran.Ecrire(""A.ChampE3="+Caractere(A.ChampE3));
Ecran.Ecrire(""A.ChampF3="+Caractere(A.ChampF3));
Ecran.Ecrire(""A.ChampG3="+Caractere(A.ChampG3));
Ecran.Ecrire(""A.ChampH3.Champ="+Caractere(A.ChampH3.Champ));
Ecran.Ecrire(""A.ChampI3="+Caractere(A.ChampI3));
Ecran.Ecrire(""A.ChampJ3="+Caractere(A.ChampJ3));
Ecran.Ecrire(""A.ChampK3="+Caractere(A.ChampK3));
Ecran.Ecrire(""A.ChampL3="+Caractere(A.ChampL3));
Ecran.Ecrire(""A.ChampM3="+Caractere(A.ChampM3));
Ecran.Ecrire(""A.ChampN3="+Caractere(A.ChampN3));
Ecran.Ecrire(""A.ChampO3="+Caractere(A.ChampO3));
Ecran.Ecrire(""A.ChampP3="+Caractere(A.ChampP3));
Ecran.Ecrire(""A.ChampQ3="+Caractere(A.ChampQ3));
Ecran.Ecrire(""A.ChampR3="+A.ChampR3);
Ecran.Ecrire(""\n");

EcrireTableau(""A.ChampA4=",A.ChampA4);
EcrireTableau(""A.ChampB4=",A.ChampB4);
Ecran.Ecrire(""A.ChampC4="+Caractere(A.ChampC4));
Ecran.Ecrire(""A.ChampD4="+A.ChampD4);
Ecran.Ecrire(""A.ChampE4="+A.ChampE4);
EcrireTableau(""A.ChampF4=",A.ChampF4);
EcrireTableau(""A.ChampG4=",A.ChampG4);
EcrireTableau(""A.ChampH4=",A.ChampH4);
EcrireTableau(""A.ChampI4=",A.ChampI4);
EcrireTableau(""A.ChampJ4=",A.ChampJ4);
EcrireTableau(""A.ChampK4=",A.ChampK4);
EcrireTableau(""A.ChampL4=",A.ChampL4);
EcrireTableau(""A.ChampM4=",A.ChampM4);
EcrireTableau(""A.ChampN4=",A.ChampN4);
EcrireTableau(""A.ChampO4=",A.ChampO4);
EcrireTableau(""A.ChampP4=",A.ChampP4);
EcrireTableau(""A.ChampQ4=",A.ChampQ4);
EcrireTableau(""A.ChampR4=",A.ChampR4);
Ecran.Ecrire(""\n");

A.AppelZ4();
EcrireTableau(""A.AppelA4=",A.AppelA4(TA));
EcrireTableau(""A.AppelB4=",A.AppelB4(TB));
Ecran.Ecrire(""A.AppelC4="+Caractere(A.AppelC4(TC)));
Ecran.Ecrire(""A.AppelD4="+A.AppelD4(TD));
Ecran.Ecrire(""A.AppelE4="+A.AppelE4(TE));
EcrireTableau(""A.AppelF4=",A.AppelF4(TF));
EcrireTableau(""A.AppelG4=",A.AppelG4(TG));
EcrireTableau(""A.AppelH4=",A.AppelH4(TH));
EcrireTableau(""A.AppelI4=",A.AppelI4(TI));
EcrireTableau(""A.AppelJ4=",A.AppelJ4(TJ));
EcrireTableau(""A.AppelK4=",A.AppelK4(TK));
EcrireTableau(""A.AppelL4=",A.AppelL4(TL));
EcrireTableau(""A.AppelM4=",A.AppelM4(TM));
EcrireTableau(""A.AppelN4=",A.AppelN4(TN));
EcrireTableau(""A.AppelO4=",A.AppelO4(TO));
EcrireTableau(""A.AppelP4=",A.AppelP4(TP));
EcrireTableau(""A.AppelQ4=",A.AppelQ4(TQ));
EcrireTableau(""A.AppelR4=",A.AppelR4(TR));
Ecran.Ecrire(""\n");

A.ChampA4=TA;
A.ChampB4=TB;
A.ChampC4=TC;
A.ChampD4=TD;
A.ChampE4=TE;
A.ChampF4=TF;
A.ChampG4=TG;
A.ChampH4=TH;
A.ChampI4=TI;
A.ChampJ4=TJ;
A.ChampK4=TK;
A.ChampL4=TL;
A.ChampM4=TM;
A.ChampN4=TN;
A.ChampO4=TO;
A.ChampP4=TP;
A.ChampQ4=TQ;
A.ChampR4=TR;
EcrireTableau(""A.ChampA4=",A.ChampA4);
EcrireTableau(""A.ChampB4=",A.ChampB4);
Ecran.Ecrire(""A.ChampC4="+Caractere(A.ChampC4));
Ecran.Ecrire(""A.ChampD4="+A.ChampD4);
Ecran.Ecrire(""A.ChampE4="+A.ChampE4);
EcrireTableau(""A.ChampF4=",A.ChampF4);
EcrireTableau(""A.ChampG4=",A.ChampG4);
EcrireTableau(""A.ChampH4=",A.ChampH4);
EcrireTableau(""A.ChampI4=",A.ChampI4);
EcrireTableau(""A.ChampJ4=",A.ChampJ4);
EcrireTableau(""A.ChampK4=",A.ChampK4);
EcrireTableau(""A.ChampL4=",A.ChampL4);
EcrireTableau(""A.ChampM4=",A.ChampM4);
EcrireTableau(""A.ChampN4=",A.ChampN4);
EcrireTableau(""A.ChampO4=",A.ChampO4);
EcrireTableau(""A.ChampP4=",A.ChampP4);
EcrireTableau(""A.ChampQ4=",A.ChampQ4);
EcrireTableau(""A.ChampR4=",A.ChampR4);
Ecran.Ecrire(""\n");

Fin Principal