APLIKASI PERHITUNGAN GAJI DENGAN 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

Private Sub textpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textgajikotor = Val(textgajipokok) + Val(texttunjangan) - Val(textpotongan)
textpajak = Val(textgajikotor) * 0.1
textgajiditerima = Val(textgajikotor) - Val(textpajak)
End If
End Sub

Private Sub texttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textpotongan.SetFocus
End If
End Sub