Deni Putra (12085697)
12.6F.07
Lab A (Kelompok : B)
Tampilan Sebelum di running :
Tampilan setelah running (pilih jabatan kemudian muncul otomatis gaji pokok) :
1. Pilih status kemudian tunjangan akan mucul sesuai status karyawan
2. Proses hitung akan muncul gaji bersih ....
Gaji bersih didapat dari gaji pokok di tambah dengan jumlah tunjangan .
3. Ketika keluar akan muncul sebuah Message Box ....
Listing program di atas
unit penggajian;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
jabatan: TComboBox;
GroupBox1: TGroupBox;
tetap: TRadioButton;
honorer: TRadioButton;
Edit3: TEdit;
Button1: TButton;
Edit4: TEdit;
Button2: TButton;
Button3: TButton;
Edit5: TEdit;
Label7: TLabel;
lbltoday: TLabel;
lbljam: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure jabatanClick(Sender: TObject);
procedure tetapClick(Sender: TObject);
procedure honorerClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,d,hasil:real;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
jabatan.Items.Add('Direktur');
jabatan.Items.Add('Manager');
jabatan.Items.Add('Karyawan');
end;
procedure TForm1.jabatanClick(Sender: TObject);
begin
if jabatan.Text='Direktur' then
begin
edit2.Text:='10000000';
edit5.Text:='Rumah Mewah';
end
else
if jabatan.Text='Manager' then
begin
edit2.Text:='5000000';
edit5.Text:='Mobil Mewah';
end
else
if jabatan.Text='Karyawan' then
begin
edit2.Text:='3000000';
edit5.Text:='Blackberry';
end
end;
procedure TForm1.tetapClick(Sender: TObject);
begin
if tetap.checked= true then
a:=strtofloat(edit2.Text);
hasil:=(a*0.15);
edit3.Text:=floattostr(hasil);
end;
procedure TForm1.honorerClick(Sender: TObject);
begin
if honorer.checked= true then
a:=strtofloat(edit2.Text);
hasil:=(a*0.05);
edit3.Text:=floattostr(hasil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit4.Text:=floattostr(strtofloat(edit2.Text)+strtofloat(edit3.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
jabatan.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if application.MessageBox('are you sure want to logout ??','info',mb_yesno+32)=idyes then
close
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbltoday.Caption:=formatdatetime('dd mmmm yyyy',now);
lbljam.Caption:=formatdatetime('H:M:S',now);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label9: TLabel;
Edit1: TEdit;
Edit2: TEdit;
jabatan: TComboBox;
GroupBox1: TGroupBox;
tetap: TRadioButton;
honorer: TRadioButton;
Edit3: TEdit;
Button1: TButton;
Edit4: TEdit;
Button2: TButton;
Button3: TButton;
Edit5: TEdit;
Label7: TLabel;
lbltoday: TLabel;
lbljam: TLabel;
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure jabatanClick(Sender: TObject);
procedure tetapClick(Sender: TObject);
procedure honorerClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
a,b,c,d,hasil:real;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
jabatan.Items.Add('Direktur');
jabatan.Items.Add('Manager');
jabatan.Items.Add('Karyawan');
end;
procedure TForm1.jabatanClick(Sender: TObject);
begin
if jabatan.Text='Direktur' then
begin
edit2.Text:='10000000';
edit5.Text:='Rumah Mewah';
end
else
if jabatan.Text='Manager' then
begin
edit2.Text:='5000000';
edit5.Text:='Mobil Mewah';
end
else
if jabatan.Text='Karyawan' then
begin
edit2.Text:='3000000';
edit5.Text:='Blackberry';
end
end;
procedure TForm1.tetapClick(Sender: TObject);
begin
if tetap.checked= true then
a:=strtofloat(edit2.Text);
hasil:=(a*0.15);
edit3.Text:=floattostr(hasil);
end;
procedure TForm1.honorerClick(Sender: TObject);
begin
if honorer.checked= true then
a:=strtofloat(edit2.Text);
hasil:=(a*0.05);
edit3.Text:=floattostr(hasil);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
edit4.Text:=floattostr(strtofloat(edit2.Text)+strtofloat(edit3.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
jabatan.Text:='';
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if application.MessageBox('are you sure want to logout ??','info',mb_yesno+32)=idyes then
close
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
lbltoday.Caption:=formatdatetime('dd mmmm yyyy',now);
lbljam.Caption:=formatdatetime('H:M:S',now);
end;
end.
0 Responses "Tugas Delphi"
Posting Komentar