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