basic-computer-games/03_Animal/vbnet/Animal/Shared/ConsoleAdapter.vb

Public Class ConsoleAdapter
    Inherits ConsoleAdapterBase

    Public Overrides Sub Write(value As Object)
        Console.Write(value)
    End Sub

    Public Overrides Sub WriteLine()
        Console.WriteLine()
    End Sub

    Public Overrides Sub WriteCenteredLines(value As Object)
        If Console.CursorLeft <> 0 Then WriteLine()
        Dim toWrite = If(value?.ToString, "")
        For Each line In toWrite.Split(Environment.NewLine)
            Write($"{Space((Console.WindowWidth - line.Length) \ 2)}{line}")
            WriteLine()
        Next
    End Sub

    Public Overrides Function ReadLine() As String
        Dim response As String
        Do
            response = Console.ReadLine
        Loop While response Is Nothing
        Return response.Trim
    End Function
End Class