Membuat Program Suatu Hotel dengan Aplikasi Borland Delphi.

Baiklah kali ini saya akan membuat program suatu Hotel dengan aplikasi Borlan delphi.
berikut langkah-langkahnya:

1. Buka aplikasi borland delphi.

2. buat desain seperti dibawah ini

3. sesudah itu masukkan kodingan seperti dibawah ini;

   procedure TForm1.Button1Click(Sender: TObject);
   VAR
   NAMA:STRING[30];
   LAMA,HARGA,PEMBAYARAN:REAL;
   begin
   LAMA:=STRTOFLOAT(EDIT2.Text);
   HARGA:=STRTOFLOAT(EDIT3.Text);
   PEMBAYARAN:=LAMA*HARGA;
   EDIT4.Text:=FLOATTOSTR(PEMBAYARAN);
   end;

   procedure TForm1.Button2Click(Sender: TObject);
   begin
   EDIT1.Text:='';
   EDIT2.Text:='';
   EDIT3.Text:='';
   EDIT4.Text:='';
   edit1.SetFocus
   end;

   procedure TForm1.Button3Click(Sender: TObject);
   begin
   application.Terminate
   end;

   end.

4. Jika sudah RUN program tersebut, berikut hasilnya;

Baiklah sekian caranya. semoga bermanfaat bagi pembaca sekalian. terimakasih telah membaca^^