TUGAS 3.1

Private Sub cbogol_Click()
Dim gapok, tunjangan, pajak, total As Variant
Select Case cbogol
Case "I"
gapok = 1500000
tunjangan = 150000
Case "II"
gapok = 2000000
tunjangan = 200000
Case "III"
gapok = 2500000
tunjangan = 250000
Case "IV"
gapok = 3000000
tunjangan = 300000
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
txtgapok = gapok
txtpajak = pajak
txttunjangan = tunjangan
txttotal = total - pajak
End Sub


Private Sub cmdbatal_Click()
txtnpm = ""
txtnama = ""
cbogol = ""
txtgapok = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
txtnpm = ""
txtnama = ""
cbogol = ""
txtgapok = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
txtnpm.SetFocus
End Sub

Private Sub Form_Load()
cbogol.AddItem "I"
cbogol.AddItem "II"
cbogol.AddItem "III"
cbogol.AddItem "IV"
End Sub

Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub