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

Postingan populer dari blog ini

PEMILIHAN MULI MEKHANAI

cara membuat grafik 3D Plots Surf, Mesh, dan Contour menggunakan matlab

STMIK PRINGSEWU GELAR PRA PENDIDIKAN DASAR MILITER (PRADIKSARMIL)