Contoh Program Kontrol Relay Via Port Paralel LPT Menggunakan Delphi


lpt4rel_delphi_running

LPT-4REL adalah modul driver empat relay dengan antarmuka port paralel LPT. Dengan modul ini kita dapat mengontrol 4 buah peralatan listrik baik yang bertegangan AC maupun DC.

Contoh aplikasinya antara lain adalah pengontrolan lampu ruangan kantor, pengontrolan exhaust fan, pengontrolan TV atau PlayStation, dan lain-lain.

Sebelumnya, setiap pembelian modul LPT-4REL akan disertakan juga sebuah CD yang berisi source code contoh program pengontrolan modul driver relay LPT-4REL yang dibuat menggunakan VB.NET. Kini tidak hanya VB.NET, tapi akan disertakan juga source code contoh program dalam versi Delphi dan Lazarus.

Screenshot di atas adalah tampilan program LPT-4REL yang dibuat menggunakan Turbo Delphi Explorer For Win32. Di bawah ini saya berikan sedikit penggalan program LPT-4REL yang berfungsi mendeklarasikan fungsi INP32() dan OUT32() dari library INPOUT32.DLL.

function Inp32(PortAdr: word): byte; stdcall; external ‘inpout32.dll’;
function Out32(PortAdr: word; Data: byte): byte; stdcall; external ‘inpout32.dll’;

procedure Relay(n: Byte; s: Byte);
const
  RelayOn: array[1..4] of Byte = (1, 2, 4, 8);
  RelayOff: array[1..4] of Byte = (255-1, 255-2, 255-4, 255-8);
begin
  LPTValue:= Inp32(LPTAddress);
  if s=0 then
    LPTValue:= LPTValue AND RelayOff[n]
  else
    LPTValue:= LPTValue OR RelayOn[n];
  Out32(LPTAddress, LPTValue);
end;

Anda bisa mengembangkan program LPT-4REL sesuai dengan kebutuhan aplikasi Anda. Untuk mengetahui program selengkapnya, silakan download program LPT-4REL versi Delphi menggunakan link berikut ini.

LPT-4REL Delphi.zip
(~482KB)

Semoga sedikit yang saya sampaikan bisa bermanfaat bagi Anda.

Selamat belajar dan selamat berkarya!

🙂

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s