STRUKTUR KONTROL CASE

Struktur Kontrol CASE … OF digunakan untuk mengambil keputusan tertentu
berdasarkan pengujian nilai logika (kondisi).
Bentuk penulisan Struktur CASE … OF :
CASE <Ekspresi> OF
Pilihan-1 : Statemen-1
Pilihan-2 : Statemen-2
Pilihan-3 : Statemen-3
Pilihan-N : Statemen-N
Else
Statemen-N+1
END CASE

Jika Ekspresi sesuai dengan pilihan-1, maka yang dikerjakan adalah Statemen-1 dan
seterusnya. Tetapi jika pilihan tidak ada sesuai dengan pilihan-1 sampai pilihan-N,
maka yang dikerjakan adalah Statemen-N+1.
ListBox dan ComboBox
ListBox digunakan untuk menampilkan daftar pilihan. ComboBox digunakan untuk
menampilkan dan mengetikkan teks dan dapat memilih pilihan dari daftar pilihan
seperti pada object ListBox. Berikut ini adalah langkah-langkah membuat program
menggunakan ListBox dan ComboBox.

• Lakukan kode program untuk event OnActive pada Form.

procedure TFrmBarang.FormActivate(Sender: TObject);
begin
CBPilihan.Items.Clear;
CBPilihan.Items.Append('Komputer');
CBPilihan.Items.Append('Printer');
CBPilihan.Items.Append('Televisi');
end;

• Lakukan kode program untuk event OnClick pada CBPilihan..

procedure TFrmBarang.CBPilihanClick(Sender: TObject);
var
pilihan:integer;
begin
if CBPilihan.Text='Komputer' then
begin
LBNama.Items.Clear;
LBNama.Items.Append('Pentium III');
LBNama.Items.Append('Pentium IV');
end
else if CBPilihan.Text='Printer' then
begin
LBNama.Items.Clear;
LBNama.Items.Append('Canon 200SPX');
LBNama.Items.Append('Canon Pixma ip1000');
LBNama.Items.Append('Epson L-300');
end
else if CBPilihan.Text='Televisi' then
begin
LBNama.Items.Clear;
LBNama.Items.Append('Televisi 21"');
LBNama.Items.Append('Televisi 24"');
end;
end;

• Lakukan kode program untuk event OnClick pada LBNama..

procedure TFrmBarang.LBNamaClick(Sender: TObject);
begin
if CBPilihan.Text='Komputer' then
case LBNama.ItemIndex of
0: edharga.Text:='Rp. 3000000';
1: edharga.Text:='Rp. 4500000';
else
edharga.Text:='0';
end
else if CBPilihan.Text='Printer' then
case LBNama.ItemIndex of
0: edharga.Text:='Rp. 500000';
1: edharga.Text:='Rp. 600000';
2: edharga.Text:='Rp. 700000';
else
edharga.Text:='0';
end
else if CBPilihan.Text='Televisi' then
case LBNama.ItemIndex of
0: edharga.Text:='Rp. 2000000';
1: edharga.Text:='Rp. 4000000';
else
edharga.Text:='0';
end;
end;