I.         Deskripsi Program

Program ini dibuat dengan Delphi7 yang digunakan untuk mengetahui gaji bersih pegawai dari gaji yang diinputkan. Menggunakan 5 label, 4 edit dan program ini hanya menggunakan 3 button, yaitu : button untuk menampilkan total gaji menurut status pegawainya, button untuk mrngisi data lagi dan button untuk keluar.

Berikut interface dari program ini :

SOURCE CODE

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);

begin

      edit1.Clear;

      edit2.Clear;

      edit3.Clear;

      edit4.Clear;

      RadioButton1.Checked:=false;

      RadioButton2.Checked:=false;

      ComboBox1.ItemIndex:=-1;

end;

procedure TForm1.ComboBox1Click(Sender: TObject);

begin

if combobox1.text='Direktur'then

   edit2.Text:='5000000'

   else

   if combobox1.text='Manager'then

   edit2.Text:='2000000'

   else

   if combobox1.text='Karyawan'then

   edit2.Text:='1000000'

   else

   edit2.Text:='0'

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

var

a,hasil:real;

begin

       if  RadioButton1.Checked=true then

       a:=strtofloat(edit2.Text);

       hasil:=a*0.3;

       edit3.Text:=floattostr(hasil)

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

var

a,hasil:real;

begin

if RadioButton2.Checked=true then

a:=strtofloat(edit2.Text);

hasil:=a*0.1;

edit3.Text:=floattostr(hasil)

end;

procedure TForm1.Button1Click(Sender: TObject);

var a,b,c:real;

begin

         a:=strtofloat(edit2.Text);

         b:=strtofloat(edit3.text);

         c:=a+b;

         edit4.Text:=floattostr(c);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

end.

OUTPUT PROGRAM

1. Saat program diinputkan nama, jabatan dan status pegawai maka keluar tunjamgan statusnya.

2. Saat ditekan tombol total gaji maka keluar gaji bersihnya.

 3. Saat ditekan tombol isi data lagi maka tampilan akan kembali seperti awal