GRY-Online.pl --> Archiwum Forum

co z tym programem jest nie tak ?!? (TP)

02.09.2004
16:50
[1]

Vein [ Sannin ]

co z tym programem jest nie tak ?!? (TP)

no wlasnie, co z nim nie tak ? menda kompilatorz nazeka ze nie wie co to "port" (borland delphi) a TP 7.0 mowi by w to co jest za "port" wsadzic nawiasy (mimo ze juz są), a oto kod:


uses crt,dos;
var
LPT :Word; ‹ adres bazowy porty LPT ›
B :Byte;

procedure ZapiszLPT(Bajt:Byte; Portadr:Word);
begin
asm
mov dx,Portadr
mov al,Bajt
out dx,al
end;
end;

begin
LPT:=$378; ‹ ustalenie adresu bazowego dla LPT1 ›
‹ LPT:=$278; › ‹ ustalenie adresu bazowego dla LPT2 ›
repeat
B:=port(LPT+1);
ZapiszLPT(B,LPT);
until false; ‹ niekończąca się pętla ›
end.

03.09.2004
18:50
[2]

Vein [ Sannin ]

łup!

03.09.2004
21:23
[3]

Vein [ Sannin ]

nie mowcie mi ze nie wiecie co z tym nie tak...

© 2000-2021 GRY-OnLine S.A.