Mengakses LED via Parallel Port

Tools dan Perlengkapan



* 1 lampu LED (bisa dibeli di toko elektronik, atau bongkar aja peralatan yang ga dipake lagi)

* Beberapa kabel/kawat

* PC yang ada parallel port-nya (liat di belakang, berbentuk D, 25 lubang)







Langkah Kerja



* Download file inpout32.dll di sini, kalo udah, letakkan di direktori yang sama dengan project kamu

* Seperti biasa, jalankan Delphi, buat project baru

* Tambahkan clause Math pada uses clause

* Buatlah form1 dengan tampang kayak gini:





* Buatlah function dan procedure kayak di bawah ini:



function Inp32(PortAddress: smallint):byte; stdcall; external 'inpout32.dll';

procedure Out32(PortAddress: smallint; data: byte); stdcall; external 'inpout32.dll';



procedure SetBit(Address, Value : byte);

var

PortAddress : integer;

i, j: byte;

begin

PortAddress := 888;

j :=round(Power(2, Address));

i :=Inp32(PortAddress);



if Value=0 then

begin

if i and j=j then i:=i xor j;

end else if i and j<>j then i:=i xor j;



Out32(PortAddress, i);

end;



* Pada event Button1 onClick, ketikkan code berikut:



SetBit(0, 1);



* Pada event Button2 onClick, ketikkan code ini:



SetBit(0, 0);



* OK, cukup untuk Delphi, sekarang kita akan menyusun rangkaian pada parallel port. Buatlah rangkaian kayak gambar di bawah pada parallel port kamu





+ : merah

- : hitam



Jangan sampai terbalik negatif dan positif-nya !!

Sedikit penjelasan tentang port parallel. Seperti terlihat pada gambar di atas, parallel port terdiri dari 25 port. Kenapa kita menggunakan port nomor 2 dan 18 ? Jawabannya karena port 2 adalah salah satu port yang gunanya untuk mentransmisikan data, sedangkan port 18 adalah salah satu port ground yang bermuatan negatif. Port-port untuk mengirimkan data adalah port 2 sampai port 9.



* OK, sekarang lakukan run pada program Delphi yang kita buat tadi, coba tekan Button1. Kalo kamu melakukannyab dengan benar, seharusnya LED yang kita rangkai pada parallel port akan menyala, kalo udah nyala, tekan Button2 untuk mematikan