Ejercicio
Clase ScreenText
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