Pencabangan ComboBox dan Edit di Delphi 7
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.
pertama-tama, Buka dulu Delphi 7 anda terlebih dahulu. bisa buka di bagian depan dengan icon Delphi 7 atau di Start menu.
Kedua, Setelah masuk ke dalam delphi lalu klik panel kalo mau dikasih kayak judulnya. disini saya ambil contoh Cek Harga Laptop.
Selanjutnya buat Label dan ComboBox nya Seperti dibawah ini :
Ketiga, menentukan list ComboBoxnya. Klik di ComboBox pertama lalu menuju di kanan layar atau kiri kita dibagian properti cari Items, Klik bagian "....".
Lalu setelah muncul halaman berikutnya ketikan merek laptopnya.kalo sudah selesai tekan OK.
Selanjutnya, klik 2 kali dibagian ComboBox ke 2 nanti akan muncul bagian Unitnya. Bagian ini berfungsi untuk membuat Code untuk menghubungkan ComboBox1 ke ComboBox2.
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.
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.
Semoga Bermanfaat.
Disclaimer: gambar, artikel ataupun video yang ada di web ini terkadang berasal dari berbagai sumber media lain. Hak Cipta sepenuhnya dipegang oleh sumber tersebut. Jika ada masalah terkait hal ini, Anda dapat menghubungi kami di halaman ini.