Aplikasi Perhitungan gaji tanpa keypress (2.3)

 

Private Sub cmdproses_Click()
txtkot = Val(txtgapok) + Val(txttun) - Val(txtpot)
txtpaj = Val(txtkot) * 0.1
txtgadi = Val(txtkot) - Val(txtpaj)
End Sub

Private Sub cmdreset_Click()
txtgapok = ""
txttun = ""
txtpot = ""
txtkot = ""
txtpaj = ""
txtgadi = ""
txtgapok.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub