Latihan Aplikasi Sederhana Delphi #52

andrypein.net : kali ini kita coba buat program aplikasi sederhana delphi kecil2an yang maskudnya untuk menghitung biaya kita masuk ke hotel gitu.

langsung saja, berikut adalah penampakan formnya:

Komponennya ada 4 edit text, 4 radio button, 3 button, dan 1 combobox.

Penjelasan program sederhana ini adalah sbb :

Kamar hotel ada 3 kelas yaitu biasa,eksekutif,dan president suite dengan harga yang berbeda.

Tarif kamar biasa senilai 500000, eksekutif 1000000 dan president suite 2000000, diskon kalo cek in pagi 2%,siang 6%,sore 10% dan malam 14%.

Langsung saja berikut listing programnya.

Untuk event form create, kasih script seperti ini :

 
procedure TForm1.FormCreate(Sender: TObject);
begin
 combobox1.Items.Add('Biasa');
 combobox1.Items.Add('Eksekutif');
 combobox1.Items.Add('President Suite');
 edit3.Enabled:=false;
 edit4.Enabled:=false;
 edit5.Enabled:=false;
end;

Lalu untuk combobox nya

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
  0: edit3.Text:='500000';
  1: edit3.Text:='1000000';
  2: edit3.Text:='2000000';
end;  
end;

Next untuk radiobutton

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  biaya:=strtofloat(edit3.Text);
  diskon:=0.02 * biaya;
  edit4.Text:=floattostr(diskon);
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  biaya:=strtofloat(edit3.Text);
  diskon:=0.06 * biaya;
  edit4.Text:=floattostr(diskon);
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
 biaya:=strtofloat(edit3.Text);
 diskon:=0.1 * biaya;
 edit4.Text:=floattostr(diskon);
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
 biaya:=strtofloat(edit3.Text);
 diskon:=0.14 * biaya;
 edit4.Text:=floattostr(diskon);
end;

Dan terakhir untuk menghitung total bayar lakukan pada button1

procedure TForm1.Button1Click(Sender: TObject);
begin
 biaya:=strtofloat(edit3.Text);
 diskon:=strtofloat(edit4.Text);
 total:=biaya - diskon;
 edit5.Text:=floattostr(total);
end;

Terakhir jangan lupa tambahkan variabel global ini

var
  Form1: TForm1;
  biaya,diskon,total:real;

Silahkan donlod aplikasi sederhana delphi nya gan buat koleksi mayan.

Download

*AFK