Percabangan Case Pada Combo Box – Delphi 7

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 pada Combo Box. Apa beda percabangan case dengan if, jika percabangan if lebih mengedepankan pernyataan statement yang jelas kondisinya pada Fungsi Case 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 termasuk tipe 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 desktop temen 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 11062142 dengan 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     combo_nim.Items.Add('11110216');   combo_nim.Items.Add('11110219');   combo_nim.Items.Add('11062142') ;   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:edit_nama.Text:='Radjanta Ashari';     1:edit_nama.Text:='Eko Wardoyo';     2:edit_nama.Text:='Eriyanah 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 Nim dimana 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 fungsi Case.

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.klik disini