Private Sub CboGOLONGAN_Click()
Dim GP, TJ, PAJAK, TOTAL As Variant
Select Case CboGOLONGAN.Text
Case "I"
GP = 1500000
TJ = 150000
Case "II"
GP = 2000000
TJ = 200000
Case "III"
GP = 2500000
TJ = 250000
Case "IV"
GP = 3000000
TJ = 300000
Case Else
GP = 0
TJ = 0
End Select
TOTAL = GP + TJ
PAJAK = TOTAL * 0.1
TXTGP = GP
TXTPAJAK = PAJAK
TXTTJ = TJ
TXTTOTAL = TOTAL - PAJAK
End Sub
Private Sub Form_Load()
CboGOLONGAN.AddItem "I"
CboGOLONGAN.AddItem "II"
CboGOLONGAN.AddItem "III"
CboGOLONGAN.AddItem "IV"
End Sub
Private Sub KELUAR_Click()
Unload Me
End Sub
Private Sub TXTNPM_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TXTNP.SetFocus
End If
End Sub
Tidak ada komentar:
Posting Komentar