Discussion :

[bongo parfait]

bonjour
mon professeur me demande d'ecrire des programmes avec mes propres unités
comment faire pour les créer et les utiliser
merci.

[M.Dlb]

http://cyberzoide.developpez.com/info/turbo/chap14.php3

[Raay]

Un dieu ce responsable pascal.

[droggo]

klo,

bonjour
mon professeur me demande d'ecrire des programmes avec mes propres unités
comment faire pour les créer et les utiliser
merci.

Normalement, s'il vous demande ça, il doit vous avoir expliqué comment le faire, sinon change de prof

[Mic**]

bonjour
mon professeur me demande d'ecrire des programmes avec mes propres unités
comment faire pour les créer et les utiliser
merci.

Bonjour ,
Pour Créer une Unité, il faut déclarer tes procédures, fonctions,variables générales dans la partie Interface , et développer tes procédure et fonctions dans la partie Implémentation

Ensuite tu compile ton unité avec compilation sur disque et cela te génère un fichier TPU dans le répertoire déclaré pour les TPUs

Voici un petit example:


l'Unité:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Unit Heur_ex;
{ Cette unit‚ affiche l'heure dans un programme en mode texte }
 
Interface
 
Uses Crt, Dos; {unités utilisée dans cette unité}
 
Var
 h,m,s,hund: Word;
 
Procedure HM (c:integer); {Affiche l'heure de couleur c}
 
Implementation
 
Procedure HM (c:integer);
 
begin
  TextColor(c);
  GetTime(h,m,s,hund);
  Writeln('Il est  ',(h),':',(m),':');
end;
 
End.

Le programme qui l'utilise:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Program HeureExample;
 
 Uses Crt,Heur_ex;
 
 Begin
 Clrscr;
 WriteLn ('example d''utilisation d''une unit‚ en Turbo Pascal');
 WriteLn;
 HM(5);
 WriteLn;
 HM(2);
 ReadKey;
 End.

[Ultima]

Bonsoir,
Je tenais à en parler car ni cyberzoide, ni les exemples présentés n'en parle.
Dans les unités, il ya deux parties facultatives :
INITIALIZATION : Partie dans laquelle on met les instructions qu'on veut que le programme exécute automatiquement à son démarrage. (Les premières choses que va faire le programme).

FINALIZATION : Partie dans laquelle on met les instructions qu'on veut que le programme exécute à la fin du programme. (Les dernières choses que va faire le programme).

[M.Dlb]

C'est un ajout de Delphi Le tutoriel de cyberzoïde est clairement orienté Turbo Pascal

[Alcatîz]

Bonjour !

Pour faire la même chose en Turbo Pascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
UNIT xxx;
 
INTERFACE
...
Procedure Finalization;
 
IMPLEMENTATION
...
...
Procedure Finalization;
Begin
  { Code de finalisation }
End;
 
BEGIN
 
  { ici se place le code d'initialisation }
 
  ExitProc := @Finalization;   { Et voilà la finalisation }
END.

[droggo]

Laq,

Bonjour !

Pour faire la même chose en Turbo Pascal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
UNIT xxx;
 
INTERFACE
...
Procedure Finalization;
 
IMPLEMENTATION
...
...
Procedure Finalization;
Begin
  { Code de finalisation }
End;
 
BEGIN
 
  { ici se place le code d'initialisation }
 
  ExitProc := @Finalization;   { Et voilà la finalisation }
END.

La procédure Finalisation, en principe uniquement responsable de ce que fait cette Unit, n'a pas besoin d'apparaître dans la partie INTERFACE

[Alcatîz]

La procédure Finalisation, en principe uniquement responsable de ce que fait cette Unit, n'a pas besoin d'apparaître dans la partie INTERFACE

Je l'ignorais, merci.
C'est vrai, c'est logique.