Program Menghitung Gaji Karyawan
Bagaimana membuat aplikasi untuk menghitung Gaji Karyawan tanpa menghitung secara manual tentunya akan membuat seorang bendahara pada perusahaan akan kewalahan jika harus menggaji karyawan-karyawan nya dengan cara manual.di sini saya akan memberi sedikit tutorial tentang membuat sebuah apikasi untuk menggaji karyawan dengan menggunakan aplikasi Borlan Delphi.Semoga tutorial ini dapat membatu rekan-rekan dalam belajar ilmu pemrograman
Langkah pertama dalam pembuatan design Form yaitu anda masukan 8 komponen label
pada form dengan cara pilih component yang berada pada bagian (Component Pallete Tab Standard) seperti pada gambar di bawah.
Untuk masukan label pada form, klik kursor sembarang pada bagian form dialog maka akan
tampil seperti gambar dibawah
Lalu ubah pada bagian properties Label pada bagian caption
1
|
Label1
|
Caption
|
Nama
|
2
|
Labe2
|
Caption
|
NIP
|
3
|
Labe3
|
Caption
|
Gaji Pokok
|
4
|
Labe4
|
Caption
|
Jabatan
|
5
|
Labe5
|
Caption
|
Istri
|
6
|
Labe6
|
Caption
|
Anak
|
7
|
Labe7
|
Caption
|
Gaji Kotor
|
8
|
Labe8
|
Caption
|
Potongan
|
9
|
Labe9
|
Caption
|
Gaji
|
Hasil Perubahan pada properties Label
Selanjutnya anda masukan komponen Edit pada form dengan cara pilih
component yang berada pada bagian (Component Pallete Tab Standard) seperti pada gambar di bawah.
dan untuk memasukan Edit pada
form, ama saja seperti memasukan Label di atas yaitu dengan meng-klik kursor sembarang juga pada bagian form dialog dan untuk component Edit bagian properties ( “Text”)
maka akan tampil seperti gambar dibawah
Dan Langkah yang terakhir dalam pembuatan design Form yaitu membuat sebuat tombol Caranya sama saja seperti halnya membuat sebuah (Label dan Edit text). Pilih Component Button pada bagian Component Pallete tab Standard , ubah pada bagian “caption” properties
1
|
Button1
|
Caption
|
Hitung Tunjangan
|
2
|
Button2
|
Caption
|
Hitung Gaji
Kotor
|
3
|
Button3
|
Caption
|
Hitung Gaji
Bersih
|
4
|
Button4
|
Caption
|
Ulang
|
5
|
Button5
|
Caption
|
Keluar
|
Buatlah tombol “Button” seperti pada gambar dibawah ini!
Selanjutnya anda Desain Program untuk mempercantik tampilan Formnya Buatlah desain secantik mungkin agar orang tertarik melihatnya......!!!!!
Jika Sudah Langkah Terakhir yaitu Memasukan Coding-coding Program pada masing-masing Tombol berikut coding Programnya.............!!!!!!
Tombol Hitung Tunjangan
procedure
TForm1.Button1Click(Sender: TObject);
begin
{T0}
gp:=strtoint(edit3.text);
{aksi}
jabatan:=gp*0.1;
istri:=gp*0.07;
anak:=gp*0.05;
{T1}
edit4.Text:=floattostr(jabatan);
edit5.Text:=floattostr(istri);
edit4.text:=floattostr(anak);
end;
|
Tombol Hitung Gaji Kotor
procedure
TForm1.Button2Click(Sender: TObject);
begin
{aksi}
gk:=gp+jabatan+istri+anak;
{T1}
edit7.Text:=floattostr(gk);
end;
|
Tombol Hitung Gaji Bersih
procedure
TForm1.Button3Click(Sender: TObject);
var
potongan:longint;
gaji:real;
begin
{t0}
potongan:=strtoint(edit8.Text);
{aksi}
gaji:=gk-potongan;
{T1}
edit9.Text:=floattostr(gaji);
end;
|
Tombol Ulang
procedure TForm1.Button4Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
end;
|
Tombol Keluar
procedure TForm1.Button5Click(Sender: TObject);
begin
close;
end;
|
Jika Sudah Coba anda Run Program atau tekan F9 pada Keyboard..........Semoga Sukses
silahkan beri komentar
EmoticonEmoticon