APLIKASI PERHITUNGAN GAJI TANPA KEYPRESS

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
textgajikotor = Val(textgajipokok) + Val(texttunjangan) - Val(textpotongan)
textpajak = Val(textgajikotor) * 0.1
textgajiditerima = Val(textgajikotor) - Val(textpajak)
End Sub


Private Sub cmdulang_Click()
textgajipokok = ""
texttunjangan = ""
textpotongan = ""
textgajikotor = ""
textpajak = ""
textgajiditerima = ""
End Sub