Interfacing Pengendali Lampu dan Kipas


Lamp and Fan Controller Interfacing atau dapat dikatakan Interfacing pengendali lampu dan kipas merupakan salah satu rangkaian elektronika yang dapat digunakan untuk mengendalikan atau mengontrol perangkat keluaran seperti motor dc, lampu, kipas, buzzer / bel, dan lain-lain melalui komputer. Rangkaian antarmuka pengendali lampu dan kipas ini merupakan prinsip dasar dari PLC (Programmable Logic Control). Berikut ini gambar rangkaiannya :

Gambar Rangkaian Interfacing Pengendali Lampu dan Kipas

Interfacing Kendali Lampu dan Kipas

Rangkaian pengendali lampu dan kipas ini dikendalikan melalui antarmuka komputer yaitu dalam bentuk aplikasi. Jadi, selain membuat rangkaian pengendali untuk lampu dan kipas, disisi lain juga membuat aplikasi pada komputer menggunakan software delphi. Fungsi aplikasi tersebut adalah sebagai antarmuka untuk memberikan masukan nilai 1 dan 0 atau on dan off.

Berikut ini Skema dan Flowchart antarmuka pengendali lampu dan kipas pada delphi :

Skema Antarmuka Pengendali Lampu dan Kipas

Flowchart Aplikasi Antarmuka Pengendali Lampu dan Kipas

dan berikut ini adalah code Program-nya….

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls, ComCtrls;
function Out32(wAddr:word;bOut:byte) :byte;stdcall;external’inpout32.dll’;
type
TForm1 = class(TForm)
Pilih: TRadioGroup;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Timer1: TTimer;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Bayu:Byte ;
implementation
{$R *.dfm}
procedure delay(msec:integer);
var StartCount: longint;
begin
StartCount:= GetTickCount;
repeat
Application.ProcessMessages;
until (GetTickCount-StartCount)>= msec;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Bayu:=(Out32($378,$0));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Pilih.ItemIndex=0 then
begin
Bayu:=(Out32 ($378,$1));
delay(100);
end
else
if Pilih.ItemIndex=1 then
begin
Bayu:=(Out32 ($378,$2));
delay(100);
end
else
begin
Bayu:=(Out32 ($378,$3));
delay(100);
end
end;
begin
Bayu:=(Out32($378,$0));
delay(100);
end.

Mudah-mudahan artikel ini dapat membantu, Terima kasih…😀

Tinggalkan Komentar

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