aide pour execution

Question

bonjour, est il possible de rendre ce programme en turbo pascal sous forme de fichier *.exe , j'ai essay&#233; avec Dev  pascal mais ca n'a pas march&#233; , il n'a pas reconnu l'instruction du port  LPT1  parallele , s'il ya un autre compilateur ou une autre solution je vous prie de m'informer .
merci d'avance
"debutant non class&#233; !!"  

program alarm;
uses crt;
var v:integer;
begin
clrscr;
writeln('vous pouvez sortir');
delay(12000);
repeat
v:=port[957];
if v and 64=64 then
writeln ('attension ALARM')
else begin
clrscr;
writeln('declenchement alarme');
port[956]:=1;
delay (6000);
repeat
port [956]:=2;
delay (100);
port[956]:=0;
delay(100);
until Keypressed;
end;
port[956]:=0;
until keypressed;
Readln;
end.

pioonice · Answer

Bonjour,

Et en cr&#233;ant un projet de type application console en Delphi?

Essaies, je pense que c'est possible.(mais &#233;videmment errare humanum est donc...)

Si &#231;a fonctionne, content d'avoir pu t'aider, sinon d&#233;sol&#233;

Fabien M.

laminoche · Answer

est ce qu'il n y aura rien a changer au corps du programme ? au sujet des valeurs du registre de donn&#233; et d'etat  du port ??
merci

pioonice · Answer

Essaies mais je ne pense que tu doives les changer.

Fabien M.

laminoche · Answer

oui d'accord, mais le probleme je ne connais rien aux instructions delphi !

pioonice · Answer

En fait je voulais dire je ne pense pas que tu doives les changer, laisse ton programme tel quel et essaies MAIS &#231;a ne marche pas il faut que tu l'adaptes d&#233;sol&#233;.

Il faut que tu cherches les bonnes unit&#233;s voire API &#224; utiliser pour que &#231;a fonctionne. Mais l&#224; je ne peux pas t'aider car jamais fait d'application console en delphi. D&#233;sol&#233;. Cependant je pense que c'est une piste &#224; explorer...

Fabien M.

laminoche · Answer

alors je voudrais savoir si c'est possible comment  mettre les D0 et D1 soit sur 0 ou 1  et comment lire l'etat de Ack  du port 
merci tout de meme

Aide pour execution

6 réponses

Votre réponse

Discussions similaires