La persistance

Commande de compilation...
Commande d'exécution...
Fichier source...

upscmp Source=persistant.upl Persistant=Oui

Revenir en haut de la page...

persistant

Revenir en haut de la page...

Source Composant "Exemple d'emploi de la persistance" Version 1.0.0;

Enumere Type TT1 Defaut
/*************/ Fin Type

Type TT2 Defaut
/*************/
Prive :
/*****/
Fin Type

Variable
/******/ Prive :
/*****/
Procedure TT2.AllouerRessource()
/******************************/
Debut
Fin Procedure

Procedure TT2.LibererRessource()
/******************************/
Debut
Fin Procedure

Principal
/*******/
Debut
A1+="A";
Ecran.Ecrire(A1);
Si B1==Nul Alors Sinon Fin Si
Ecran.Ecrire(Caractere(B1));
Si C1==Nul Alors Sinon Fin Si
Ecran.Ecrire(C1);
Ecran.Ecrire(++C2);
Si (D1==Nul) Ou (D1==Rouge) Alors SinonSi D1==Bleu Alors Sinon Fin Si Ecran.Ecrire(Couleur(D1));
Si D2==Rouge Alors SinonSi D2==Bleu Alors Sinon Fin Si
Ecran.Ecrire(Couleur(D2));
Ecran.Ecrire("\n");

E1.A1+="A";
Ecran.Ecrire(E1.A1);
Si E1.B1==Nul Alors Sinon Fin Si
Ecran.Ecrire(Caractere(E1.B1));
Si E1.C1==Nul Alors Sinon Fin Si
Ecran.Ecrire(E1.C1);
Ecran.Ecrire(++E1.C2);
Si (E1.D1==Nul) Ou (E1.D1==Rouge) Alors SinonSi E1.D1==Bleu Alors Sinon Fin Si
Ecran.Ecrire(Couleur(E1.D1));
Si E1.D2==Rouge Alors SinonSi E1.D2==Bleu Alors Sinon Fin Si
Ecran.Ecrire(Couleur(E1.D2));
Ecran.Ecrire("\n");

E2.A1+="A";
Ecran.Ecrire(E2.A1);
Si E2.B1==Nul Alors Sinon Fin Si
Ecran.Ecrire(Caractere(E2.B1));
Si E2.C1==Nul Alors Sinon Fin Si
Ecran.Ecrire(E2.C1);
Ecran.Ecrire(++E2.C2);
Si (E2.D1==Nul) Ou (E2.D1==Rouge) Alors SinonSi E2.D1==Bleu Alors Sinon Fin Si
Ecran.Ecrire(Couleur(E2.D1));
Si E2.D2==Rouge Alors SinonSi E2.D2==Bleu Alors Sinon Fin Si
Ecran.Ecrire(Couleur(E2.D2));
Fin Principal

Revenir en haut de la page...