Contoh Program Kontrol USB Relay 1-Channel USB-1REL Versi Delphi


Delphi merupakan salah satu software pengembang aplikasi desktop yang paling populer di Indonesia selain Visual Basic 6 dan Visual Basic .NET. Meskipun sudah ada Lazarus/Freepascal, tapi sepertinya Delphi tetap lebih digemari ketimbang Lazarus/Freepascal. Tapi ini hanya asumsi saya saja.

USB-1REL adalah modul USB Relay 1-Channel yang sangat praktis. Modul ini tidak memerlukan catudaya eksternal karena USB-1REL mengambil daya dari port USB. Dengan USB-1REL, kita dapat mengontrol 1 buah relay dari komputer melalui port USB.

Beberapa kelebihan dari modul USB-1REL adalah:

  • Praktis, karena tidak memerlukan catudaya eksternal, modul ini mengambil suplai dari port USB.
  • Memiliki ID yang unik yang dapat dimanfaatkan untuk menambah layer proteksi software aplikasi yang Anda buat.
  • Kami menyediakan contoh program interface dalam berbagai bahasa pemrograman, al: C, Delphi/Lazarus, Python, VB6.
  • Dilengkapi file program CLI (Command-Line Interface) yang akan memudahkan programmer untuk mengakses modul dengan pemrograman apapun: BASH, Batch-File, PHP, JS, REBOL, JustBASIC, dan lain-lain.
  • Garansi 1 bulan servis (dengan ketentuan tertentu).

Nah, tanpa basa-basi, berikut ini adalah tampilan dari program kontrol USB-1REL versi Delphi.

Btw, saya menggunakan Turbo Delphi. FREE.

Program USB-1REL – Turbo Delphi

Dan berikut ini adalah source code programnya.

unit main;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg, LibUSB;

type
TForm1 = class(TForm)
grpRelay1: TGroupBox;
Relay1On: TButton;
Relay1Off: TButton;
Button1: TButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Relay1OnClick(Sender: TObject);
procedure Relay1OffClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
USB1REL_Device: pUSB_Device;
USB1REL_Handle: pUSB_Dev_Handle;
buffer: array[0..100] of byte;
r: boolean;
x: integer;

implementation

{$R *.dfm}

function USBFindDevice(VID, PID: word): pUSB_Device;
var
 bus: PUSB_BUS;
 dev: PUSB_device;
begin
 result := nil;
 usb_init();
 usb_find_busses();
 usb_find_devices();
 bus:=USB_get_Busses;
 while (bus<>nil) do
 begin
  dev:=bus.devices;
  while (dev<>nil) do begin
   if (dev.descriptor.idVendor=VID) and    (dev.descriptor.idProduct=PID) then
   result:=dev;
   dev:=dev.next;
  end;
  bus:=bus.next;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 s: string;
begin
 usb_control_msg(USB1REL_Handle, $C0, 0, 0, 0, buffer,  sizeof(buffer), 5000);
 setstring(s, pchar(@buffer[0]), 12);
 edit1.text:= s;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 USB1REL_Device:= USBFindDevice(5824, 1500);
 if USB1REL_Device=nil then
 begin
  ShowMessage('Modul USBRelay tidak ditemukan!');
  application.Terminate;
 end else
  USB1REL_Handle:= usb_open(USB1REL_Device);
end;

procedure TForm1.Relay1OnClick(Sender: TObject);
begin
 usb_control_msg(USB1REL_Handle, $40, 1, 1, 1, buffer, sizeof(buffer), 5000);
 grpRelay1.Caption:= ' RELAY = ON ';
end;

procedure TForm1.Relay1OffClick(Sender: TObject);
begin
 usb_control_msg(USB1REL_Handle, $40, 1, 0, 1, buffer, sizeof(buffer), 5000);
 grpRelay1.Caption:= ' RELAY = OFF ';
end;

end.

Kami mendukung pengguna USB-1REL dan modul USB Relay sejenis seperti USB-2REL, USB-4REL, USB-2R3I, USB-8REL, USB-10REL dan USB-TC101 dengan menyediakan contoh-contoh program kontrol dalam berbagai versi bahasa pemrograman.

Kami pun mendukung platform Windows, Linux dan Linux ARM (Raspberry Pi, Odroid, OrangePi, dsb).

Dan berikut ini adalah beberapa artikel terkait program kontrol USB-1REL yang sangat sayang untuk Anda lewatkan.

Mengontrol USB Relay 1-Channel USB-1REL Secara Remote Melalui Koneksi TCP Menggunakan Freepascal dan ZeroMQ

Sistem Pereset Modem Pada CPU Server Menggunakan Modul Interface USB-1REL

Program Network Remote Untuk Modul USB-1REL

Membuat Sendiri Aplikasi Bel Sekolah/Kantor Dengan USB-1REL dan REBOL

Mengontrol Turnstile Menggunakan Modul USB Relay USB-1REL

Membuka Cash-Drawer (Laci Kas) Dari Program Komputer Menggunakan USB-1REL

Program Kontrol USB-1REL Versi Lazarus/Freepascal

Contoh Program Kontrol Modul USB Relay 1-Channel (USB-1REL) Menggunakan Bahasa Pemrograman C# (CSharp)

TimeIsUp! A Cool Countdown Timer Software

Nah, semoga tulisan singkat ini bermanfaat bagi Anda. Dan untuk detil produk USB Relay dapat Anda lihat pada halaman situsnya di:

USBINOV – USB Control & Sensing

Selamat belajar. 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 )

Foto Google

You are commenting using your Google 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 )

Connecting to %s

This site uses Akismet to reduce spam. Learn how your comment data is processed.