Discussion :

[nanou1983]

Bonjour tout le monde ! ! !
Petit besoin d'aide, très rapide je pense !
J'ai fais un programme en Application Console (sur lequel je viens lire des données sur une carte d'acquisition).
Dans ce programme j'ai crée des fonctions et des procédures. Je voudrais juste savoir comment faire pour mettre ses fonctions et procédures dans une autre fiche, que je viendrais appeler dans mon programme principal. J'ai mis en gras la partie du code que je voudrais mettre sur une autre fiche.
Voici le prorgamme principal :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
program nc;

{$APPTYPE CONSOLE}

uses
  windows,
  p16r16;

var j,k:integer;

const adresse = 56444;

function entr():word;
begin
pci_driverinit(wtotalboard);
result:=pci_di8(adresse);
end;

procedure sorti(w:word);
begin
pci_driverinit(wtotalboard);
pci_do8(adresse,w);
end;

begin
k:=1;

repeat

sorti(k);
k:=k*2;
sleep(500);
writeln(' entree ', entr);
if k=256 then k:=1;
until j=3;

end.

Merci beaucoup pour votre précieuse aide, bonne journée à tous et à toutes !

[Yurck]

il faut créer une autre "unité"

ici AutreUnite.pas

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
24
25
26
27
unit AutreUnite;

interface

function entr():word;
procedure sorti(w:word);

implementation

uses  p16r16;
 
const adresse = 56444;

function entr():word;
begin
pci_driverinit(wtotalboard);
result:=pci_di8(adresse);
end;

procedure sorti(w:word);
begin
pci_driverinit(wtotalboard);
pci_do8(adresse,w);
end;

end.

et y faire référence dans ton programme

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
24
25
26
program nc;

{$APPTYPE CONSOLE}

uses
  windows,
  p16r16,
  AutreUnite;

var j,k:integer;


begin
k:=1;

repeat

sorti(k);
k:=k*2;
sleep(500);
writeln(' entree ', entr);
if k=256 then k:=1;
until j=3;

end.

[Just-Soft]

Salut;

tu fais fichier--> nouveau --> unité

à ce stade tu as créé ta nouvelle unité, tu met toutes les déclarations dans la partie interface, puis le code des procédures et fonctions dans la partie implémentation.

une fois terminer, pour appeler l'une de ces fonctions ou procédures dans ton programme console tu dois ajouter à la clause uses le nom de l'unité créée.

ceci est l'unité quand vient d'ajouter

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 Unit_mes_routines ;
 
interface
procedure faire;
function boulot: boolean;
 
implementation
 
procedure une;
begin
  // code
end;
 
function : boolean;
begin
  // code
end;
 
end.

ceci est ton programme appelant

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
 
unit Unit_mon_prg;
 
interface
 
uses Unit_mes_routines;
 
var
    f : boolean;
 
implementation
 
// ton code ici puis on appel la fonction boulot
f : = boulot;
 
end.

[Andnotor]

Je suis loin d'etre sûr qu'une application console puisse invoquer du GUI

Tu devrais plutôt créer une application VCL. Sur ta fiche principale, tu pourras afficher ce que tu veux en provenance de ton système d'acquisition à travers un timer ou un thread.

[nanou1983]

Merci beaucoup !
Ça marche très bien comme ça ! En plus vous m'avez bien expliqué le fonctionnement des liaisons fiches et programmes principal ! MERCI beaucoup !
On en redemande toujours plus lol, je sais qu'en Delphi 6 on n'a plus accès à la fonction Keypressed, par hasard vous avez pas une petite idée . . .
Mais en tout cas merci pour vos réponses !

[Just-Soft]

Re;

On en redemande toujours plus lol, je sais qu'en Delphi 6 on n'a plus accès à la fonction Keypressed, par hasard vous avez pas une petite idée . . .

explique plus!

[nanou1983]

Salut,
Ben en fait quand j'aimerai bien pouvoir faire une action jusqu'à ce que l'utilisateur appui sur une touche.
Exemple :

Repeat
xxxxxx;
until keypressed;

Alors je cherche mais bon ... j'essaye de faire une détection de valeur ascii par exemple détecter l'appui sur la touche echap (keyascii = 27), mais en delphi 6 y'a pas l'instruction keyascii.

Voilà où j'en suis !

Merci

[Yurck]

Interception du message windows WM_CHAR ??

encore que dans une appli console je ne sais si tu peux le faire ni comment le faire