Assalamualaikum Temen Temen Semua, Salam Luar Biasa untuk pagi ini. Terbangun dari Tidur memberikan kesempatan untuk membuat materi Blog ini lagi *hehehehe. Kalau Kemarin Kemarin Kita Sudah Belajar Fungsi Percabangan IF Pada Borland Delphi 7 kali ini kita pakai percabangan versi lainnya yakni Menggunakan Percabangan Case Of.
Namun untuk saat ini saya mengkhususkan untuk percabangan Case padaCombo Box. Apa beda percabangan case dengan if, jika percabangan if lebih mengedepankan pernyataan statement yang jelas kondisinya pada FungsiCase kita memberikan percabangan berdasarkan Kriteria Integer, Artinya Fungsi Case Hanya Menerima untuk kondisi kondisi yang dimana menggunakan tipe data Interger atau aritmatika.
*hmmmm kita belum bahas Tipe Data dalam delphi ya *hihihi. Okelah Nanti kita akan bahas, nah untuk materi ini kita belum akan menggunakan fungsi variable integer pada Fungsi Case ini, Kenapa ?? karena kita akan membuat percabangan case pada combo box dimana sudah tersedia jenis data integer pada properties namenya. Monggo Disimak.
Bagaimana Combo Box punya tipe data Integer padahalkan kita kalau mengisi Itemsnya selalu menggunakan Kata kata /(^o^’), Tidak lain dan tidak bukan ialah karena kita menggunakan properties items index atau urutan dari isi combo box tersebut, karena ia berbentuk aritmatik dan termasuktipe data integer jadi bisa kita gunakan fungsi Case Of. *hmmmm Bingung Kan, Ayo langsung Praktek Aja.
Buat Form Design Sebagai berikut :
Ubah Properties Namenya Sebagai Berikut :
Untuk Properties Frm_materi6 saya menambahkan penggantian pada Position menjadi Po Desktop Center yang tujuannya pada saat frm_materi6 dijalankan maka akan muncul di tengah layar desktoptemen temen semua, jadi terlihat lebih rapih dan terposisi dengan baik.
Berikut Alur Logika nya :
- Pada Saat Program Dijalankan Maka Combo Box Akan Terisi NIM 11110216, 11110219, dan 11062142dengan menggunakan code program.
- Pada Saat Combo Box Di Klik dan dipilih maka akan terkoneksi dengan fungsi Case dimana jika ia urutan dengan index sebagai berikut :
0 : maka edit_nama akan muncul teks : Radjanta Ashari
1 : maka edit_nama akan muncul teks : Eko Wardoyo
2 : maka edit_nama akan muncul teks : Eriyanah Caswati
- Jika Button Keluar Di Klik maka akan keluar dari program
————————————————————————————————————————————————————————-
Nah Berikut Code Programnya :
1
2
3
4
5
6
7
8
| procedure Tfrm_materi6.FormCreate(Sender: TObject);begin <span class="skimlinks-unlinked">combo_nim.Items.Add('11110216</span>'); <span class="skimlinks-unlinked">combo_nim.Items.Add('11110219</span>'); <span class="skimlinks-unlinked">combo_nim.Items.Add('11062142</span>') ;end; |
Pada Saat Program Dijalankan maka combo box terisi beberapa Items dari NIM :
1
2
3
4
5
6
7
8
9
10
| procedure Tfrm_materi6.combo_nimClick(Sender: TObject);begin case combo_nim.ItemIndex of 0:<span class="skimlinks-unlinked">edit_nama.Text:='Radjanta</span> Ashari'; 1:<span class="skimlinks-unlinked">edit_nama.Text:='Eko</span> Wardoyo'; 2:<span class="skimlinks-unlinked">edit_nama.Text:='Eriyanah</span> Caswati'; end;end; |
Pada Saat Combo_Nim di klik maka akan menjalankan percabangan Fungsi Case combo_nim.itemindex of : dimana itemindex merupakan penamaan dari urutan isian Combo Box Nimdimana urutan pertama akan diawali dengan index 0, jadi urutan paling atas memiliki index 0. nah jika index yang dipilih adalah 0 maka akan muncul teks nama yang sudah kita atur sebelumnya. untuk fungsi percabangan Case Of maka kita harus diakhir / ditutup dengan perintah End; untuk mengakhiri fungsiCase.
1
2
3
4
| procedure Tfrm_materi6.button_keluarClick(Sender: TObject);begin</p><p style="text-align: justify;">close;</p><p style="text-align: justify;">end; |
Pada Saat Button Keluar Di Klik Maka akan keluar dari program. Berikut Tampilan Hasil Form Setelah Dijalankan :
Combo Terisi pada saat program dijalankan
Funsi Case dijalankan dengan index dari combo Box
Nah Mudah kan Temen Temen Semua, Belajar Delphi Memang Mudah Kok *hehehe. Siapa ada kemauman pasti ada jalan yang akan ditempuh untuk menggapainya. Nah buat temen temen yang mau mencoba latihan dari materi ini bisa download materi percabangan case pada combo box Delphi 7 di link dibawah ini. untuk memperlancar materi yang sudah kita sampaikan dan memberikan beberapa materi tambahan yang bisa temen temen coba, jika ada kesulitan dalam pengerjaan bisa langsung lihat dari code program yang juga sudah saya siapkan dalam file tersebut.
Nah itu dulu yang bisa saya share pada kesempatan pagi ini, mudah mudahan kedepan bisa berbagi lagi di blog ini. Kutak Kutik bermanfaat buat kita bersama. Nah See You Next Lesson ya Temen Temen Semua,Salam Luar Biasa.
Eko Wardoyo
