Kata Pengantar.pdf

KATA PENGANTAR

Puji dan syukur saya ucapkan kepada Tuhan Yang Maha Esa, karena hanya berkat dan pertolongan-Nya, saya dapat menyusun makalah ini.saya berharap makalah ini dapat menambah pengetahuan mahasiswa-mahasiswa Universitas Putra Indonesia “YPTK” Padang dan masyarakat umum lainnya, adapun makalah saya ini berjudul”Cara Membuat Animasi LED menggunakan Button, Checkbox dan Combobox”.Saya menyadari bahwasanya makalah ini masih terdapat banyak kekurangan, saya sangat mengharapkan kritik dan saran yang membangun dari semua pihak untuk menyempurnakan makalah ini. Tersusunnya makalah ini tentunya tidak lepas dari peran serta berbagai pihak yang telah memberikan bantuan secara materil dan spiritual, baik secara langsung maupun tidak langsung. Oleh karena itu saya menghaturkan rasa terima kasih yang sebesar-besarnya kepada semua pihak yang membantu dalam pembuatan makalah ini. Semoga tuhan yang maha pengasih dan penyayang membalas budi baik yang tulus dan iklas kepada semua pihak, amin.

Padang, 24-Oktober-2018 Hormat Saya,

Penulis

DAFTAR ISI BAB I PENDAHULUAN ..................................................................................................................i Latar belakang masalah................................................................................................................i.1 Tujuan penulisan ..........................................................................................................................i.2 Mamfaat penulisan .......................................................................................................................i.3 Landasan teori ..............................................................................................................................i.4 Rumusan masalah ........................................................................................................................i.5 BAB II PEMBAHASAN....................................................................................................................ii Cara menggunakan tombol button pada program delphi .............................................................ii.1 Cara menggunakan tombol checkbox pada program delphi ........................................................ii.2 Cara menggunakan tombol combobox pada program delphi.......................................................ii.3 Codding yang digunakan untuk animasi LED pada tombol button .............................................ii.4 Codding uang digunakan untuk animasi pada tombol checkbox .................................................ii.5 Codding yang digunakan untuk animasi pada tombol combobox ...............................................ii.6 BAB III PENUTUP ............................................................................................................................iii Kesimpulan ..................................................................................................................................iii.1 Saran ............................................................................................................................................iii.2 DAFTAR PUSTAKA.........................................................................................................................iv

BAB I PENDAHULUAN

i.1 Latar Belakang Masalah dalam era milenials 4.0 seperti saat sekarang ini hampir semua kegiatan dan alat penunjang kehidupan di bentuk secara otomatis. berdasarkan perkembangan teknologi, banyak cara yang dilakukan manusia untuk mempermudah pekerjaan mereka agar dapat mempersingkat waktu dan melakukah hal lain dengan waktu yang tersisa, dan berdsarkan perkembangan teknologi manusia banyak menciptakan program baru a. Tujuan penulisan Memenuhu tugas dari dosen mata kuliah algo dan pemrograman delphi lanjutan.

b. Manfaat penulisan Agar materi ini dapat dipahami atau dimengerti oleh mahasiswa dan pembaca umum lainnya. c. Landasan teori Program delphi adalah sebuah IDE compiler untuk bahasa pemrograman pascal dan lingkungan pengembangan perangkat lunak yang digunakan untuk merancang suatu aplikasi program.

d. Rumusan masalah -

Apa fungsi tombol button pada delphi?

-

Apa fungsi tombol checkbox pada delphi?

-

Apa fungsi tombol combobox pada delphi?

-

Apa codding yang digunakan untuk membuat animasi pada tombol button, checkbox, dan combobox pada progrsm delphi?

BAB II PEMBAHASAN ii.1 fungsi tombol button pada program delphi

tombol button adalah tombol yang digunakan untuk satu atau dua perintah program yang akan dijalankan pada program delphi. ii.2 fungsi tombol checkbox pada program delphi checkbox digunakan untuk memilih satu atau beberapa pilihan secara bersamaan.

ii.3 fungsi tombol combobox pada prograam delphi combobox digunakan untuk menampilkan beberapa pilihan secara dropdownlist.

-

Codding yang digunakan untuk membuat animasi pada button,checkbox, dan combobox pada program delphi

1. Designe untuk program delphi menjalankan animasi LED menggunakan button, checkbox, dan combobox.

2. Codding untuk menjalankan animasi LED unit Unit1; interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; ComboBox1: TComboBox; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject);

procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); procedure Button10Click(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure CheckBox1Click(Sender: TObject); procedure Button11Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation

{$R *.dfm} //======================================================================= ====== function PortIn(Port:Word):Byte;stdcall;external'io.dll'; procedure PortOut(Port:Word;Data:Byte); stdcall; external'io.dll'; Procedure delay(lama:dword); var temp:dword;

begin temp:=gettickcount; repeat application.processMessages; until(gettickcount-temp)>=lama; end; //=====================JANGAN DIHAPUS================================ //================================================================== //=====================LISTING PROGRAM BERADA DIBAWAH INI=============== procedure TForm1.Button1Click(Sender: TObject); begin PortOut($378,$03);delay(1000); end; procedure TForm1.Button2Click(Sender: TObject); begin PortOut($378,$0c);delay(1000); end; procedure TForm1.Button3Click(Sender: TObject); begin PortOut($378,$30);delay(1000); end; procedure TForm1.Button4Click(Sender: TObject); begin PortOut($378,$c0);delay(1000);

end; procedure TForm1.Button5Click(Sender: TObject); begin PortOut($378,$0D);delay(1000); end; procedure TForm1.Button6Click(Sender: TObject); begin PortOut($378,$38);delay(1000); end; procedure TForm1.Button7Click(Sender: TObject); begin PortOut($378,$c4);delay(1000); end; procedure TForm1.Button8Click(Sender: TObject); begin PortOut($378,$07);delay(1000); end; A. ANIMASI BUTTON 1 procedure TForm1.Button9Click(Sender: TObject); begin PortOut($378,$01);delay(1000); PortOut($378,$02);delay(1000); PortOut($378,$04);delay(1000); PortOut($378,$08);delay(1000);

PortOut($378,$10);delay(1000); PortOut($378,$20);delay(1000); PortOut($378,$40);delay(1000); PortOut($378,$80);delay(1000); end; B. ANIMASI BUTTON 2 procedure TForm1.Button10Click(Sender: TObject); begin PortOut($378,$80);delay(1000); portout($378,$40);Delay(500); PortOut($378,$20);delay(1000); portout($378,$10);Delay(500); PortOut($378,$08);delay(1000); portout($378,$04);Delay(500); PortOut($378,$02);delay(1000); portout($378,$01);Delay(500); end; C. ANIMASI BUTTON 3 procedure TForm1.Button11Click(Sender: TObject); begin portout($378,$01);Delay(500); portout($378,$04);Delay(500); portout($378,$10);Delay(500); portout($378,$40);Delay(500);

portout($378,$02);Delay(500); portout($378,$08);Delay(500); portout($378,$20);Delay(500); portout($378,$80);Delay(500); end;

D. ANIMASI 4 COMBOBOX procedure TForm1.ComboBox1Change(Sender: TObject); begin if(combobox1.text)='Animasi 1' then begin portout($378,$ff);Delay(1000); PortOut($378,$01);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$0c);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$30);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$c0);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$0D);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$38);delay(1000); portout($378,$ff);Delay(500);

PortOut($378,$c4);delay(1000); portout($378,$ff);Delay(500); PortOut($378,$07);delay(1000); portout($378,$ff);Delay(500); end else if(combobox1.text)='Animasi 2' then begin portout($378,$00);Delay(1000); end end;

E. ANIMASI 5 CHECKBOX procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked = true then begin portout($378,$ff);Delay(500); portout($378,$00);Delay(500); end end; procedure TForm1.Button11Click(Sender: TObject); begin portout($378,$01);Delay(500); portout($378,$04);Delay(500);

portout($378,$10);Delay(500); portout($378,$40);Delay(500); portout($378,$02);Delay(500); portout($378,$08);Delay(500); portout($378,$20);Delay(500); portout($378,$80);Delay(500); end; end.

3. Program LED yang running

BAB III PENUTUP

A. Kesimpulan Delphi adalah suatu program pascal untuk membuat aplikasi consol, desktop, dan web.delphi dapat mempermudah kita dalam membuat perangkat lunak dengan cara membuat coddingcodding yang dapat menjalankan berbagai macam program yang dibutuhkan oleh programmer, salah satunya seperti contoh diatas,delphi digunakan untuk mengontrol running LED. Dari sisi bahasa delphi merupakan salah stu bahasa pemrograman tingkat tinggi sehingga relatif lebih mudah dipahami dan lebih komunikatif. Dari sisi fasilitas, delphi menyediakan fasilitas yang cukup lengkap.dari segi tampilan program delphi mampu membuat program yang cantik dan menarik.

B. Saran Dasar pemrograman akan membuat anak bangsa lebih kreatif dalam era teknologi dan dapat meningkatkan pengetahuan dalam bahasa pemrograman lebih banyak dan lebih luas. Semoga apa yang saya sajikan dapat diambil inti sarinya bagi pendengar dan pembaca dan dapat dijadikan pedoman dalam pembelajaran.

DAFTAR PUSTAKA -

Infodaripitra.blospot.com

-

Sukaoset.blogspot.com