APLIKASI PERHITUNGAN GAJI
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
Tidak ada komentar:
Posting Komentar