MEMBUAT PROGRAM GAJI KARYAWAN [Tugas UTS Semester 2]

Raden Syaifudin 04.43 Algoritma , Delphi 7 , Semester 2 , Tutorial , UTS Semester 2 Tidak ada komentar

ayo siapa yang kerja gak mau di gaji ...!! hmm kayaknya gak ada ya. hehe 10rbx :)

yukk langsung saja menuju TKP.

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

Perlu diperhatikan pada Object TreeView & Objet Inspector Properties harus di sesuaikan dengan object. Lihat gambar dibawah ini

4. Pada tombol PROSES masukkan script dibawah ini pada Code Explorer

procedure TForm1.Button1Click(Sender: TObject);
var
gaji,tot,tunjangan:integer;
begin
gaji:=strtoint(tgaji.Text);
if tgol.Text ='A' then tunjangan:=10000;
if tgol.Text ='B' then tunjangan:=20000;
if tgol.Text ='C' then tunjangan:=30000;
tunj.Caption:=inttostr(tunjangan);
tot:=tunjangan+gaji;
total.Caption:=inttostr(tot);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

end.

Kemudian pada tombol exit tambahkan juga script dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.