RADIO GROUP DAN COMBO BOX

Radio Group Dan Combo Box

Berikut ini adalah contoh membuat sebuah program yang menggunakan pilihan radiogruop dan pilihan combobox sekaligus.
1. Buatlah projek baru, tempatkan komponen seperti di bawah ini.

2. Aturlah properti form dan komponen sebagai berikut :

3. Setelah selesai melakukan setting properties, maka tampilan form akan seperti berikut ini :

4. Pada variabel global, berikan variabel – variabel yang akan digunakan pada beberapa procedure :

var
frmPembelian: TfrmPembelian;      { otomatis muncul }
JumlahBeli, Harga, NilaiDiskon: Real;    { harus dideklarasikan sendiri }

5. Double klik pada RadioGroup rgBarang, kemudian tambahkan listing program, sehingga menjadi sebagai berikut :

procedure TfrmPembelian.rgBarangClick(Sender: TObject);
var
NamaBarang : String;
begin
case Rgbarang.Itemindex Of
0 :     begin
NamaBarang := ‘Buku’;
Harga := 2000;
end;
1 :     begin
NamaBarang := ‘Pensil’;
Harga := 1000;
end;
2 :     begin
NamaBarang := ‘Garisan’;
Harga := 3000;
end;
3 :     begin
NamaBarang := ‘Ballpoint’;
Harga := 4000;
end;
end;
edNamaBarang.Text := NamaBarang;
edHarga.Text := Floattostr(Harga);
end;

6.    Double klik pada ComboBox cmbJenisPembeli, kemudian tambahkan listing program, sehingga menjadi sebagai berikut :

procedure TfrmPembelian.cmbJenisPembeliChange(Sender: TObject);
var
JumlahDiskon : string;
begin
JumlahBeli:= StrToInt(edJumlahBeli.Text);
case cmbJenisPembeli.ItemIndex of
0 :     begin
JumlahDiskon := ’20%’;
NilaiDiskon := 0.2 * Harga * JumlahBeli;
end;
1 :     begin
JumlahDiskon := ’10%’;
NilaiDiskon := 0.1 * Harga * JumlahBeli;
end;
2 :     begin
JumlahDiskon := ’5%’;
NilaiDiskon := 0.05 * Harga * JumlahBeli;
end;
end;
edJumlahDiskon.Text := JumlahDiskon;
edNilaiDiskon.Text  := FloatToStr(NilaiDiskon);
end;

7. Double klik pada button btHitung, kemudian tambahkan listing program, sehingga menjadi sebagai berikut :

procedure TfrmPembelian.btHitungClick(Sender: TObject);
var
Bayar : Real;
begin
JumlahBeli:= StrToInt(edJumlahBeli.Text);
Bayar :=(JumlahBeli*Harga)- NilaiDiskon;
edBayar.Text := FloatToStr(Bayar);
end;

8.    Double klik pada button btKeluar, kemudian tambahkan listing program, sehingga menjadi sebagai berikut :

procedure TfrmPembelian.btKeluarClick(Sender: TObject);
begin
Application.Terminate;
end;

0 komentar:

Poskan Komentar