Source MiseAuPoint
LibelleDuScript Version
NumeroDeVersion .
NumeroDeRevision .
NumeroDeCorrection ;
MiseAuPoint
Debut
Fin MiseAuPoint
AfficherTaches();
SelectionnerTache(
Expression );
AjouterPointDArret(
SuitePointDArret );
AjouterPointDArretSurAppel(
Expression );
AjouterPointDArretSurCondition(
Expression );
AjouterPointDArretSurExpression(
Expression );
AjouterPointDArretSurException(
Expression );
AjouterPointDArretSurObjet(
Expression );
AjouterPointDArretSurAttacherTache();
AjouterPointDArretSurDetacherTache();
AjouterPointDArretSurAttacherModule();
AjouterPointDArretSurDetacherModule();
SupprimerPointDArret(
Expression );
ActiverPointDArret(
Expression );
DesactiverPointDArret(
Expression );
ListerPointsDArret();
ExecuterPasAPas();
ExecuterPasAPasSuivant();
ExecuterPasAPasRetourner();
ContinuerExecution();
AfficherPileAppels();
EmpilerAppel();
DepilerAppel();
AfficherAppel();
AfficherVariablesGlobales();
AfficherVariablesLocales();
AfficherExpression(
Expression SuiteAfficherExpression );
AfficherAdresseObjet(
Expression );
AfficherType(
Expression );
ModifierParametre(
Expression ,
Expression );
ModifierVariable(
Expression ,
Expression );
ActiverMiseAuPoint(ModeMiseAuPoint);
ArreterProgramme();
InterpreterFichierCommandes(
NomDuFichier );
,
Expression,
ExpressionNul
Vrai
Faux
Objet
(
Expression )
.
NomDUneProprieteNomDUnOperateurUnairePrefixe :
-
~
Non
+
-
*
/
\
%
^
&
|
<<
>>
==
!=
<
>
<=
>=
Et
Ou
EtExclusif
Comme
Source Composant "Exemple de mise au point" Version 4.0.0;
Variable
/******/
AGlobal : Booleen;
BGlobal : ComparaisonObjet;
CGlobal : Entier;
DGlobal : Reel;
EGlobal:Caractere;
Fonction F(A:Booleen Entree Sortie, B:ComparaisonObjet Entree Sortie,
C:Entier Entree Sortie, D:Reel Entree Sortie, E:Caractere Entree Sortie)
Retourner Entier
/*************************************************************************/
Variable
/******/
ALocal:Booleen;
BLocal:ComparaisonObjet;
CLocal:Entier;
DLocal:Reel;
ELocal:Caractere;
Debut
ALocal=Vrai;
BLocal=ComparaisonEgal;
CLocal=10;
DLocal=11.22;
ELocal="coucou";
Ecran.Ecrire("P:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
AGlobal=Faux;
BGlobal=ComparaisonApres;
CGlobal=1110;
DGlobal=1111.22;
EGlobal="hello !";
Ecran.Ecrire(Caractere(AGlobal));
Ecran.Ecrire(Caractere(BGlobal));
Ecran.Ecrire(CGlobal);
Ecran.Ecrire(DGlobal);
Ecran.Ecrire(EGlobal);
A=Faux;
B=ComparaisonNul;
C=1110;
D=1111.22;
E="guten tag";
Ecran.Ecrire(Caractere(A));
Ecran.Ecrire(Caractere(B));
Ecran.Ecrire(C);
Ecran.Ecrire(D);
Ecran.Ecrire(E);
Retourner 0;
Fin Fonction
Principal
/*******/
Variable
/******/
ALocal:Booleen;
BLocal:ComparaisonObjet;
CLocal:Entier;
DLocal:Reel;
ELocal:Caractere;
Reponse:Entier;
Debut
ALocal=Vrai;
BLocal=ComparaisonEgal;
CLocal=10;
DLocal=11.22;
ELocal="coucou";
Ecran.Ecrire("Principal 1:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
AGlobal=Vrai;
BGlobal=ComparaisonApres;
CGlobal=110;
DGlobal=111.22;
EGlobal="hello";
Ecran.Ecrire("Principal 2:");
Ecran.Ecrire(Caractere(AGlobal));
Ecran.Ecrire(Caractere(BGlobal));
Ecran.Ecrire(CGlobal);
Ecran.Ecrire(DGlobal);
Ecran.Ecrire(EGlobal);
Ecran.Ecrire(");
Reponse=F(ALocal,BLocal,CLocal,DLocal,ELocal);
Ecran.Ecrire("Principal 3:");
Ecran.Ecrire(Caractere(ALocal));
Ecran.Ecrire(Caractere(BLocal));
Ecran.Ecrire(CLocal);
Ecran.Ecrire(DLocal);
Ecran.Ecrire(ELocal);
Ecran.Ecrire(");
Ecran.Ecrire(10/Reponse);
Fin Principal
Source MiseAuPoint "Exemple de mise au point" Version 4.0.0;
MiseAuPoint
/*********/
Debut
AjouterPointDArret(40, "exemple");
ContinuerExecution();
DepilerAppel();
AfficherVariableLocales();
EmpilerAppel();
AfficherExpression("ALocal");
AfficherType("ALocal");
ModifierExpression("ELocal", E+"!!!");
SupprimerPointDArret(1);
AjouterPointDArretSurCondition(CGlobal==110);
AjouterPointDArretSurExpression(EGlobal);
ContinuerExecution();
ExecuterPasAPas();
ExecuterPasAPas();
ExecuterPasAPasRetourner();
ExecuterPasAPas();
ExecuterPasAPas();
ArreterProgramme(0);
Fin MiseAuPoint