Program Menghitung Gaji Pegawai
Ketentuan dari program yang akan dibuat adalah sebagai berikut:
Besar gaji pokok: Direktur=5000000; Manajer=3000000; Karyawan=2000000
Besar tunjangan: Tetap=1000000; Honorer=500000
Rumus gaji bersih = Gaji pokok+tunjangan
Berikut ini adalah tampilan dari form-form di dalam program ini:
Properti dari tiap obyek di form dijelaskan dalam tabel berikut:
Objek Name Caption
Form1 frmgaji Form Hitung Gaji
Label1 Label1 Menghitung Gaji Pegawai
Label2 Label2 Nama
Label3 Label3 Jabatan
Label4 Label4 Gaji pokok
Label5 Label5 Tunjangan
Label6 Label6 Gaji Bersih
GroupBox1 GroupBox1 Status
RadioButton1 RbHonorer Honorer
RadioButton2 RbTetap Tetap
Button1 Bthitung hitung
Button2 Btinput Input Lagi
Button3 BtSelesai Selesai
obyek Name Text
Edit1 ednama –
Edit2 edgajipokok –
Edit3 edtunjangan –
Edit4 edgajibersih –
ComboBox1 cbjabatan –
Berikut ini adalah listing dari programnya. Kami bagi menjadi beberapa bagian berdasarkan
obyeknya:
Combo Box
Sebelum ke bagian program, isi dahulu daftar jabatannya yang akan dipilih di combo box.
Untuk mengisinya ada dua cara., yaitu diubah di Object Properties-nya, dan juga lewat
program
Untuk cara pertama, masuklah ke Object Inspector > Properties > Items. Lalu, tuliskan nama-
nama jabatannya di String List Editor. Jika sudah, klik OK.
Sedangkan untuk cara kedua, lakukan double klik pada form, lalu ketikkan program berikut:
procedure [Link](Sender: TObject);
begin [Link] (‘Direktur’);
[Link] (‘Manager’ );
[Link](‘Karyawan’) end;
Menampilkan Gaji Pokok berdasarkan Data di Combo Box
Aktifkan combo box(cbjabatan)
Pada Object Inspector, pilih tab “Event” di samping “Properties”.
Pilih dan aktifkan “onclick”.
Double Click pada combo “On Click”
Ketik program berikut:
procedure [Link](Sender: TObject);
begin
if [Link] = ‘Direktur’ then
[Link] := ‘ 5000000’
else if [Link] = ‘Manajer’ then
[Link] := ‘3000000’
else if [Link] = ‘Karyawan’ then
[Link] := ‘2000000’
else [Link] := ‘0’
end;
Penghitung Tunjangan Karyawan Honorer
Double click pada obyek radio button “Honorer”, lalu ketik program berikut:
procedure [Link](Sender: TObject);
begin
if [Link] = true then
[Link] :=’500000′;
end;
Penghitung Tunjangan Karyawan Tetap
Double click pada obyek radio button “Tetap”, lalu ketik program berikut:
procedure [Link](Sender: TObject);
begin if [Link] = true then
[Link] :=’1000000′;
end;
Penghitung Gaji Bersih Karyawan
Double click pada button “Hitung”, lalu ketik program berikut:
procedure [Link](Sender: TObject);
var a,b,c:integer;
begin
a := StrToInt([Link]);
b := StrToInt([Link]);
c := a+b;
[Link] := IntToStr(c);
end;
Penerima Input Lagi
Double click pada button “Input Lagi”, lalu ketik program berikut:
procedure [Link](Sender: TObject);
begin [Link] := ‘Jabatan’;
[Link] := ‘ ‘;
[Link] := ‘0’;
[Link] := ‘0’;
[Link] := ‘0’;
[Link] := false;
[Link] := false;
end;
Tanda program telah selesai
Ketikkan program berikut di baris-baris terakhir program:
procedure [Link](Sender: TObject);
begin close;
end;
Berikut ini adalah hasil program ketika dijalankan: