Function Baca(Port:Word):Byte;
var b:byte;
begin
Asm
Mov dx,Port
In al,dx
Mov b,al
end;
Result:=b;
end;
procedure Tulis(Port:Word; b:Byte);
begin
Asm
mov dx,Port
mov al,b
out dx,al
end;
end;
NB:
Port = diisi dgn alamat Port, misal $378
saya sudah mencobanya di Port Paralel dan PPI 8255
semoga membantu
----- Original Message -----
From: "Ir. Susianto A." <[EMAIL PROTECTED]>
To: "Mailing List Delphindo" <[EMAIL PROTECTED]>
Sent: Friday, November 22, 2002 3:56 PM
Subject: [Delphindo] Baca & Tulis COM Port
> Rekan-2 milis sekalian,
>
> Bagaimana caranya membaca dari COM Port
> dan juga menulis ke COM Port
>
> Terima kasih !
----------------------------------------------------------------------------
Ikuti polling TELKOM Memo 166 di www.plasa.com dan menangkan hadiah masing-masing Rp
250.000 tunai
----------------------------------------------------------------------------
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
