2.3 Aplikasi perhitungan gaji tanpa keypress

2.3

 

Private Sub CMDPROSES_Click()

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

TXTPS = Val(TXTGK) * 0.1

TXTGD = Val(TXTGK) - Val(TXTPS)

End Sub

Private Sub CMDRESET_Click()

TXTGP = ""

TXTTN = ""

TXTPN = ""

TXTGK = ""

TXTPS = ""

TXTGD = ""

TXTGP.SetFocus

End Sub

Private Sub CMDKELUAR_Click()

Unload Me

End Sub