Percabangan IF pada Delphi 7
Percabangan IF merupakan operator pecabangan yang digunakan untuk menentukan pilihan atas beberapa kondisi yang merupakan syarat terhadap pilihan yang sudah ditentukan/dibuat. Jadi, IF akan menjalankan statement tertentu jika kondisi bernilai benar dan akan mengabaikan statement jika kondisi bernilai salah.
if (kondisi1) then
statement1;
else if (kondisi2) then
statement2;
else
statement_lain;
Praktek membuat Program
1. Buat Form seperti berikut :
2. Ubah Properties-nya seperti berikut :
3. Listing Program sebagai berikut :
Sebelum melakukan listing programnya kita buat dulu ketentuan/pilihannya. Misalkan ketentuannya sebagai berikut :
a. Jika kita pilih Kode Barang “001” maka :
- Nama Barang : PC
- Satuan : unit
- Penyuplai : PT 001
b. Jika kita pilih Kode Barang “002” maka :
- Nama Barang : Keyboard
- Satuan : pcs
- Penyuplai : PT 002
c. Jika kita pilih Kode Barang “003” maka :
- Nama Barang : Mouse
- Satuan : box
- Penyuplai : PT 003
Setelah membuat ketentuan isikan listing programnya.
procedure TF_Percabangan_IF.FormCreate(Sender: TObject);
begin
cb_kode.Items.Add('001');
cb_kode.Items.Add('002');
cb_kode.Items.Add('003');
end;
procedure TF_Percabangan_IF.cb_kodeClick(Sender: TObject);
begin
if cb_kode.Text = '001' then
begin
ed_nama.Text := 'PC';
ed_satuan.Text := 'unit';
ed_penyuplai.Text := 'PT 001';
end
else if cb_kode.Text = '002' then
begin
ed_nama.Text := 'Keyboard';
ed_satuan.Text := 'pcs';
ed_penyuplai.Text := 'PT 002';
end
else
begin
ed_nama.Text := 'Mouse';
ed_satuan.Text := 'box';
ed_penyuplai.Text := 'PT 003';
end;
end;procedure TF_Percabangan_IF.bt_closeClick(Sender: TObject);
begin
Close;
end;4. Jalankan Program
Berikan komentar Anda
EmoticonEmoticon