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!

🙂

Iklan
Perihal

Cek situs kami di http://teknikelektrolinks.com. Blog Raspberry Pi: http://raspi.teknikelektrolinks.com

Tagged with: , , , ,
Ditulis dalam Antarmuka Komputer, Delphi, Driver Relay, Elektronika, Home Industry, Industrial Control and Automation, Lazarus/FreePascal, Software/Programming

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

Kategori

Bergabunglah dengan 2.498 pengikut lainnya

Display Counter 3-Digit Dengan Koneksi Wi-Fi
Display Nomor Antrian WiFi Android
Mengontrol Relay Via USB/Serial dan Wi-Fi
Blog Linux dan Raspberry Pi


USB Relay USB-2REL
USB Relay USB-4REL
Water Level Control WLC-02
Serial Relay SER-4REL
NEO STARDUINO SMS ALARM

Alarm SMS Berbasis NEO STARDUINO

1 PC – 6 Unit USB-2REL

Testing 6 USB-2REL Pada 1 Komputer

Standard Pengujian USB-2REL

Pengujian USB-2REL Sebelum Dikirim

LPT-4REL on Knoppix 7.0.5

Testing LPT-4REL on Knoppix Linux

T101 Inkubator Telur

T101 Inkubator Penetas Telur

KONTROL PERALATAN LISTRIK VIA PORT LPT KOMPUTER

Demo Kontrol Kontaktor via Port LPT

STARDUINO meets ANDROID

Demo Kontrol Bluetooth Relay Android

STARDUINO SMS RELAY

Kontrol Relay Via SMS Dengan Starduino

STARDUINO WEB RELAY

Demo Kontrol Relay Via Web/Internet

JustBASIC USB-2REL Control

Demo Kontrol USB-2REL + JustBASIC

STARDUINO + GPS + LCD

Demo Starduino GPS Dengan LCD

USB-2REL EXTREME TEST

Demo Kontrol On/Off Lampu USB-2REL

THERMOSTAT T101 IN ACTION

Demo Thermostat T101 Pada SV=37.5°C

WATER LEVEL CONTROL WLC-02

Demo Kontrol Level Air Tandon WLC-02

HUMIDITY CONTROLLER H103

Demo Kontrol Kelembaban H103 (DHT11)

%d blogger menyukai ini: