DELPHI7 :: PROGRAM SEDERHANA APLIKASI DELPHI

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:

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.