modul 4 Percabangan IF Pada Delphi 7

Assalamualaikum Temen Temen Semua, Salam Luar Biasa Untuk Hari ini. Hari ini kita share Belajar Materi Delphi 7 lagi nih yang akan kita bahas kali ini ialah Mengenal Fungsi Percabangan IF pada Delphi 7.

Apa Sih Percabangan IF ????, Percabangan IF ialah kondisi dimana kita memberikan nilai yang berbeda pada output Delphi sesuai dengan kriteria yang sudah kita Buat Sebelumnya. jadi Semacam Kondisi dimana jika terjadi kondisi satu maka akan muncul statement satu namun jika kondisi dua akan muncul kondisi dua, begitu seterusnya. Nah Ayo Sama Sama kita simak Temen Temen.

Pertama Tama Kita Buat Tampilan Form Design Sebagai Berikut :

Ubahlah Properties Name Tiap Object Sebagai Berikut :

Nah Berikut Alur Algoritma Programnya :

- Pada Saat Program Di Jalankan Maka Combo Box Akan Terisi 3 Items sebagai berikut : Maw01-10, Mel02-20, Ros03-30.

- Pada Saat Combo_kode dipilih Maw01-10 maka akan Tampil Teks :

o Nama Kamar : Kamar Mawar

o Lantai Kamar : Lantai 1

o No Kamar : No 10

- Pada Saat Combo_kode dipilih Mel02-20 maka akan Tampil Teks :

o Nama Kamar : Kamar Mawar

o Lantai Kamar : Lantai 2

o No Kamar : No 20

- Pada Saat Combo_kode dipilih Ros03-30 makan akan tampil Teks :

o Nama Kamar : Kamar Rose

o Lantai Kamar : Lantai 3

o No Kamar : No 30

- Saat Button_keluar di Klik Maka akan Keluar dari Program.

Berikut ini Lict Code Programnya :

1 2 3 4 5 6 7 8

procedure Tfrm_materi5.FormCreate(Sender: TObject); begin     combo_kode.Items.Add('Maw01-10');   combo_kode.Items.Add('Mel02-20');   combo_kode.Items.Add('Ros03-30');   end;

pada saat program jalan maka combo_kode terisi 3 items :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure Tfrm_materi5.combo_kodeClick(Sender: TObject); begin     if combo_kode.Text='Maw01-10' then     begin       edit_kamar.Text:='Kamar Mawar';       edit_lantai.Text:='Lantai 1';       edit_no.Text:='No 10';     end   else if combo_kode.Text='Mel02-20' then     begin       edit_kamar.Text:='Kamar Melati';       edit_lantai.Text:='Lantai 2';       edit_no.Text:='No 20';     end   else     begin       edit_kamar.Text:='Kamar Rose';       edit_lantai.Text:='Lantai 3';       edit_no.Text:='No 30';     end; end;

digunakan pada event onclick pada combo kode dimaksudkan kondisi berjalan pada saat combo kode di klik. penambahan begin setelah if agar bisa menggunakan 2 tampilan keluaran pada satu kondisi if. di else yang terakhir tidak ditambahkan if dikarenakan untuk penyederhanaan code dimana selain dari Mar01-10 dan Mel02-20 maka akan tampil Statement terakhir.

1 2 3 4 5 6

procedure Tfrm_materi5.button_keluarClick(Sender: TObject); begin     close;   end;

Tombor Keluar untuk Keluar dari Program. Berikut untuk Tampilan Hasil Programnya :

pada Saat Tampil Combo Box Terisi 3 Items dengan Menggunakan Code Program. Kemudian Setelah Pemilihan Kombo Box Maka tampil pada nama, lantai dan no kamar sebagai berikut :

Tampilan Menyesuaikan dengan Kondisi Teks Combo, dengan Code Percabangan If yang sudah kita buat tadi. Nah Mudah kan Materi Kali ini, Yoiiii betul banget nich gak Ada yang sulit kok kalau kita mau mencoba dan belajar. Jadi Kita mesti giat dan semangat dalam belajar ya temen temen semua. Untuk Mereview Materi Kita Kali ini temen temen bisa download latihan praktek Delphi untuk materi yang sudah kita bahal kali ini “Percabangan IF Pada Delphi 7” pada link download dibawah ini. Jika ada kesulitan pada praktek latihannya bisa langsung saja liat coding program latihannya yang sudah dilampirkan Pula.

Download Latihan 5 – Menggunakan Percabangan IF Pada Delphi 7 pdf

Download Project Latihan 5

Nah Mungkin ini dulu Nich yang bisa saya share untuk kesempatan kali ini. Mudah Mudahan Kedepan Bisa Share Berbagai Materi Materi Pemberlajaran Delphi 7. Semoga Apa yang Tertulis disini bisa berguna buat temen temen semua termasuk untuk diri saya sendiri. See You Next Lesson, Salam Luar Biasa.