MODUL PRAKTIKUM PEMROGRAMMAN VISUAL

Disusun oleh Tim Asisten Praktikum PEMPROGRAMAN VISUAL

Teknik Informatika Fakultas Sains dan Teknologi UIN Sunan Kalijaga Yogyakarta 2012

FORM DAN OBJEK DALAM FORM 1. Komponen/Objek dalam form.

Label

Edit

Memo

Button

CheckBox

ListBox

ComboBox

ScrollBar

2. Langkah- langkah membuat aplikasi sederhana dengan form dan komponen 1) Simpan projek: klik File -> Save All. 2) Buat Folder untuk menyimpan project. 3) File name unit1: u_main(*.pas) sedangkan projeck: P_Pert4(*.dpr). 3. Buatlah tampilan seperti dibawah ini.

ListBox ScrollBar

4. Ubah komponen sesuai petunjuk berikut. Komponen Edit1 Edit2 Combobox1

Property Teks Teks Teks Items

Listbox1

Items

Value Kosongkan/hapus Kosongkan/hapus Jenis Kelamin Klik tanda(...) isikan Laki-laki dan perempuan. Klik tanda(...) isikan

Checkbox1 Checkbox2 Checkbox3 Checkbox4

Caption Caption Caption Caption

Memo1

Lines

Button1 Button2 Button3

Caption Caption Caption

Islam,Kristen,Katolik,Hindu,Budha, Konghuchu . Pascal Bahasa C Java PHP Klik tanda(...) lalu hapus tulisan yang ada di dalamnya. Proses Reset Close

5. Double klik scrollbar dan isikan kode berikut

6. Double klik button Proses dan isikan kode berikut //menampilkan output di memo. Memo1.Lines.Add('Nama: '+Edit1.Text);//memasukan nama ke memo Memo1.Lines.Add('Jenis Kelamin: '+ComboBox1.Text);//memasukan items dari combobox Memo1.Lines.Add('Usia: '+Edit2.Text); Memo1.Lines.Add('Agama: '); //memindahkan output listbox terpilih ke memo case ListBox1.ItemIndex of 0:Memo1.Lines.Add('Islam'); 1:Memo1.Lines.Add('Kristen'); 2:Memo1.Lines.Add('Katolik'); 3:Memo1.Lines.Add('Hindu'); 4:Memo1.Lines.Add('Budha'); 5:Memo1.Lines.Add('Kong Hu Cu '); end; Memo1.Lines.Add('Bahasa Yang Dikuasai: '); //memindahkan output checkbox terpilih ke memo if CheckBox1.Checked then Memo1.Lines.Add('Pascal'); if CheckBox2.Checked then Memo1.Lines.Add('Bahasa C'); if CheckBox3.Checked then Memo1.Lines.Add('Java');

if CheckBox4.Checked then Memo1.Lines.Add('PHP'); //mengosongkan inputan agar kembali seperti semula Edit1.Clear;//mengosongkan inputan nama ComboBox1.Text:=' ';//mengosongkan inputan jenis kelamin ListBox1.Refresh; CheckBox1.State:=cbUnchecked; CheckBox2.State:=cbUnchecked; CheckBox3.State:=cbUnchecked; CheckBox4.State:=cbUnchecked; ScrollBar1.Position:=0;//mengembalikan posisi semula scrollbar. 7. Double klik button Reset dan ketikan kode berikut.

8. Double klik button Close dan ketikan kode berikut.

Jika sudah jalankan program.

Soal Tambahan jika sudah slesai. 1. Buatlah pesan dalam button proses jika user lupa memasukan nama atau mengosongi nama (gunakan showmessage). 2. Buatlah pesan konfirmasi dalam button reset seperti pada button close.

Lanjut kepercobaan 2. 1. Seperti biasa kita buat aplikasi baru dengan cara: a. Klik File->New->Application. b. Simpan Projek : File->Save All. c. Buat Folder tempat menyimpan project. d. Simpan dengan nama Unit1:U_main(*.pas) dan Project:P_Pe rcob2(*.dpr). 2. Buatlah tampilan seperti dibawah ini. ListBox

3. Ubah komponen sesuai petunjuk berikut. Komponen Combobox1

Property Teks Items

ListBox1

Items

CheckBox1 CheckBox2 CheckBox3 GroupBox1 Memo1

Caption Caption Caption Caption Lines

Value Kosongi/hapus Klik tanda(...) lalu isikan Coba Delphi,Komponen Memo,ListBox 3Item,CheckBox 3State. Klik tanda(...) isikan MemoPutih,MemoBiru, MemoKuning Teks warna merah Teks Miring Teks Tebal Pilihan. Klik tanda(...) hapus/kosongkan teks di dalamnya.

Button1

Caption

Isi Memo

Button2 Button3

Caption Caption

UbahFont Keluar

4. Untuk Button1/ IsiMemo Ketikan code berikut.

5. Untuk Button2/UbahFont ketikan code berikut.

6. Untuk Button3/keluar ketikan code berikut.

7. Jalankan Program.

By:[email protected]

Selamat Mencoba