Soal 2 Tugas Kelompok

Listing, Flowchart, dan Interface

 Listing program gaji dan karyawan

Prosedur Tform3.cjabatanClick (Sender : Tobject);
Begin
    If cjabatan Text = ‘Direktur’ then
    epokok.Text := ‘5.000.000’
else
   If cjabatan.Text = ‘manager’ then
   epokok.text := ‘2.000.000’
else
   If cjabatan.Text = ‘karyawan’ then
   epokok.Text := ‘1.000.000’
else
   epokok.text := ‘0’
end


Flowchart Gaji Karyawan

Interface Gaji Karyawan