Menghitung Gaji Karyawan dengan Delphi

Selamat datang NAWAK-NAWAK di MUDA BLOG

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;

Selanjutnya ANDA bisa tambahkan aksesoris yang ANDA sukai..

mudah bukan..

makasih sudah berkunjung di MUDA (ilMUDuniA)