Membuat Aplikasi Perhitungan Gaji

Setelah mengetahui tentang tipe data dan operator, sekarang kita coba membuat aplikasi sederhana untuk lebih memudahkan pemahaman tentang tipe data dan operator pada delphi.

Kita akan membuat aplikasi perhitungan gaji karyawan dengan 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:

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

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

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 diatas 3

7. Simpan project dan unit dengan nama ProHitungGaji.dpr dan UhitungGaji.pas.

8. Download file project disini

About these ads