Thursday 12 December 2013

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini, saya akan membagikan Program menghitung reservasi hotel menggunakan if then else pada Delphi.
Tampilan:


Program Reservasi Hotel

procedure TForm1.Button1Click(Sender: TObject);
Var Kelas       : String;
    Usia,Tarif, DiskonP,HargaBersih     : Real;
begin
    Kelas     := Edit1.Text;
    Usia       :=StrToFloat(Edit2.Text);
    if Kelas ='A' then
         Tarif     := 200000
    else if Kelas ='B' then
         Tarif     := 150000
    else
         Tarif     := 100000;

        if Usia <=12 then
         DiskonP     := 0.5
    else if Usia <60 then
         DiskonP     := 0
    else
         DiskonP     := 0.25;
    Edit3.Text:= FloatToStr(Tarif);
    Edit4.Text:= FloatToStr(DiskonP*100);
    Edit5.Text:= FloatToStr(DiskonP*Tarif);
    Edit6.Text:= FloatToStr(Tarif-(DiskonP*Tarif));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
    Edit1.Text:='';
    Edit2.Text:='';
    Edit3.Text:='';
    Edit4.Text:='';
    Edit5.Text:='';
    Edit6.Text:='';
    Edit1.SetFocus;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
   Close;
end;
end.
 
Demikian yang dapat  saya sampaikan tentang program delphi menggunakan if then else, semoga bermanfaat. Wassalamu'alaikum wr.wb. 

0 comments:

Post a Comment