Program Menghitung Gaji

Untuk minggu ini, program yang saya buat adalah program “Menghitung Gaji Karyawan”. Berikut tampilan visualnya :

Listing nya kurang lebih seperti ini:

1.       Pada Button1 ( OK )

procedure TForm1.Button1Click(Sender: TObject);

var gaji,HK,gp,gh:integer;

begin

gp:= 1000000;

gh:= 400000;

HK:= strtoint (Edit2.Text);

gaji:= (HK*gh+gp) ;

Edit3.Text :=Edit1.Text + ' , ' + Edit4.Text + ' ' + 'Gaji Anda Adalah' + ' ' + inttostr (gaji);

end;

2.       Button2 ( CLEAR )

procedure TForm1.Button2Click(Sender: TObject);

begin

Edit1.Text := ' ';

Edit2.Text := ' ';

Edit3.Text := ' ';

Edit4.Text := ' ';

end;

3.    Button3 ( END )

procedure TForm1.Button3Click(Sender: TObject);

begin

Application.Terminate;

end;

end.

Berikut hasil ouputnya

Semoga tulisan ini bermanfaat bagi kita semua, Terima Kasih...