Aplikasi Sederhana Menghitung Total Gaji Pegawai
Disini
saya akan berbagi bagaimana cara menentukan Total gaji seorang pegawai dengan
menggunak aplikasi DELPHI.
Langkah-langkahnya
sebagai berikut
1.
Buatlah Form terlebih Dahulu
seperti gambar dibawah ini :
Nama Pegawai,Jabatan,Gaji
Pokok,Status,Tunjangan Status,Total Gaji menggunakan Label .
Hitung(Button1), Keluar(Button3) dan Hapus(Button2).
Tempat Menginputkan : Nama
Pegawai =edit1,Gaji Pokok=edit2,Tunjangan Status=edit3 dan Total Gaji=edit4
2.
Tempat Memunculkan Jabatan
gunakanlah ComboBox, Cara menggunakan ComboBox adalah sebagai berikut :
Klik
ComboBox,Kemudian pilih items pada objek inspector yang ada di bagian kiri
bawah klik 2x kemudian inputakan jabatnyya , jika ingin mennambah jabatan
tekan Enter , seperti gambar berikut:
3.
Untuk Memilih Status Kita menggunakan RadioButton
Status
Tetap(RadioButton1) dan Status Honor(RadioButton2);
Langkah selanjutnya
adalah memasukan sintak-sintak/coding sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
var
tunjangan,gajipokok,totalgaji : real;
begin
tunjangan:= StrToFloat(
edit3.Text);
gajipokok:=StrToFloat(edit2.Text);
totalgaji:=gajipokok+tunjangan;
edit4.Text:=floatToStr(totalgaji);
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
close;
end;
procedure TForm1.ComboBox1Change(Sender:
TObject);
begin
if combobox1.Text='Direktur' then edit2.text:='5000000'
else
if combobox1.Text='Manajer' then
edit2.text:='4000000 '
else
edit2.Text:='2000000 '
end;
procedure TForm1.RadioButton1Click(Sender:
TObject);
var
tunjangan: real;
begin
if
radiobutton1.Checked = True then
tunjangan:=500000 ;
edit3.Text :=floatToStr(tunjangan);
end;
procedure TForm1.RadioButton2Click(Sender:
TObject);
var
tunjangan:real;
begin
if
radiobutton2.Checked = True then
tunjangan:=300000 ;
edit3.Text :=floatToStr(tunjangan);
end;
end.
Dannnn inilah Hasil
Outpunya :
Bagaimana?? Mudah kan
Selamat mencoba dan semoga bermanfaat !!!! ^_^
