Program Sederhana Aplikasi Delphi

Perhitungan Gaji Karyawan Kali ini saya kita akan mencoba membuat Aplikasi Perhitungan Gaji Karyawan degan kriteria sebagai berikut : Setiap orang memiliki gaji pokok dan tunjangan anak. Besarnya tunjangan anak adalah 50.000 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. 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.