APLIKASI GAJI

Private Sub cmdkeluar_Click()
End

End Sub

Private Sub cmdproses_Click()
txtgator = Val(txtgapok) + Val(txttunjangan) - Val(txtpotongan)
txtpajak = Val(txtgator) * 0.1
txtgajiterima = Val(txtgator) - Val(txtpajak)
End Sub

Private Sub cmdulang_Click()
txtgapok.SetFocus
txtgapok = ""
txttunjangan = ""
txtpotongan = ""
txtpajak = ""
txtgator = ""
txtgajiterima = ""
End Sub

Private Sub txtgapok_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttunjangan.SetFocus
End If

End Sub




Private Sub txtpotongan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgator = Val(txtgapok) + Val(txttunjangan) - Val(txtpotongan)
txtpajak = Val(txtgator) * 0.1
txtgajiterima = Val(txtgator) - Val(txtpajak)
End If
End Sub

Private Sub txttunjangan_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpotongan.SetFocus
End If

End Sub