Senin, 05 Maret 2012

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;

0 komentar:

Posting Komentar

Ada kesalahan di dalam gadget ini

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | cheap international calls