Tugas 3 BP1

Private Sub cbogolongan_Click()

Dim gp, pajak, tunjangan, total As Variant

Select Case cbogolongan

Case "I"

gp = 20000000

tunjangan = 2000000

Case "II"

gp = 15000000

tunjangan = 15000000

Case "III"

gp = 2500000

tunjangan = 250000

Case "IV"

gp = 4000000

tunjangan = 400000

Case Else

gp = 0

tunjangan = 0

End Select

total = gp + tunjangan

pajak = total * 0.1

Textgp = gp

Texttunjangan = tunjangan

Textpajak = pajak

Texttotal = total

End Sub

Private Sub Cmdbatal_Click()

Textnidn = ""

Textnp = ""

cbogolongan = ""

Textgp = ""

Texttunjangan = ""

Textpajak = ""

Texttotal = ""

End Sub

Private Sub cmdlagi_Click()

Textnidn = ""

Textnp = ""

cbogolongan = ""

Textgp = ""

Texttunjangan = ""

Textpajak = ""

Texttotal = ""

End Sub

Private Sub Form_Load()

cbogolongan.AddItem "I"

cbogolongan.AddItem "II"

cbogolongan.AddItem "III"

cbogolongan.AddItem "IV"

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Textnidn_KeyPress(keyascii As Integer)

If keyascii = 13 Then

Textnp.SetFocus

End If

End Sub