MEMBUAT PROGRAM GAJI KARYAWAN [Tugas UTS Semester 2]

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.

  Download Contoh Program disini 
Terima Kasih Atas Kunjungan anda, Semoga Bermanfaat..