Private Sub cmdproses_Click()
Txtgk = Val(txtgapok) + Val(txttj) -
Val(txtpt)
Txtpj = Val(Txtgk) * 0.25
Txtgd= Val(Txtgk) - Val(Txtpj)
End Sub
Private Sub cmdulang_Click()
txtgapok = ""
txttj = ""
txtpt = ""
Txtgk = ""
Txtpj = ""
Txtgd = ""
txtgapok.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Unload Me
End Sub
Private Sub txtgapok_keypress(keyascii As
Integer)
If keyascii = 13 Then
txttj.SetFocus
End If
End Sub
Private Sub txtpt_keypress(keyascii As
Integer)
If keyascii = 13 Then
Txtgk = Val(txtgapok) + Val(txttj) -
Val(txtpt)
Txtpj = Val(Txtgk) * 0.25
Txtditerima = Val(Txtgk) - Val(Txtpj)
End If
End Sub
Private Sub txttj_keypress(keyascii As
Integer)
If keyascii = 13 Then
txtpt.SetFocus
End If
End Sub