Module comportant des méthodes de rappel

Commande de compilation

Mode compilé...
Mode interprété...
Fichier source...
Résultat de l'exécution...

Ce programme présente la déclaration dans un module d'un type comportant des méthodes de rappel et la surcharge de ses méthodes dans un autre module.

Les fichiers sources sont dans le répertoire ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/rappel/.

Mode compilé

Commande de compilation

upscmp Source=modrap.upl

upscmp Source=rappel.upl

Commande d'exécution

rappel

Mode interprété

upssng Source=rappel.upl

Fichier source

Source du module

Source Module "Exemple d'emploi des rappels" Version 4.0.0 ModuleDynamique;

Composant Dans "modrap1.upl";

Source du composant du module

Source Composant "Exemple d'emploi des rappels" Version 4.0.0 RattacherA "modrap.upl";

Type TypeA Defaut
/***************/
Fin Type

Procedure TypeA.Ecrire(P:Entier)
/******************************/
Debut
Ecran.Ecrire("TypeA.P("+Caractere(P)+");");
Fin Procedure

Rappel TypeA.Ecrire(Appelant : Caractere, P:Entier)
/*************************************************/
Debut
Ecran.Ecrire("TypeA.P("+Appelant+","+Caractere(P)+");");
Fin Rappel

Procedure TypeA.Ecrire(P : Caractere)
/***********************************/
Debut
Ecran.Ecrire("TypeA.P("+P+");");
Fin Procedure

Rappel TypeA.Ecrire(Appelant : Caractere, P:Caractere)
/****************************************************/
Debut
Ecran.Ecrire("TypeA.P("+Appelant+","+P+");");
Fin Rappel

Procedure TypeA.Ecrire(P:Date)
/****************************/
Debut
Ecran.Ecrire("TypeA.P("+Caractere(P)+");");
Fin Procedure

Rappel TypeA.Ecrire(Appelant : Caractere, P:Date)
/***********************************************/
Debut
Ecran.Ecrire("TypeA.P("+Appelant+","+Caractere(P)+");");
Fin Rappel