Control Modul USB-2REL
03/05/13
0
komentar
Program control Modul USB-2REL Menggunakan Delphi (ShellExecute)
(by Chandra MDE)
USB-2REL adalah modul driver relay dengan antarmuka port USB yang tidak memerlukan catudaya eksternal sehingga sangat praktis untuk digunakan pada aplikasi pengontrolan relay melalui komputer atau laptop seperti pengontrolan lampu, fan, pemanas, panel portal, dan lain-lain. USB-2REL sangat cocok untuk Anda yang tidak mau ribet.
procedure TForm1.Relay1OnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'R1','', SW_HIDE);
end;
procedure TForm1.Relay1OffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'r1','', SW_HIDE);
end;
procedure TForm1.Relay2OnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'R2','', SW_HIDE);
end;
procedure TForm1.Relay2OffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'r2','', SW_HIDE);
end;
procedure TForm1.AllOnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'RA','', SW_HIDE);
end;
procedure TForm1.AllOffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'rA','', SW_HIDE);
end;
Project USB-2REL Selengkap nya dapat anda download di USB-2REL Delphi.zip
Untuk aplikasi pengontrolan modul USB-2REL melalui web/internet menggunakan PHP, Anda dapat membaca tulisan berikut ini
Sumber:: http://teknikelektrolinks.com
(by Chandra MDE)
USB-2REL adalah modul driver relay dengan antarmuka port USB yang tidak memerlukan catudaya eksternal sehingga sangat praktis untuk digunakan pada aplikasi pengontrolan relay melalui komputer atau laptop seperti pengontrolan lampu, fan, pemanas, panel portal, dan lain-lain. USB-2REL sangat cocok untuk Anda yang tidak mau ribet.
Untuk setiap pembelian modul USB-2REL akan disertakan sebuah CD yang berisi driver dan program kontrol dalam versi GUI (USB2REL.EXE) dan CONSOLE (USB2R.EXE). Keduanya dibuat dengan bahasa pemrograman C dengan kompiler freeware Pelles C.
Untuk mendukung pemrogram Delphi, berikut saya berikan program Demo Kontrol Modul USB-2REL yang saya buat menggunakan Turbo Delphi Explorer For Win32.
Program ini menggunakan fungsi ShellExecute untuk memanggil program USB2R.EXEuntuk mengontrol relay pada modul USB-2REL. Berikut adalah penggalan program yang menangani event-event penekanan tombol.
procedure TForm1.Relay1OnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'R1','', SW_HIDE);
end;
procedure TForm1.Relay1OffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'r1','', SW_HIDE);
end;
procedure TForm1.Relay2OnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'R2','', SW_HIDE);
end;
procedure TForm1.Relay2OffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'r2','', SW_HIDE);
end;
procedure TForm1.AllOnClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'RA','', SW_HIDE);
end;
procedure TForm1.AllOffClick(Sender: TObject);
var
filename: String;
begin
filename := 'usb2r.exe';
ShellExecute(handle, 'open' ,PChar(filename), 'rA','', SW_HIDE);
end;
Untuk aplikasi pengontrolan modul USB-2REL melalui web/internet menggunakan PHP, Anda dapat membaca tulisan berikut ini
Sumber:: http://teknikelektrolinks.com
Arsip Blog Bilbee-one
