Pertemuan 2 Delphi (Percabangan : If, If Else)-Studi Kasus : Aplikasi Toko Buku

Perintah if digunakan untuk menentukan perintah mana yang akan dikerjakan ketika suatu kondisi terjadi.

Bentuk baku perintah if adalah sebagai berikut :

Perintah if digunakan untuk menentukan perintah mana yang akan dikerjakan ketika suatu kondisi terjadi.

Bentuk baku perintah if adalah sebagai berikut :

if (kondisi1) then

perintah

else

if (kondisi2)

begin

perintah;

perintah;

end

else

begin

perintah;

perintah;

end;

CAT :

Kondisi 1, Kondisi 2 adalah suatu pernyataan yang menghasilkan kondisi benar (true) atau salah(false).

Contoh kondisi :

if (a>=5) then

begin

perintah;

end

else

if (a<5)then

begin

perintah;

end;

Aturan-aturan penulisan program yang menggunakan perintah IF :

1. Jika suatu kondisi tercapai (bernilai benar), maka If hanya mengenal satu perintah berikutnya.

2. Kalau suatu perintah if ingin mengerjakan lebih dari 1 perintah, maka gunakan perintah Begin dan End;

3. Sebelum Else jangan memakai titik koma. Karena titik koma merupakan tanda akhir dari suatu perintah.

Operator-operator boolean :

Simbol	Keterangan	Contoh
=	Sama dengan	(a = 7)
>=	Lebih besar sama dengan	(a >= 7)
>	Lebih besar	(a > 7)
<=	Lebih kecil sama dengan	(a <= 7)
<	Lebih kecil	(a < 7)
<>	Tidak sama dengan	(a <> 7)
Not	Tidak / Invers	Not (a<>7)
And	Operator dan	(a = 7)And(b =5)
Or	Operator	(a = 7) Or (b =5)

Komponen RadioButton ( )

Radiobutton adalah suatu komponen yang digunakan untuk pemilihan suatu kondisi dari beberapa kondisi yang ada. Kondisi yang bisa dipilih hanya ada 1 buah.

Properti yang menandakan bahwa suatu radiobutton dipilih adalah properti Checked. Jika properti checked suatu Radiobutton berisi true, maka berarti Radiobutton tersebut dipilih.

Komponen Radiogroup ()

Radiogroup adalah suatu komponen yang digunakan untuk memilih sebuah option dari beberapa pilihan (sifatnya seperti radiobutton) hanya dengan satu buah komponen radiogroup saja.

Tabel Properti dari RadioGroup

Properti	Keterangan
Columns	Pilihan mau dibuat berapa kolom
Items	Daftar pilihan yang akan ditampilkan
ItemIndex	Item ke berapa yang dipilih. Jika ItemIndex berisi 0 maka yang dipilih adalah pilihan ke-1, jika ItemIndex berisi 1 maka yang dipilih adalah pilihan ke-2 dan seterusnya. Jika ItemIndex berisi dengan –1 maka berarti tidak ada yang dipilih.

Komponen Check Box ()

CheckBox () adalah komponen untuk pemilihan option dimana option yang dipilih bisa lebih dari satu buah.

Properti-properti CheckBox

Property	Keterangan
Caption	Tulisan yang ada di Checkbox
Checked	Jika berisi true berarti checkbox yang bersangkutan dipilih.

Penerapan pada Program Pembayaran Toko Buku:

Program yang akan di buat adalah program yang digunakan untuk menghitung jumlah pembayaran di toko buku Shinchan. Harga ditentukan dari jenis buku (2 jenis) yang kemudian ditentukan juga dari jenis tersebut judul bukunya yang memiliki harga berbeda. Selanjutnya dikalikan dengan jumlah buku yang di beli.

SPESIFIKASI KEBUTUHAN KONTROL KOMPONEN

TComboBox	Hal Tab Standard	1 Buah
TradioButton	Hal Tab Standard	1 Buah
TradioButton	Hal Tab Standard	3 Buah
TgroupBox	Hal Tab Standard	1 Buah
Tlabel	Hal Tab Standard	4 Buah
TEdit	Hal Tab Standard	2 Buah
TButton	Hal Tab Standard	4 Buah

PROSEDUR PROGRAM

1. Combo Box diisi 2 items yaitu Komik dan Novel

2. Radio group dan combo box di setting visible false. Jika dipilih Komik maka radio b utton komik yang akan muncul, dan jika dipilih novel maka combo box novel yang kaan muncul.

3. Jika button harga di klik, maka pemberitahuan informasi harga akan muncul, sesuia dengan item yang dipilih.

4. Setelah diisikan edit jumlah, klik button hitung, dan akan munul bayar secara otomatis.

PEMBUATAN PROGRAM

1. Pada Combo Box 1, isikan properties Items dengan : Komik dan Novel

2. Ketik coding di bawah ini pada OnClick Combo Box 1 (jenis buku), untuk mengatur tampilan pilihan di radio group dan group box.

procedure TForm1.ComboBox1Change(Sender: TObject);

begin

if ComboBox1.ItemIndex = 0 then

begin

GroupBox1.Visible:=True;

RBconan.Visible:=True;

RBnaruto.Visible:=True;

RBone.Visible:=True;

RGnovel.Visible:=False;

end

else

if ComboBox1.ItemIndex = 1 then

begin

GroupBox1.Visible:=False;

RBconan.Visible:=False;

RBnaruto.Visible:=False;

RBone.Visible:=False;

RGnovel.Visible:=True;

end;

3. Untuk Button Harga ketik coding di bawah ini (untuk menampilkan informasi harga sesuai dengan judul buku yang dipilih).

procedure TForm1.Button4Click(Sender: TObject);

begin

if RBconan.Checked=True then

ShowMessage('Harga : 6000')

else

if RBnaruto.Checked=True then

ShowMessage('Harga : 7000')

else

if RBone.Checked=True then

ShowMessage('Harga : 8000')

else

If RGnovel.ItemIndex=0 then

ShowMessage('Harga : 9000')

else

If RGnovel.ItemIndex=1 then

ShowMessage('Harga : 10000')

else

If RGnovel.ItemIndex=2 then

ShowMessage('Harga : 6000')

end;

4. Pada Button Hitung, ketikkan listing di bawah ini.

procedure TForm1.Button1Click(Sender: TObject);

var

jumlah,harga,bayar : integer;

begin

jumlah:=StrToInt(Edit2.Text);

if RBconan.Checked=True then

harga:=5000

else

if RBnaruto.Checked=True then

harga:=6000

else

if RBone.Checked=True then

harga:=7000

else

If RGnovel.ItemIndex=0 then

harga := 8000

else

If RGnovel.ItemIndex=1 then

harga := 9000

else

If RGnovel.ItemIndex=2 then

harga := 10000;

bayar:=harga*jumlah;

Edit3.Text:=FloatToStr(bayar);

end;

5. Listing untuk Button ulang sebagai berikut :

procedure TForm1.Button2Click(Sender: TObject);

begin

ComboBox1.Text:='';

Edit2.Text:='0';

Edit3.Text:='0';

GroupBox1.Visible:=False;

RBconan.Visible:=False;

RBnaruto.Visible:=False;

RBone.Visible:=False;

RGnovel.Visible:=False;

end;

6. Terakhir, untuk Button Keluar

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

Posted in: Delphi