LATIHAN 2 : Menghitung Gaji berdasarkan Golongannya

NAMA  : SITI ASMAUL SADEYAH
KELAS  : 2B
NIM       : 114224069


Assalamu'alaikum, hai guysss...
Balik lagi nih, udah lama gak nyoret-nyoret yah hehehe :D
Kali ini aku kan membagi sebuah program input untuk menentukan jumlah gaji beserta tunjangannya berdasarkan golongannya. Misalkan karyawan sebuah pabrik dikelompokkan berdasarkan golongannya. Upah perjam tiap karyawan bergantung pada golongannya dengan ketentuan:
A: dengan tunjangan 10000
B: dengan tunjangan 20000
C: dengan tunjangan 30000

Dan program yang kita buat tampilannya seperti pada gambar berikut ini..

Program ini bisa digunakan untuk memudahkan para personalia dalam mengelola dan menentukan gaji karyawannya tanpa kuatir salah menghitung. Karena terkadang kalo kita menghitung menghitung dengan media kalkulator kita lupa apakah angka yang kita masukkan sudah benar atau malah keliru. Nah, dengan program ini kita bisa melihat dan mendeteksi kesalahan dalam memasukkan data.
Untuk membuat program ini caranya gampang banget.  nih langsung aja. (Ikuti STEP)..........

1. Pastikan komputer kalian udah terinstal aplikasi Delphi yah?
2. Buka aplikasi Delphi kalian, kemudian pilih File >> New >> VLC Forms Application. Oh ya, aku pake Aplikasi Delphi yang versi 2010. Setelah aplikasi running  pilih toolbar Label dan buat nama-nama dengan mengganti Caption-nya seperti pada gambar di bawah ini
   
3.  Selanjutnya buat kotak dari toolbar Edit disamping nama-nama tadi. Hapus Textnya untuk toolbar Edit1 yang kotak disamping 'Nama'
   
   
   
   
4. Ganti Name-nya pada Object inspector dengan keterangan : Edit2 pada Name dengan tGaji (baca: untuk jumlah gaji) dan Edit3 dengan  tGol (baca: untuk jenis golongan). Lakukan langkah seperti gambar dibawah ini. 
   
5. Langkah berikutnya buat dua nama dengan menggunakan toolbar Label dengan mengganti Name-nya pada Obect Inspector dengan keterangan Tunj dan Total dibawah kotak edit Golongan. 
   
6. Tambahkan tombol Proses dan Close dengan menggunakan toolbar Button, letakkan sesuai dengan gambar beikut.
   
7.  Klik ganda Button PROSES dan ketikkan script dibawah ini. Button/tombol proses digunakan untuk  memproses hasil dari data yang kita masukkan.
   var
   gaji,tot,tunjang :integer;
   begin
   gaji:=StrToInt(tGaji.Text);
   if tGol.Text ='A' then tunjang:=10000;
   if tGol.Text ='B' then tunjang:=20000;
   if tGol.Text ='C' then tunjang:=30000;
   Tunj.Caption := IntToStr(Tunjang);
   tot:=Tunjang+Gaji;
   Total.Caption :=IntToStr(Tot);
   end;
   
   
   
8. Langkah selanjutnya ketikkan "CLOSE" pada button/tombol close. Tombol Close ini berfungsi untuk menghentikan program dan kembali ke jendela sebelumnya.
   
9. Setelah selesai, jalankan programnya dengan mengklik toolbar play. Ketka program running tampilannya seperti berikut.
   
10. Tes program ini dengan memasukkan data-data yang dibutuhkan kemudian klik button PROSES ntuk mengetahui hasilnya.
    
11. Tarraaaaaaa.... ini hasil dari input data tadi.
    
12. Program berahasil. Sempurna bukan?

Semoga bermanfaat, kritik dan saran sangat membantu :D
So, leave me your message. Tenkyuu udah mau baca coretan aku hehe..
See you again guys.. Wassalamu'alaikum...