Delphi – Latihan Penggunaan Combobox


Pada sesi Delphi ini kita akan berlatih menggunakan control Combobos.

Buatlah program menghitung Tarif menginap dihotel dengan ketentuan sebagai berikut:

Input:

  • Kelas
  • Lama Inap

Biaya Ina Per hari bergantung Kelas

  • President Suite, Rp. 600000,-
  • Double Bed, Rp. 300000,-
  • Single Bed, Rp. 150000

Desain Form

Desain Form

Desain Form

Pengaturan Properti

Pengaturan Properti

Pengaturan Properti

Penkodean

procedure TfrmTarifHotel.btnOKClick(Sender: TObject);
   var Kelas, LamaInap: integer;
       BiayaInap, TotalBayar: real;
begin
  Kelas := cmbKelas.ItemIndex;
  LamaInap := strtoint(edtLamaInap.Text);
  if Kelas=0 then
     BiayaInap := 600000
  else if Kelas=1 then
     BiayaInap := 300000
  else
     BiayaInap := 150000;

  TotalBayar:=LamaInap*Biayainap;
  edtBiayaInap.Text:=  floattostr(BiayaInap);
  edtTotalBayar.Text:=  floattostr(TotalBayar);

end;

procedure TfrmTarifHotel.btnResetClick(Sender: TObject);
begin
  cmbKelas.ItemIndex:=0;
  edtLamaInap.text:='';
  edtBiayaInap.Text:=  '';
  edtTotalBayar.Text:=  '';
  cmbKelas.setfocus;
end;

procedure TfrmTarifHotel.Button3Click(Sender: TObject);
begin
  Close
end;

Hasil Eksekusi

Hasil Eksekusi

Hasil Eksekusi

4 thoughts on “Delphi – Latihan Penggunaan Combobox

  1. Kalau menampilkan fiel dari dtbase
    Ke kombobox trus saat combobox di pilih
    Muncul fiel berikutnya di text bok gimana gan…
    Saya punya tabel dengan nama harga
    Field nya 1 barang 2 harga_barang
    1 combobox dan 1 editbox
    Jika combobok dipilih maka otomatis harga tampil di textbox kodingnya gimana ya gan
    Mohon penceeahannya

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s