Aplikasi Perhitungan Upah Karyawan

Aplikasi Perhitungan Upah Karyawan Per-Jam menggunakan delphi 7.

Aplikasi ini berfungsi untuk menghitung Kerja Lembur Karyawan dalam hitungan per-jam untuk setiap lemburnya. Saya anggap kalian sudah mengerti dasar-dasar pemrograman delphi yang pernah saya tulis. So.. Langsung saja kita sediakan component-component yang di butuhkan

Component Label
Component EditText
ComboBox
Button

Pertama buat design seperti gambar dibawah ini.

cara membuat aplikasi perhitungan gaji karyawan menggunakan delphi

selanjutnya klik component ComboBox1 Pilih Events pada Object Inspector pilih OnClik
lalu masukan code berikut....!!!!

procedure TForm1.ComboBox1Click(Sender: TObject);
VAR
GOLONGAN:STRING;

begin
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='A' THEN
BEGIN
UPJ:=4000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='B' THEN
BEGIN
UPJ:=5000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='C' THEN
BEGIN
UPJ:=6000;
END ELSE
GOLONGAN:=COMBOBOX1.Text;
IF GOLONGAN='D' THEN
BEGIN
UPJ:=7000;
END ;
EDIT1.Text:=INTTOSTR(UPJ);
end;

Code diatas merupakan pilihan untuk ComboBox ketika kita klik hasilnya jika program sudah di jalankan.
keterangan :

Golongan = merupakan sebuah variabel yang bertype data String UPJ = merupakan variabel global (Upah Per Jam) terletak pada variabel Form

var
Form1: TForm1;
UPJ:INTEGER;

implementation
{$R *.dfm}

kenapa berada di variabel global...???

karna Untuk membaca semua proses perhitungan keseluruhan Coding ComboBox dan Button, sebenarnya bisa saja kita memberi variabel UPJ pada tiap-tiap coding namun untuk menghemat dan mempercepat proses compier dalam membaca program lebih singkat dan cepat hal ini akan sangat berpengaruh pada aplikasi yang besar, di sini saya hanya mencontohkan saja.

Oke Selajutnya masukan Coding pada Tombol PROSES doube klik tombol lalu masukan code berikut.....!!!!!

procedure TForm1.Button1Click(Sender: TObject);
CONST
UL=3000;

VAR
JJK:SHORTINT;
UPAH:LONGINT;

begin
JJK:=STRTOINT(EDIT2.Text);
IF JJK<=48 THEN
   BEGIN
    UPAH:=JJK*UPJ;
    END ELSE
    IF JJK >=58 THEN
   BEGIN
   UPAH:=48*UPJ+(JJK-48)*UL;
end;

EDIT3.TEXT:=INTTOSTR(UPAH);
end;

keterangan:
CONST =Parameter Type
UL =Upah Lembur
JJK =Jumlah Jam Kerja

Jika Sudah anda masukan coding pada tombol lalu Save Aplikasi.

Lalu Run Program atau Tekan F9 pada KeyBoard.........!!!! Semoga Sukses

Aplikasi Perhitungan Upah Karyawan