tugas2.3

Private Sub txtgp_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtTj.SetFocus

End If

End Sub

 

Private Sub txttj_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtPot.SetFocus

End If

End Sub

Private Sub cmdproses_click()

TxtGk = Val(TxtGp) + Val(TxtTj) – Val(TxtPot)

TxtPj = Val(TxtGk) * 0.15

TxtGt = Val(TxtGk) – Val(TxtPj)

End Sub

Private Sub cmdulang_click()

TxtGp.SetFocus

TxtGp = “”

TxtTj = “”

TxtPot = “”

TxtGk = “”

TxtPj = “”

TxtGt = “”

End Sub

Private Sub cmdkeluar_click()

Unload Me

End Sub