Download Source Code Aplikasi

Tutorial Delphi : Membuat Aplikasi Penghitung Gaji Karyawan

Thursday, February 11th, 2016 - Tutorial 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

gaji karyawan delphi 1

Design form agar menyerupai tampilan form dibawah ini :

hitung-gaji-karyawan

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

tool-palette delphi

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

isi-tombol-hitung-delphi

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

mode-delphi-xe

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;

sumber : jaranguda

(Telah didownload 430 kali, 1 kali dibaca hari ini)
Download Source Code Aplikasi
loading...
Tutorial Delphi : Membuat Aplikasi Penghitung Gaji Karyawan | admin | 4.5


Leave a Reply
You might also likeclose
error: Content is protected !!