tugas 3.1

Private Sub cbogolongan_Change()
Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant
Select Case cbogolongan.Text
Case "I"
GAPOK = 1500000
TUNJANGAN = 150000
Case "II"
GAPOK = 2000000
TUNJANGAN = 200000
Case "III"
GAPOK = 2500000
TUNJANGAN = 250000
Case "IV"
GAPOK = 3000000
TUNJANGAN = 300000
Case Else
GAPOK = 0
TUNJANGN = 0
End Select
TOTAL = GAPOK + TUNJANGAN
PAJAK = TOTAL * 0.1
txtgapok.Text = GAPOK
txttunjangan.Text = TUNJANGAN
txtpajak.Text = PAJAK
txttotal.Text = TOTAL - PAJAK





End Sub

Private Sub cmdbatal_Click()
txtnind.SetFocus
txtnind = ""
txtnama = ""
cbogolongan = ""
txtgapok = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""
End Sub

Private Sub cmdkluar_Click()
Unload Me

End Sub

Private Sub cmdlagi_Click()
txtnind.SetFocus
txtnind = ""
txtnama = ""
cbogolongan = ""
txtgapok = ""
txttunjangan = ""
txtpajak = ""
txttotal = ""

End Sub

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

End Sub

Private Sub txtnind_KeyPress(KeyAscii As Integer)
If keyasci = 13 Then
txtnama.srtfocus
End If

End Sub