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);begincase 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; |
izin sedot gan…
pak cik, ijin sedot yak?!!!!!!!!1