menghitung gaji karyawan menggunakan form aplication pada delphi

Setelah membuat program menghitung luas kali ini kita akan membuat aplikasi sederhana penghitungan total gaji karyawan berdasarkan Gaji, Golongan beserta Tunjangan yang telah ditentukan.
        Pada aplikasi sederhana ini, kita atur untuk golongan dan tunjangan seperti dibawah ini :

• Jika golongan A, maka tunjangan = 10000;
•  Jika golongan B, maka tunjangan = 20000; dan
• Jika golongan C, maka tunjangan = 30000.

Karena perumpamaan kali ini menggunakan kata jika maka untuk listing program pada aplikasi sederhana ini kita memakai struktur IF then ELSE.
Tanpa banyak basa basi mari kita langsung praktekan saja.
1.    Pertama setelah di buka program delphi klik file – aplication setelah itu buat seperti contoh form di bawah ini:

2.    Setelah itu ubahlah Object inspector seperti tabel di bawah ini:

3.    Setelah itu double klik pada proses da tulis scrip seperti ini.
procedure TForm1.prosesClick(Sender: TObject);
var
gaji,tot,tunjang:integer;

begin
gaji:=strtoint(tgaji.Text);
if gol.Text='A' then tunjang:=100000;
if gol.Text='B' then tunjang:=200000;
if gol.Text='C' then tunjang:=300000;
tunj.text:=inttostr(tunjang);
tot:=gaji+tunjang;
total.text:=inttostr(tot);
end;
end.
4.    Setelah itu konfigurasi selesai dan klik run atau f9 untuk menjalankan.

Pada hasil running diatas, kita uji coba listing program apakah telah sesuai dengan rumus atau tidak. Jika gaji = 2700000 dan ada pada golongan A, maka tunjangan yg didapatkan dari golongan A adalah 10000 dan hasil total gaji yang didapatkan adalah sebesar 2800000 ( gaji + tunjangan).

Apabila kita ingin membuat program diatas menjadi struktur if - then - else caranya mudah.
klik disini untuk mempelajarinya.

terimakasih :)