Posted by : rynsuji.blogspot.com
Minggu, 23 November 2014
PROGRAM GAJI PEGAWAI
Program
ini di buat menggunakan Delphi 7. Program ini adalah tentang menghitung gaji pegawai, disini saya akan menerapkannya pada pemrograman delphi.
Sebenarnya program ini tidak terlalu sulit, cara kerja dari program ini adalah
kita hanya diminta untuk memasukan inputan nama pegawai, jam kerja dan gaji per
jam. Setelah terisi semua data dan ketika kita klik button hitung maka data yang kita inputkan akan tampil pada total,
ketika kita klik button clear maka data yang pernah kita masukkan di pilihan edit
akan di bersihkan dan button close untuk keluar dari program. Program ini
menggunakan label, button, edit dan panel. Berikut source codenya:
unit jual;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Grids;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Pegawai: TEdit;
Jam: TEdit;
Gj: TEdit;
Button1: TButton;
Button2: TButton;
Panel2: TPanel;
Button3: TButton;
total: TEdit;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
var i,j,t,tb,jm,gj2,gj3,lembur,lembur2,pokok:integer;
a:string;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
jm:=strtoint(Jam.text);
gj2:=strtoint(Gj.Text);
if jm > 10 then
begin
lembur:=jm-10;
lembur2:=lembur*gj2*2;
pokok:=(jm-lembur)*gj2;
t:=lembur2+pokok;
end
else
begin
t:=jm*gj2;
lembur2:=0;
end;
total.text:=inttostr(t);
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Pegawai.Clear;
Jam.Clear;
Gj.Clear;
total.Clear;
end;
end.
Berikut tampilan outputnya :
Bagi yang ingin mendownload silahkan klik Di Sini!!!