Clase ScreenText Curso de Programación Visual Basic

Lección:

Más sobre Clases


Ejercicio:

Clase ScreenText 7


Objetivo:

Cree una clase ScreenText, para mostrar un texto determinado en coordenadas de pantalla especificadas. Debe tener un constructor que recibirá X, Y y la cadena a escribir. También debe tener 3 setters y un método "Display".

Cree una clase CenteredText, basada en ScreenText, para mostrar texto centrado (horizontalmente) en una fila determinada de la pantalla. Su constructor recibirá solo Y y el texto. SetX no debe cambiar la posición horizontal.

Cree una clase FramedText, para mostrar texto centrado y dentro de un rectángulo. Recibirá la fila inicial y el texto.

Finalmente, cree un programa de prueba para todos ellos, que creará un objeto de cada tipo y los mostrará.


Código:

Imports System
Namespace TextScreen
    Class CenteredText
        Inherits ScreenText
    End Class
End Namespace

Namespace TextScreen
    Class Program
        Private Shared Sub Main(ByVal args As String())
        End Sub
    End Class
End Namespace

Namespace TextScreen
    Class ScreenText
        Protected x, y As Integer
        Protected text As String

        Public Sub New(ByVal x As Integer, ByVal y As Integer, ByVal text As String)
            Me.x = x
            Me.y = y
            Me.text = text
        End Sub

        Public Sub SetX(ByVal x As Integer)
            Me.x = x
        End Sub

        Public Sub SetY(ByVal y As Integer)
            Me.y = y
        End Sub

        Public Sub SetText(ByVal text As String)
            Me.text = text
        End Sub

        Public Sub Display()
            Console.SetCursorPosition(x, y)
            Console.Write(text)
        End Sub
    End Class
End Namespace