Menghitung Gaji Karyawan dengan Delphi

Gaji yang akan kita hitung mempunyai aturan sebagai berikut :
1. Pengguna menginput data gaji pokok, uang makan, dan bonus
2. Perhitungan tunjangan = 20% * gaji kotor
3. Total gaji = pokok + uang makan + bonus + tunjangan

Versi delphi yang akan saya gunakan adalah Delphi XE2, tetapi cara ini bisa digunakan untuk Delphi 7 keatas. Buka aplikasi Delphi XE dan klik File > New > VLC Form Application

Design form agar menyerupai tampilan form dibawah ini :

1. Input Data dan Total diambil dari Tool Palette TGroupBox.
2. Nama, Jabatan, Gaji Pokok, Uang Makan, Bonus diambil dari Tool Palette TLabel
3. Hitung, Reset, Exit diambil dari Tool Palette TButton. Yang diubah hanya Caption.

Tool Palette berada disebelah kanan bawah window aplikasi Delphi XE

Setelah form tersebut didesign, klik duakali disembarang tempat di form, sehingga tampilan akan berubah ke mode coding scroll ke baris paling atas hingga di bagian

 private
    { Private declarations }
  public
    { Public declarations }

ubah menjadi

 private
    { Private declarations }
  public
    { Public declarations }
    nama, jabatan : string;
    gapok, umakan, bonus, tunjangan, t_gaji, output_gaji :real;

double klik pada Button Hitung tambahkan script dibawah ini

nama := edit1.Text;
jabatan := edit2.Text;
gapok := strtofloat (edit3.Text);
umakan := strtofloat (edit4.Text);
bonus := strtofloat (edit5.Text);
tunjangan := 0.2*gapok;
t_gaji := gapok+umakan+bonus;
edit6.Text := floattostr(tunjangan);
output_gaji := tunjangan + t_gaji;
edit7.Text := floattostr (output_gaji);

untuk lebih jelasnya lihat gambar dibawah ini

kembali ke tampilan Design, untuk berpindah-pindah dari mode Code ke Design atau sebaliknya lihat seperti gambar dibawah ini

Klik dua kali pada tombol Reset, tambahkan script dibawah ini

 edit1.Text := ' ';
  edit2.Text := ' ';
  edit3.Text := ' ';
  edit4.Text := ' ';
  edit5.Text := ' ';
  edit6.Text := ' ';
  edit7.Text := ' ';

yang terakhir di tombol Exit tambahkan

close;

Screenshoot :

Download :
[Download not found]