Minggu, 03 Februari 2013

Perhitungan Gaji Karyawan

Assalamualaikum....
Kali ini saya coba membuat Aplikasi Perhitungan Gaji Karyawan degan kriteria sebagai berikut :
  1. Setiap orang memiliki gaji pokok dan tunjangan anak.
  2. Besarnya tunjangan anak adalah 50.000
  3. Jumlah anak yang diberi tunjangan maksimal sampai anak ke-3.
Contoh membuat aplikasi perhitungan gaji dengan menggunakan delphi 7
1. Buat project baru pada delphi, kemudian tempatkan komponen-komponen pada form seperti gambar berikut:
form hitung gaji
Tata Letak Form Aplikasi Perhitungan Gaji
2. Atur properti form dan komponen seperti pada tabel.
Component Properti Value
Label1 Caption Nama
Label2 Caption Gaji Pokok
Label3 Caption Jumlah Anak
Label4 Caption Gaji Total
Label5 Caption Aplikasi Perhitungan Gaji
Font 14
Label6 Caption Maksimal anak ke-3
Edit1 Name EdNama
Text Dikosongkan
Edit2 Name EdGajipokok
Text Dikosongkan
Edit3 Name EdJumlahanak
Text Dikosongkan
Edit4 Name EdGajitotal
Text Dikosongkan
Button1 Name BtHitung
Width 75
Height 65
3. Jika benar maka tampilan form menjadi seperti ini.
Form Aplikasi Perhitungan Gaji
Form Aplikasi Perhitungan Gaji
4. Dobel klik Button BtHitung pada form, lalu isikan prosedur perhitungan gaji sebagai berikut
procedure TForm1.Button1Click(Sender: TObject);
Const TAnak = 50000;
Var
JAnak:integer;
GPokok,Tunjangan,GTotal:Real;
begin
GPokok := StrtoFloat(EdGajipokok.Text);
JAnak := Strtoint(EdJumlahanak.Text);
if Janak > 3 then
begin
Janak := 3;
Showmessage(‘Jumlah Anak yang diberi tunjangan hanya sampai anak ke-3′);
end;
Tunjangan := Janak * Tanak;
GTotal := GPokok + Tunjangan;
EdGajiTotal.Text := Floattostr(GTotal);
end;
5. Coba jalankan project dengan menekan F9 lalu isikan data data pada nama, gaji pokok dan jumlah anak dan tekan tombol Hitung, Jika benar maka akan tampil seperti ini
Aplikasi Perhitungan Gaji Dengan Delphi 7
Aplikasi Perhitungan Gaji Dengan Delphi 7
6. Coba pada jumlah anak isikan dengan angka diatas 3 (misal= 4) maka akan tampil pesan sebagai berikut dan jumlah tunjangan hanya dihitung 3 anak.
Pesan jumlah anak

Tidak ada komentar:

Poskan Komentar

Mengenai Saya

Diberdayakan oleh Blogger.

Translate