22 April 2010

Program Visual Basik: Membuat Weekly Payroll (Gaji PerJam)

22 April 2010
Sekarang Kita akan membuat sebuah sistem pembayaran Gaji per Jam ( Weekly Payroll). Design formnya akan seperti ini:

Dengan Ketentuan:
1. Inputkan employee name, hours worked, deduction amount (potongan gaji).
2. Pilih rate-nya.
3. Lakukan perhitungan Gross salary (Gross salary = rate * hours worked) dan Net salary (gross salary – deductions).
4. Setelah didapat Net Salary lalu klik tombol Category. Saat user klik tombol Category maka munculkan MsgBox untuk menampilkan Nama Karyawan dan Grade Gaji Karyawan tersebut, dengan kategori sebagai berikut :
$501 - $600 = Very Good
$401 - $500 = Good
$301 - $400 = Not Bad
<$300 = :(


Cara Membuat:
a.Pertama Kita buat dulu desaign awal formnya seperti di bawah ini:


b. Kemudian Kita atur propertiesnya seperti di bawah ini


c.Sekarang Formnya akan berubah menjadi seperti ini:


d.Waktunya untuk Pengcodingan, Klik 2 kali pada form kemudian pilih:

1. General
Tuliskan Coding berikut:

Dim JamKerja, Pajak As Integer
Dim TotalKotor, TotalBersih As Single

2. Form
Private Sub Form_Load()
TxtNama.Text = ""
TxtHrsWrk.Text = " "
TxtDeduction = " "
End Sub

3. OptA
Private Sub OptA_Click()
JamKerja = TxtHrsWrk.Text
TotalKotor = JamKerja * 10
End Sub

4. OptB
Private Sub OptB_Click()
JamKerja = TxtHrsWrk.Text
TotalKotor = JamKerja * 12.5
End Sub

5. OptC
Private Sub OptC_Click()
JamKerja = TxtHrsWrk.Text
TotalKotor = JamKerja * 15
End Sub

6. Confirm
Private Sub CmdConfirm_Click()
JamKerja = TxtHrsWrk.Text
Pajak = TxtDeduction.Text
TotalBersih = (TotalKotor - Pajak)
TxtGross.Text = TotalKotor
TxtNet.Text = TotalBersih
End Sub

7. Category
Private Sub CmdCategory_Click()
If TotalBersih >= 501 And TotalBersih <= 600 Then
MsgBox TxtNama.Text + " is Very Good", vbInformation, "INFO!"
ElseIf TotalBersih >= 401 And TotalBersih <= 500 Then
MsgBox TxtNama.Text + " is Good", vbInformation, "INFO!"
ElseIf TotalBersih >= 301 And TotalBersih <= 400 Then
MsgBox TxtNama.Text + " is NotBad", vbInformation, "INFO!"
ElseIf TotalBersih < 301 Then
MsgBox TxtNama.Text + " is :'(", vbInformation, "INFO!"
Else
MsgBox "Anda salah input", vbInformation, "WARNING!"
End If
End Sub

8. Exit
Private Sub CmdExit_Click()
End
End Sub



e.Sekarang jalankan Program:


2 comments:

Anonim mengatakan...

bs jalan kan k ??
klu g bs aq bs minta tolong bantu g ??

Opie Eyek mengatakan...

:g: okeh
ntar ada bug, kasi tau ajah :)
.
selamat mencoba!

Poskan Komentar

sampaikan komentar dengan sopan dan bertanggung jawab :)