Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Program Gaji Karyawan dengan Delphi

· · 2 comments
Assalamu'alaikum, wr.wb

Cara Membuat Program Gaji Karyawan di Delphi - Selamat datang rekan. Kali ini tentang cara membuat program gaji sederhana menggunakan Borland Delphi. Sebuah Bahasa prmograman yang cukup populer dan banyak di gunakan oleh para programmer dalam membuat program berbasis destop maupun Web.

Komponen yang kita gunakan untuk membuat gaji karyawan ini adalah editbox, radiobutton, combobox serta button melakukan eksekusi perhitungan total gaji karyawan. Logika programmnya, gaji pokok sudah ditetapkan pada sebuah combobox berdasarkan jabatan yang dipilih.

Untuk tunjangan berdasarkan kategori menikah dan belum menikah dengan ketentuan untuk yang telah menikah mendapatkan tunjangan 5 % dari gaji pokok, sedangkan yang belum menikah mendapatkan tunjangan sebesar 3% dari gaji pokok. Hasil gaji bersih dieksekusi melalui button hitung dengan terlebih dahulu menampung nilai gaji pokok dan tunjangan pada sebuah variabel.

Membuat program gaji karyawan menggunakan Delphi :

1. Desainnya Formnya seperti gambar dibawah ini :

membuat program gaji sederhana di delphi
2. Isikan list pada combobox menggunakan item pada object inspector ataupun melalui coding. Caranya silahkan baca Cara membuat ComboBox di Delphi.

3. Copykan kumpulan formula ini sesuai dengan ketentuannya.

Pada radiobutton masukan mantera ini :

procedure TForm1.RadioButton1Click(Sender: TObject);
var gajipokok, tunjangan : real;
begin
if radiobutton1.checked = true then
gajipokok := strtofloat(edit4.text);
tunjangan := gajipokok * 0.05;
edit2.text := floattostr (tunjangan);
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
var gajipokok, tunjangan : real;
begin
if radiobutton2.checked = true then
gajipokok := strtofloat(edit4.text);
tunjangan := gajipokok * 0.03;
edit2.text := floattostr (tunjangan);
end;

Pada button hitung copykan mantera ini :
procedure TForm1.Button2Click(Sender: TObject);
var gajipokok, tunjangan, gajibersih : real;
begin
gajipokok := strtofloat(edit4.text);
tunjangan := strtofloat(edit2.text);
gajibersih := gajipokok + tunjangan;
edit3.Text := floattostr(gajibersih);
end;

Masukan pada button clear dan form create :
edit1.Clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;



Tampilan program setelah dijalankan :
contoh program gaji dengan delphi
Demikian tutorial cara membuat program karyawan sederhana menggunakan Bahasa Delphi. Moga bermanfaat, begitulah.

******

Baca juga Contoh program diskon di Borland Delphi

2 comments:

  1. wah cocok sekali nih gan tutorialnya pas,kebetulan ingin belajar delphi,langsung tak coba dulu cara membuat progam gaji karyawan lewat delphi

    ReplyDelete

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan