Program Delphi

Tugas Delphi

Contoh sederhana program untuk pemesanan kamar hotel menggunakan Delphi

Listing Program:

unit Unit1_tugas;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    GroupBox1: TGroupBox;

    rekonomi: TRadioButton;

    rbisnis: TRadioButton;

    rexcekutive: TRadioButton;

    Label1: TLabel;

    Label2: TLabel;

    epelanggan: TEdit;

    enotel: TEdit;

    Label3: TLabel;

    cbjenis: TComboBox;

    Label4: TLabel;

    Label5: TLabel;

    enamakamar: TEdit;

    eharga: TEdit;

    Label6: TLabel;

    Label7: TLabel;

    ediskon: TEdit;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    ejumlahsewa: TEdit;

    elamasewa: TEdit;

    Edit8: TEdit;

    eubay: TEdit;

    eukem: TEdit;

    total: TButton;

    input: TButton;

    keluar: TButton;

    Button4: TButton;

    esub: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure cbjenisChange(Sender: TObject);

    procedure elamasewaChange(Sender: TObject);

    procedure totalClick(Sender: TObject);

    procedure eubayChange(Sender: TObject);

    procedure inputClick(Sender: TObject);

    procedure keluarClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

cbjenis.Items.Add('Single');

cbjenis.Items.Add('Double');

cbjenis.Items.Add('Family');

end;

procedure TForm1.cbjenisChange(Sender: TObject);

begin

if cbjenis.text='Single'then

begin

  enamakamar.Text:='Melati';

  eharga.Text:='300000';

end

else if cbjenis.text='Double'then

begin

  enamakamar.Text:='Cendana';

  eharga.Text:='450000';

end

else

begin

  enamakamar.Text:='Raflesi';

  eharga.Text:='500000';

end;

end;

procedure TForm1.elamasewaChange(Sender: TObject);

var harga,jumsew,lamsew,subtotal : real;

begin

harga:=strtofloat(eharga.Text);

jumsew:=strtofloat(ejumlahsewa.Text);

lamsew:=strtofloat(elamasewa.Text);

subtotal:=harga*jumsew*lamsew;

esub.Text:=floattostr(subtotal);

end;

procedure TForm1.totalClick(Sender: TObject);

var subtotal,diskon,tolbay : real;

begin

subtotal:=strtofloat(esub.Text);

if rekonomi.Checked=true then

begin

  diskon:=0.05*subtotal;

  tolbay:=subtotal-diskon;

end

else

  if rbisnis.Checked=true then

begin

  diskon:=0.1*subtotal;

  tolbay:=subtotal-diskon;

end

else

if rexcekutive.Checked=true then

begin

diskon:=0.15*subtotal;

tolbay:=subtotal-diskon;

end;

ediskon.Text:=floattostr(diskon);

edit8.Text:=floattostr(tolbay);

end;

procedure TForm1.eubayChange(Sender: TObject);

var ubay,tolbay,ukem: real;

begin

tolbay:=strtofloat(edit8.Text);

ubay:=strtofloat(eubay.Text);

ukem:=ubay-tolbay;

eukem.Text:=floattostr(ukem);

end;

procedure TForm1.keluarClick(Sender: TObject);

begin

if application.MessageBox('Anda Yakin akan keluar','Informasi',mb_yesno)=idyes then

close;

end

end.

procedure TForm1.inputClick(Sender: TObject);

begin

epelanggan.Text:='';

enotel.Text:='';

cbjenis.Text:='';

enamakamar.Text:='';

ejumlahsewa.Text:='0';

elamasewa.Text:='0';

eharga.Text:='0';

esub.Text:='0';

rekonomi.Checked:=false;

rbisnis.Checked:=false;

rexcekutive.Checked:=false;

ediskon.Text:='0';

edit8.Text:='0';

eubay.Text:='0';

eukem.Text:='0';

epelanggan.SetFocus

end;