tugas 3_1

Private Sub cbogolongan_Click()
Dim gaji, pajak, tunjangan, terima As Variant
Select Case cbogolongan
Case "I"
gaji = 1750000
tunjangan = 175000
Case "II"
gaji = 2500000
tunjangan = 250000
Case "III"
gaji = 3250000
tunjangan = 325000
Case "IV"
gaji = 4000000
tunjangan = 400000
End Select
total = gaji + tunjangan
pajak = total * 0.1
textgaji = gaji
texttunjangan = tunjangan
textpajak = pajak
textterima = total - pajak
End Sub

Private Sub cmdbatal_Click()
textnidn = ""
textnama = ""
cbogolongan = ""
textgaji = ""
texttunjangan = ""
textpajak = ""
textterima = ""
textnidn.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
textnidn = ""
textnama = ""
cbogolongan = ""
textgaji = ""
texttunjangan = ""
textpajak = ""
textterima = ""
textnidn.SetFocus
End Sub

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


Private Sub textnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textnama.SetFocus
End If
End Sub