tugas 2.3 aplikasi perhitungan gaji tanpa keypress

Private Sub Cmdkeluar_Click()
End

End Sub

Private Sub Cmdproses_Click()
txtgk = Val(Txtgp) + Val(txttj) - Val(txtpt)
txtpj = Val(txtgk) * 0.1
txtgd = Val(txtgk) - Val(txtpj)
End Sub

Private Sub Cmdulang_Click()
Txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
Txtgp.SetFocus
End Sub