2.4 Aplikasi perhitungan gaji menggunakan keypress

 2.4

Private Sub CMDRESET_Click()

TXTGP = ""

TXTTN = ""

TXTPN = ""

TXTGK = ""

TXTPS = ""

TXTGD = ""

TXTGP.SetFocus

End Sub

Private Sub CMDKELUAR_Click()

Unload Me

End Sub

Private Sub TXTGP_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTTN.SetFocus

End If

End Sub

Private Sub TXTTN_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTPN.SetFocus

End If

End Sub

Private Sub TXTPN_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTGK = Val(TXTGP) + Val(TXTTN) - Val(TXTPN)

TXTPS = Val(TXTGK) * 0.1

TXTGD = Val(TXTGK) - Val(TXTPS)

End If

End Sub