aplikasi perhitungan gaji tidak pakai keypress
Private Sub cmdkeluar_Click()
Unload Me
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
Komentar
Posting Komentar