Ayuda ejercicios unidad 18: Ciclo de vida de una clase en VB

1. Crear una clase en la que no se pida ningún requisito para crear un objeto con la misma.

Public Class Ejercicios

Public Sub New()

End Sub

End Class

2. Crear una clase en la que al iniciar una instancia de la clase se tenga que introducir un valor entero, y comprobar que su valor es mayor que cero y menor que diez.

La clase será:

Public Class Ejercicios

Public Sub New()

End Sub

Public Sub New(ByVal Dato As Integer)

Select Case Dato

Case 1 To 9

Case Else

Console.WriteLine("El dato es incorrecto")

End Select

End Sub

End Class

En el programa principal.

Module Module1

Sub Main()

Dim Objeto As Ejercicios = New Ejercicios(20)

Console.ReadLine()

End Sub

End Module

El resultado será

3. Con la clase del ejercicio anterior, añadir una variable interna que se llame Dato, dicha variable será inicializada a cinco, y que tome el valor de la inicialización del objeto en caso de ser válido.

La clase será:

Public Class Ejercicios

Dim Dato As Integer = 5

Public Sub New()

End Sub

Public Sub New(ByVal UnValor As Integer)

Select Case UnValor

Case 1 To 9

Dato = UnValor

Console.WriteLine("El valor de dato es {0} ", Dato)

Case Else

Console.WriteLine("El valor de dato es {0} ", Dato)

Console.WriteLine("El dato es incorrecto")

End Select

End Sub

End Class

El programa principal.

Module Module1

Sub Main()

Dim Objeto As Ejercicios = New Ejercicios(20)

Console.ReadLine()

End Sub

End Module

El resultado será:

1. Con la clase del ejercicio anterior, añadir un método llamado finalizar, y colocar en el un texto que permita visualizar su ejecución. En el programa principal asignar al objeto una vez utilizado una línea que le asigne nothing.

Public Class Ejercicios

Dim Dato As Integer = 5

Public Sub New()

End Sub

Public Sub New(ByVal UnValor As Integer)

Select Case UnValor

Case 1 To 9

Dato = UnValor

Console.WriteLine("El valor de dato es {0} ", Dato)

Case Else

Console.WriteLine("El valor de dato es {0} ", Dato)

Console.WriteLine("El dato es incorrecto")

End Select

End Sub

Public Sub Finalizar()

Console.WriteLine("Ejecución de finalize")

Me.Finalize()

End Sub

End Class

El programa principal sería:

Module Module1

Sub Main()

Dim Objeto As Ejercicios = New Ejercicios(20)

Objeto = Nothing

Objeto.Finalizar()

Console.ReadLine()

End Sub

End Module

El resultado sería erróneo al tener

Objeto = Nothing

Antes de la siguiente línea.

Objeto.Finalizar()

Sería correcto si estuviera:

Module Module1

Sub Main()

Dim Objeto As Ejercicios = New Ejercicios(20)

Objeto.Finalizar()

Objeto = Nothing

Console.ReadLine()

End Sub

End Module

Como figura en el ejemplo, teniendo en cuenta que hay cierta redundancia en el mismo.