cuci helm

nama : wahyudin nur zaman
kelas : 12 4c 06
jurusan : manajemen informatika

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    c_jenis: TComboBox;
    Label5: TLabel;
    rb_jam: TRadioButton;
    rb_hari: TRadioButton;
    Label6: TLabel;
    cb_pewangi: TCheckBox;
    Label7: TLabel;
    e_total: TEdit;
    Timer1: TTimer;
    lbl_tgl: TLabel;
    lbl_jam: TLabel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    b_hitung: TButton;
    b_bersih: TButton;
    b_ngilang: TButton;
    e_nama: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure b_ngilangClick(Sender: TObject);
    procedure e_namaKeyPress(Sender: TObject; var Key: Char);
    procedure b_hitungClick(Sender: TObject);
    procedure rb_jamClick(Sender: TObject);
    procedure rb_hariClick(Sender: TObject);
    procedure cb_pewangiClick(Sender: TObject);
    procedure c_jenisChange(Sender: TObject);
    procedure b_bersihClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  tambahan: Real;
  total: Real;
  diskon :Real;

implementation
  uses math;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BorderStyle:=bsDialog;
c_jenis.Items.Add('Full Face');
c_jenis.Items.Add('Half Face');
c_jenis.Text := '-Pilih-';
e_total.Enabled :=False;
end;

procedure TForm1.b_ngilangClick(Sender: TObject);
begin
 If (Application.MessageBox('Anda Ingin Keluar Dari Program..???','KONFIRMASI',
  MB_YESNO or MB_ICONQUESTION or MB_DEFBUTTON1)=ID_YES) then close;
end;

procedure TForm1.e_namaKeyPress(Sender: TObject; var Key: Char);
begin
  if (key = #13) then c_jenis.SetFocus;
end;

procedure TForm1.b_hitungClick(Sender: TObject);
begin
 if (e_nama.Text ='') then
begin
  Application.MessageBox('Nama Karyawan Tidak Boleh Kosong.','WARNING',
  MB_OK or MB_ICONEXCLAMATION);
  Exit;
end;

if rb_jam.Checked = False then
if rb_hari.Checked = false then
  begin
      Application.MessageBox('Pilih Paket Jam atau Hari','Info',MB_OK);
      rb_jam.SetFocus;
      exit;
  end;

if c_jenis.Text = 'Full Face' then
    begin
      if rb_jam.Checked = True then total := 50000;
      if rb_hari.Checked = True then total := 25000;
    end
  else if c_jenis.Text = 'Half Face' then
    begin
      if rb_jam.Checked = True then total := 35000;
      if rb_hari.Checked = True then total := 15000;
    end
  else
    begin
      Application.MessageBox('Pilih Jenis Helm','Info',MB_OK);
      c_jenis.SetFocus;
      exit;
    end;

  if cb_pewangi.Checked = True then  total := total + 5000;

  e_total.Text := Format('%m',[total]);

 end;
procedure TForm1.rb_jamClick(Sender: TObject);
begin
  e_total.Text :=''
end;

procedure TForm1.rb_hariClick(Sender: TObject);
begin
  e_total.Text :=''
end;

procedure TForm1.cb_pewangiClick(Sender: TObject);
begin
  e_total.Text :=''
end;

procedure TForm1.c_jenisChange(Sender: TObject);
begin
  e_total.Text :=''
end;

procedure TForm1.b_bersihClick(Sender: TObject);
begin
  e_nama.Text :='';
  e_total.Text :='';
  c_jenis.Text :='-Pilih-' ;
  rb_jam.Checked := False ;
  rb_hari.Checked := False ;
  cb_pewangi.Checked := False ;
  e_nama.SetFocus ;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbl_tgl.Caption := FormatDateTime ('dd-mmmm-yyyy',date);
lbl_jam.Caption := FormatDateTime('hh:MM:ss',time);
end;

end.