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 = ""

End Sub