PENGENDALI PERANGKAT ELEKTRONIK DALAM SUATU RUANGAN DENGAN KOMUNIKASI PARALEL DAN PROGRAM APLIKASI DENGAN DELPHI 7
Nama NPM Jurusan Pembimbing
: Febrian Summahadi : 22110685 : Sistem Komputer : Yasman Rianto, SSi, MT
UNIVERSITAS GUNADARMA FAKULTAS ILMU KOMPUTER & TEKNOLOGI INFORMASI 2013
Latar Belakang Masalah Masalah yang diambil pada pembuatan alat ini dilihat dari sudut efektifitas dan efisienitas dari penggunaan perangkat elektronik pada ruangan dan sebagai implementasi daripada sistem berbasis komputer dan elektronika melalui suatu interface yang akan dibahas pada bab cara kerja alat. Jika dilihat pada kebanyakan ruang yang terdapat perangkat elektronik adalah perangkat tersebut dinyalakan sepanjang ruangan itu digunakan tetapi jarang sekali yang ingat atau dengan sengaja mematikan perangkat tersebut pada saat ruangan tersebut tidak lagi digunakan, ini tentunya akan menimbulkan pemborosan penggunaan listrik dan pekerjaan yang melelahkan bagi petugas yang berjaga yang menangani ruang tersebut sehingga ia harus mendatangi setiap ruangan yang ada untuk mematikan perangkat tersebut sehabis digunakan pada ruang tertentu.
Ruang Lingkup Masalah yang akan dibahas dalam makalah ini adalah antara lain tentang penggunaan port paralel DB25, penggunaan IC L293D sebagai pengendali perangkat elektronik, program interface dengan Delphi7 untuk “Pengendali Perangkat Elektronik Dalam Suatu Ruangan Dengan Komunikasi Paralel Dan Progam Aplikasi Dengan Delphi 7”.
Tujuan Tujuan penelitian ini adalah memeriksa daya kerja alat apakah dapat mengatasi perangkat secara terpusat, meneliti keefisienan dari alat pengendali perangkat untuk suatu ruangan ini jika dibandingkan dengan menggunakan seorang petugas yang bertugas untuk mematikan setiap perangkat secara manual di setiap ruangan serta menciptakan suatu sistem terpadu dan terkontrol dengan baik dalam sebuah ruang yang terpasang pengendali perangkat elektronik ini sekalipun jarak antara ruang dengan pengendalinya berjauhan.
Komponen yang digunakan Input
Proses
• Port Paralel DB25
• IC L293D (Sebagai IC Driver) • Transistor bc547 Output
• • •
Fan Lampu Buzzer
Tampilan Program Aplikasi
Syntax Program Aplikasi procedure TForm1.Button1Click(Sender: begin form2.show; end; procedure TForm1.Button2Click(Sender: begin form3.show; end; procedure TForm1.Button3Click(Sender: begin form4.show; end; procedure TForm1.Button4Click(Sender: begin form5.show; end; procedure TForm1.Button5Click(Sender: begin Application.Terminate; end; end.
TObject);
TObject);
TObject);
TObject);
TObject);
procedure TForm2.Button3Click(Sender: TObject); begin form1.show; form2.close; end; procedure TForm2.Timer1Timer(Sender: TObject); var J1,M1,D1,MD1:word; J2,M2,D2,MD2:word; begin DecodeTime(now,J1,M1,D1,MD1); DecodeTime(DateTimePicker1.Time,J2,M2,D2,MD2); if(J2=J1)and(M2=M1)and(D2=D1)then begin
BtnAktifkan.Click; logika:=(Out32($378,$00)); end end;
Syntax Program Aplikasi procedure TForm2.Button1Click(Sender: TObject); begin logika:=(Out32($378,$01)); end; procedure TForm2.Button2Click(Sender: TObject); begin logika:=(Out32($378,$00)); end; procedure TForm2.BtnAktifkanClick(Sender: TObject); begin if BtnAktifkan.Caption='Aktifkan Auto Stop'then begin Timer1.Enabled:=True; DateTimePicker1.Enabled:=False;
procedure TForm2.FormShow(Sender: TObject); begin DateTimePicker1.Time:=Now; Timer1.Enabled:=False end; procedure TForm2.BtnAktifkan1Click(Sender: TObject); begin if BtnAktifkan1.Caption='Aktifkan Auto Start'then begin Timer2.Enabled:=True; DateTimePicker1.Enabled:=False; BtnAktifkan1.Caption:='Batalkan Auto Start'; end else
BtnAktifkan.Caption:='Batalkan Auto Stop'; end else begin Timer1.Enabled:=False; DateTimePicker1.Enabled:=True; BtnAktifkan.Caption:='Aktifkan Auto Stop' end end;
begin Timer2.Enabled:=False; DateTimePicker1.Enabled:=True; BtnAktifkan1.Caption:='Aktifkan Auto Start' end end;
Blok Diagram
VCC
Input Penekanan Button Program (Bit-Bit Data)
Proses L293D (IC Driver)
Output Fan, Lampu, Buzzer
Rangkaian Secara Detail
Flowchart START
INISIALISASI 1
YA
Tampil Form 1
YA
Penekanan Button Di Form 1 YA
YA BUZZER
Tampil Form 2
2
TIDAK
YA LAMPU
Tampil Form 3
3
TIDAK
YA FAN
Tampil Form 4
4
TIDAK
YA SEMUA PERANGKAT
TIDAK
END
Tampil Form 5
5
Flowchart 2
3
Penekanan Button Pada Form 2
Penekanan Button Pada Form 3
YA
YA YA
YA
BUZZER MENYALA
START TIDAK
TIDAK YA
YA
STOP
BUZZER MATI TIDAK
STOP
WAKTU INPUT = WAKTU NYATA
TIMER
LAMPU MATI
TIDAK
YA YA
WAKTU INPUT = WAKTU NYATA TIDAK YA
TIMER 1
TIDAK
TIDAK YA WAKTU INPUT = WAKTU NYATA
TIMER 2
TIDAK
YA BUZZER MATI
TIDAK
LAMPU MATI
TIDAK YA
1
BACK TO MENU
WAKTU INPUT = WAKTU NYATA
TIMER 2 TIDAK
TIDAK YA
1
BACK TO MENU
4
5
Penekanan Button Pada Form 4
Penekanan Button Pada Form 5 YA
YA YA START
FAN MENYALA
START
TIDAK
YA
STOP
FAN MATI TIDAK
WAKTU INPUT = WAKTU NYATA
TIMER
TIDAK
YA WAKTU INPUT = WAKTU NYATA
TIMER 2 TIDAK
YA
TIDAK
YA
WAKTU INPUT = WAKTU NYATA
TIMER
YA
TIDAK
SEMUA PERANGKAT MATI
STOP
YA YA
TIDAK
YA FAN MATI
1
TIMER 2
YA BACK TO MENU
TIDAK
YA
TIDAK
TIDAK WAKTU INPUT = WAKTU NYATA
TIDAK YA
BACK TO MENU
SEMUA PERANGKAT MENYALA
YA
TIDAK YA
TIDAK
YA YA
TIDAK
YA
TIDAK
TIDAK
LAMPU MENYALA
START
1
SEMUA PERANGKAT MATI
Kesimpulan
Kesimpulan yang dapat diambil dari serangkaian kegiatan yang telah dilakukan dalam pembuatan alat “Pengendali Perangkat Elektronik Dalam Suatu Ruangan Dengan Komunikasi Paralel Dan Progam Aplikasi Dengan Delphi 7” adalah perangkat ini dapat memberikan kemudahan pengendalian perangkat elektronik dalam suatu ruangan agar lebih efisien dan efektif jika dibandingkan dengan mematikan atau menyalakannya dengan cara manual.
Saran Saran yang dapat diberikan penulis untuk perancangan alat serta program untuk alat “Pengendali Perangkat Elektronik Dalam Suatu Ruangan Dengan Komunikasi Paralel Dan Progam Aplikasi Dengan Delphi 7” adalah alat “Pengendali Perangkat Elektronik Dalam Suatu Ruangan Dengan Komunikasi Paralel Dan Progam Aplikasi Dengan Delphi 7” dapat dikembangkan lagi menjadi sesuatu yang lebih baik dan juga lebih bervariatif untuk fitur-fitur yang terdapat pada program maupun alat. Untuk pengembangannya, perlu diperdalam lagi materi tentang bahasa pemrograman dengan Delphi.
SEKIAN TERIMA KASIH