Program Kasir Cuci Helem

Ini tugas ke 5 DELPHI, dengan sedikit Kreatifitas, Modifikasi dan Penambahan Form

•  Form Awal

• Form Hitung

  

  

• Form Bersih

• Form Keluar

Berikut "Listing Code" nya

  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
harga,total,lama,wangi : real;
implementation

uses Math;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BorderStyle:=bsDialog;
CMBjenis.Items.add ('Full Face');
CMBjenis.Items.add ('Half Face');
CMBjenis.Text:='Pilih Helem';
Eharga.Enabled:=False;
Etotal.Enabled:=False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Ltanggal.Caption:=FormatDateTime('dd/mm/yyyy',date);
Ljam.Caption:=FormatDateTime('hh:mm:ss',time);
end;

procedure TForm1.CMBjenisChange(Sender: TObject);
begin
if (CMBjenis.Text='Full Face') then harga := 30000
else if (CMBjenis.Text='Half Face') then harga := 25000
else;
Eharga.Text :=FormatFloat('#,#',harga );
end;

procedure TForm1.BTNhariClick(Sender: TObject);
begin
if (BTNhari.Checked=true) then lama := 10000;
Ehari.Text := FormatFloat('#,#',lama);
Ejam.Text:='';
end;

procedure TForm1.CwangiClick(Sender: TObject);
begin
if (Cwangi.Checked=true) then wangi := 6000;
Ewangi.Text:= FormatFloat('#,#', wangi);
if (Cwangi.Checked=False) then Ewangi.Text:= '';
end;
          
procedure TForm1.BBbersihClick(Sender: TObject);
begin
Enama.Text:='';
Eharga.Text:='';
Ejam.Text:='';
Ehari.Text:='';
Ewangi.Text:='';
Etotal.Text:='';
CMBjenis.Text:='Jenis Helem';
BTNjam.Checked:=False;
BTNhari.Checked:=False;
Cwangi.Checked:=False;
Enama.SetFocus;
end;

procedure TForm1.BBhitungClick(Sender: TObject);
begin
If (Enama.text='')then
begin
Application.MessageBox('Nama harus di isi.','EROR',MB_OK or MB_ICONEXCLAMATION);
Exit;
end;
if BTNjam.Checked = True then total := harga + lama;
if BTNhari.Checked= True then total := harga + lama;
if Cwangi.Checked = true then total := total + 6000;
Etotal.Text := Format('%m', [total]) ;
end;

procedure TForm1.BTNjamClick(Sender: TObject);
begin
if (BTNjam.Checked=True) then lama := 20000;
Ejam.Text := FormatFloat('#,#',lama);
Ehari.Text :='';
end;


procedure TForm1.BBkeluarClick(Sender: TObject);
begin
if (Application.MessageBox('Tekan Tombol OK Untuk Keluar','EXIT',MB_OKCANCEL or MB_ICONQUESTION or MB_DEFBUTTON1)=ID_OK) then close;
end;

{tambahan}

procedure TForm1.TteksTimer(Sender: TObject);
var
a1,a2,a3,b1,b2,b3,c1,c2,c3 : string;
begin
a1:= Lnama.Caption;
a2:= Lnim.Caption;
a3:= Lkls.Caption;
b1:= copy(a1,1,1);
c1:= copy (a1,2,length(a1));
b2:= copy (a2,1,1);
c2:= copy (a2,2,length(a2));
b3:= copy (a3,1,1);
c3:= copy (a3,2,length(a3));
Lnama.Caption:= c1+b1;
Lnim.Caption:=c2+b2;
Lkls.Caption:=c3+b3;
end;

end.