Private Sub txtgp_keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtTj.SetFocus
End If
End Sub
Private Sub TxtPot_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtGk = Val(TxtGp) + Val(TxtTj) – Val(TxtPot)
TxtPj = Val(TxtGk) * 0.15
TxtGt = Val(TxtGk) – Val(TxtPj)
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