Program Kontrol Modul USB-2REL Menggunakan Lazarus / Free Pascal


usb2rel_lazarus

Lazarus adalah IDE terbaik untuk kompiler Free Pascal yang sangat mirip dengan Delphi. Jika Delphi adalah produk komersial, maka Lazarus adalah freeware dan bahkan open-source.

Setelah pada tulisan sebelumnya dan sebelumnya lagi saya memberikan contoh program kontrol modul USB-2REL dalam versi VB.NET dan versi Delphi, maka kali ini saya akan memberikan contoh program kontrol modul USB-2REL dalam versi Lazarus / Free Pascal.

Tak jauh beda dengan program-program versi lainnya, tampilan program kontrol modul USB-2REL versi Lazarus juga menampilkan 3 buah GroupBox yakni GroupBox RELAY-1, RELAY-2, dan ALL RELAY. Masing-masing group memiliki 2 buah button ON dan OFF.

Berikut adalah penggalan programnya.

procedure TForm1.btnRelay1OnClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘R1’,”, SW_HIDE);
  grpRelay1.Caption:= ‘RELAY-1 = ON’;
end;

procedure TForm1.btnRelay1OffClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘r1’,”, SW_HIDE);
  grpRelay1.Caption:= ‘RELAY-1 = OFF’;
end;

procedure TForm1.btnRelay2OnClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘R2’,”, SW_HIDE);
  grpRelay2.Caption:= ‘RELAY-2 = ON’;
end;

procedure TForm1.btnRelay2OffClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘r2’,”, SW_HIDE);
  grpRelay2.Caption:= ‘RELAY-2 = OFF’;
end;

procedure TForm1.btnAllRelayOnClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘RA’,”, SW_HIDE);
  grpRelay1.Caption:= ‘RELAY-1 = ON’;
  grpRelay2.Caption:= ‘RELAY-2 = ON’;
end;

procedure TForm1.btnAllRelayOffClick(Sender: TObject);
begin
  filename := ‘usb2r.exe’;
  ShellExecute(handle, ‘open’ ,PChar(filename), ‘rA’,”, SW_HIDE);
  grpRelay1.Caption:= ‘RELAY-1 = OFF’;
  grpRelay2.Caption:= ‘RELAY-2 = OFF’;
end;

File-file project selengkapnya dapat Anda download melalui link berikut ini.

USB-2REL Lazarus-Free Pascal.zip
(~1.26MB)

Jika Anda berminat dengan modul driver relay USB-2REL, silakan mengunjungi situsnya di: http://teknikelektrolinks.com untuk informasi harga dan pemesanan.

Semoga bermanfaat, selamat belajar, dan selamat berkarya!

🙂

4 comments

  1. Dwija · Maret 8, 2014

    maaf saya masih sangat awam dengan perangkat seperti ini, tapi sangat tertarik untuk mengontrol peralatan listrik di rumah dengan komputer.. kalau boleh tau, output dari USB-2REL ini apa ya mas? apakah slot untuk dicolokkan langsung ke perangkat listrik? atau kita bikin rangkaian lagi?

    • Chandra MDE · Maret 10, 2014

      Output relay. Peralatan listrik dihubungkan dengan kabel ke terminal relay. Bisa kami berikan gambar instalasi jika membutuhkan.

  2. Dwija · Maret 11, 2014

    boleh mas, berikan gambaran cara kerjanya.. trus kalau kontrolnya lewat hp bisa gak ya?

    • Chandra MDE · Maret 12, 2014

      Prinsip kerjanya sederhana, relay dikontrol oleh komputer via port USB. Untuk pengontrolan menggunakan HP bisa menggunakan modem atau bluetooth.

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