APLIKASI PERHITUNGAN GAJI
Private Sub cmdkluar_Click()
Unload Me
End Sub
Private Sub cmdproses_Click()
txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text)
txtpj.Text = Val(txtgk.Text) * (0.1)
txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text)
End Sub
Private Sub cmdulang_Click()
txtgp = ""
txttj = ""
txtpt = ""
txtgk = ""
txtpj = ""
txtgd = ""
End Sub
Komentar
Posting Komentar