Como crear una excepcion a esto?
Publicado por diego (3 intervenciones) el 19/06/2010 20:55:47
hola, necesito crear una excepcion y no se como hacerlo
tengo el clasico ejemplo de la clase calculadora que suma resta multiplica y divide, se me pidio agregar una excepcion cuando se intenta dividir por cero (DivideByZeroException) y se me pidió crear una clase llamada NumeroNegativoExcepcion que debe poder ser lanzada por cualquier metodo de Calculadora cuando uno de los dos numeros sea negativo, lo cual no se hacer.
Alguien me puede decir como se "crea" y se "lanza" esta excepcion??? gracias
PD: aca va el codigo de lo que tengo hecho hasta ahora
Public Class Calculadora
Private _NumeroUno As Decimal
Public Property NumeroUno() As Decimal
Get
Return _NumeroUno
End Get
Set(ByVal value As Decimal)
_NumeroUno = value
End Set
End Property
Private _NumeroDos As Decimal
Public Property NumeroDos() As Decimal
Get
Return _NumeroDos
End Get
Set(ByVal value As Decimal)
_NumeroDos = value
End Set
End Property
Public Function Sumar() As Decimal
Return Me.NumeroUno + Me.NumeroDos
End Function
Public Function Restar() As Decimal
Return Me.NumeroUno - Me.NumeroDos
End Function
Public Function Multiplicar() As Decimal
Return Me.NumeroUno * Me.NumeroDos
End Function
Public Function Dividir() As Decimal
Dim resultado As Decimal
Try
resultado = Me.NumeroUno / Me.NumeroDos 'intenta esta operación, lo que está entre
'"TRY" y "CATCH" está protegido por la excepción
Catch ex As DivideByZeroException 'si el denominador es CERO, captura la excepción
MessageBox.Show("NO SE PUEDE DIVIDIR POR CERO") 'muestra error
End Try
Return resultado 'devuelve resultado si la división fue OK
End Function
End Class
tengo el clasico ejemplo de la clase calculadora que suma resta multiplica y divide, se me pidio agregar una excepcion cuando se intenta dividir por cero (DivideByZeroException) y se me pidió crear una clase llamada NumeroNegativoExcepcion que debe poder ser lanzada por cualquier metodo de Calculadora cuando uno de los dos numeros sea negativo, lo cual no se hacer.
Alguien me puede decir como se "crea" y se "lanza" esta excepcion??? gracias
PD: aca va el codigo de lo que tengo hecho hasta ahora
Public Class Calculadora
Private _NumeroUno As Decimal
Public Property NumeroUno() As Decimal
Get
Return _NumeroUno
End Get
Set(ByVal value As Decimal)
_NumeroUno = value
End Set
End Property
Private _NumeroDos As Decimal
Public Property NumeroDos() As Decimal
Get
Return _NumeroDos
End Get
Set(ByVal value As Decimal)
_NumeroDos = value
End Set
End Property
Public Function Sumar() As Decimal
Return Me.NumeroUno + Me.NumeroDos
End Function
Public Function Restar() As Decimal
Return Me.NumeroUno - Me.NumeroDos
End Function
Public Function Multiplicar() As Decimal
Return Me.NumeroUno * Me.NumeroDos
End Function
Public Function Dividir() As Decimal
Dim resultado As Decimal
Try
resultado = Me.NumeroUno / Me.NumeroDos 'intenta esta operación, lo que está entre
'"TRY" y "CATCH" está protegido por la excepción
Catch ex As DivideByZeroException 'si el denominador es CERO, captura la excepción
MessageBox.Show("NO SE PUEDE DIVIDIR POR CERO") 'muestra error
End Try
Return resultado 'devuelve resultado si la división fue OK
End Function
End Class
Valora esta pregunta


0