Pencabangan ComboBox dan Edit di Delphi 7
Oleh
chmood
Salam Blog,Family T.I Sniper Langsung saja saya akan berbagi ilmu tentang cara membuat Percabangan atau apalah menurut kalian. saya akan mengambil tema program Cek Harga Laptop.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9hDwaPssHpETuP-Ag2Ck62oJEetCxud0_jH32IBIfU4pcxR7wpL0B9bK-jkIR3kg7BYfJgDEj1bq2SnEfCREdKmstWYXpvBPQ8vY4glcSmWYbzlO1YpXEvtrOU3617Fnbjd0o_jjxwANm/s1600-rw/chl+dpl.png)
pertama-tama, Buka dulu Delphi 7 anda terlebih dahulu. bisa buka di bagian depan dengan icon Delphi 7 atau di Start menu.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_IvVZxkwxBfTO-z5gWVJ415-llvgH9LneUeOjsVX_xAJjz0lujBWFsFevCU_HVage0cSBAv693yUQG_jfeSn_-xjeDtAMc6jOG9J_VcesYos_Eym4hyphenhyphenfAldvvHgSPtRAhmZvQoA08PuYl/s1600-rw/dlpicn.png)
Kedua, Setelah masuk ke dalam delphi lalu klik panel kalo mau dikasih kayak judulnya. disini saya ambil contoh Cek Harga Laptop.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3B7ZUjQ_RbxxqcO9r9Is47HAgTTTqI8Xw7acgwxmyBj26NkGs1ODFnCmae49PYqU-UQ_khmAXWgWjvnKG48cW80IZ4LrjnqPmZ1mb_m5SYM9cg5bGhWsiESsRIxKy5vNIDPWb2XIWNSfF/s1600-rw/panel+dpl.png)
Selanjutnya buat Label dan ComboBox nya Seperti dibawah ini :
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJ49u2APdy_EfRIAb7UR1KBWsGlRcdTGC2Qt8x41Qt17WehVs-fzLc5kPtC1xXx3uvaLKYPDfGyNjJFD-t3CF6G8x-pW8Oi0w_-6q8KYEi38gGbBtI4jBHNdXfbwNwJEkxZE4ml973u7lC/s640-rw/dpk+ss.png)
Ketiga, menentukan list ComboBoxnya. Klik di ComboBox pertama lalu menuju di kanan layar atau kiri kita dibagian properti cari Items, Klik bagian "....".
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj37LZ0dXIdqkBoxPSybZPFuuIE6CzQ0AS0ThNNIYQ6KAOx8dXLsLdQMvTXnon8BUiLJka5428d620f1c1R8UKjLwfO5XND5LhJA_9LOsbJ24nnRwuImGmiiUuWlVZ1FxOKaskeSrH-Enyl/s1600-rw/dpk+proprt.png)
Lalu setelah muncul halaman berikutnya ketikan merek laptopnya.kalo sudah selesai tekan OK.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEht2NSxzYQ4bVToBzgygrHD1qiCQdqZNYTbalfIB1i3GSw3dNTop7z3_T8bK7y49xo_xpjWhR6S-q9vu4nWiAI6IZHWENVuevDQR9m35cFSrY5y7hG09k5BdF5V3M3A_8UaSbhS91IAr4Bi/s1600-rw/line.png)
Selanjutnya, klik 2 kali dibagian ComboBox ke 2 nanti akan muncul bagian Unitnya. Bagian ini berfungsi untuk membuat Code untuk menghubungkan ComboBox1 ke ComboBox2.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhish9GU-akEam8kdJ5I_eq4MnQr6gI-TYlcjJqikEsQmJofiuc8hmrdKR5luAFl6I35yo0SwYAjU0vpl9dfdL3aFPhFYTPuUExqTvX40KCGaHCNzp_YI8K9Q1C8KLo84FQfLafTUWTi1tV/s640-rw/code+CB.png)
Pernjelasanya: Coding memakai If-Else. if ([ComboBox pertama].[ItemIndex] = 0) then, lalu dibagian begin (ComboBox2.Items.Add('Nama Type Laptop');) bertujuan untuk menampilkan Daftar item yg muncul di ComboBox yang ke2. trus kenapa harus memakai (ComboBox.Clear;) karena agar kalo kita ubah lagi ComboBox yang pertama maka secara otomatis akan dibersihkan lagi yang ComboBox ke2 agar tidak bertumpuk.
Selanjutnya untuk menentukan harganya, Klik dibagian ComboBox ke 2 lalu akan muncul Unitnya lalu ketikkan seperti dibawah ini.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjcZiXQZPpL0EgGhXgKcKoiI3O3f2NbPQdrC072Ncwo0m7fYdcmq3lXrmQ4laZJQa0m3cuHznH5onYxjyyWjOlIU2uGOsQLaZXX3fb_hRdvjIoYECQMuk-6s9sxpHNmyE0STadoauEh1-ew/s640-rw/code+CB+2.png)
Penjelasan : Codenya memakai IF-ELSE jg, if (ComboBox2.Text = 'Nama Mereknya') then. Sepertinya tidak perlu saya jelasin pasti sudah tau fungsinya seperti indek hanya saja berbasis text.
Dibawah if-then (Edit1.Text:='Harga Barang';) berfungsi untuk menentukan target text dan membuat harga barang.
Dan jalankan Program dengan menekan tombol Run. dan ini hasilnya.
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9hDwaPssHpETuP-Ag2Ck62oJEetCxud0_jH32IBIfU4pcxR7wpL0B9bK-jkIR3kg7BYfJgDEj1bq2SnEfCREdKmstWYXpvBPQ8vY4glcSmWYbzlO1YpXEvtrOU3617Fnbjd0o_jjxwANm/s1600-rw/chl+dpl.png)
Semoga Bermanfaat.
Category
Komentar