Contoh program percabangan

Program ini berfungsi saat kita mencari nama ibukota suatu Negara, tinggal kita klik saja nama Negara yang tertera di list program lalu kita lihat bagian kiri pada program akan tampil nama Negara dan ibukota negaranya. Program yang saya buat ini hanya menampilkan beberapa list Negara saja, apabila anda ingin mempunyai banyak list silahkan edit pada list perintah program. Apabila anda belum terlalu mahir silahkan baca di salah satu postingan yang menampilkan pembelajaran untuk program ini :) Tampilan program : Komponen/Objek yang digunakan dan pengaturan


propertiesnya adalah :

List perintah program : procedure TForm1. LsNegaraClick (Sender: TObject); Begin LNegara.Caption := LsNegara.Items[LsNegara.ItemIndex]; case LsNegara.ItemIndex of 0 : LIbukota.Caption := 'Jakarta'; 1 : LIbukota.Caption := 'Kuala Lumpur'; 2 : LIbukota.Caption := 'Singapura'; 3 : LIbukota.Caption := 'Manila'; 4 : LIbukota.Caption := 'Bangkok'; 5 : LIbukota.Caption := 'Bandar Seri Begawan'; 6 : LIbukota.Caption := 'Hanoi'; 7 : LIbukota.Caption := 'Rangoon/Yangon'; 8 : LIbukota.Caption := 'Vientiane'; 9 : LIbukota.Caption := 'Phnompenh'; 10 : LIbukota.Caption := 'Dilli'; end; procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; end; Program ini saya pelajari saat menempuh materi kuliah antar muka di semester 4 jurusan teknik elektro universitas negeri malang. Yang di bombing oleh bapak Ilham Ari Elbaith Zaeni Karena ilmu yang kita sampaikan tidak akan pernah hilang :)