Игра в консоли - вопрос скорости прорисовки сцены

@radioegor146 · Регистрация: 14.11.2013

Author24 — интернет-сервис помощи студентам

Мне надо создать небольшую игру в консоли на VB.NET (2010). Когда я пытаюсь сначала очищать консоль, потом выводить символы, а потом делать промежуток в 20 мс, то консоль всё равно мерцает. Я пробовал сделать нечто вроде буфера:

VB.NET

    Public Const sX = 80
    Public Const sY = 50
 
    Public Screen(sX, sY), Buffer(sX, sY) As Char
    Public ScreenClr(sX, sY), BufferClr(sX, sY) As ConsoleColor
 
    Public Sub RefreshScreen()
        For i As Integer = 0 To sY - 1
            For j As Integer = 0 To sX - 1
                If (Screen(j, i) <> Buffer(j, i)) Or (ScreenClr(j, i) <> BufferClr(j, i)) Then
                    Console.SetCursorPosition(j, i)
                    Buffer(j, i) = Screen(j, i)
                    Console.ForegroundColor = BufferClr(j, i)
                    Console.Write(Buffer(j, i))
                End If
            Next
        Next
    End Sub

то не моргает, но прорисовка выполняется очень медленно.
Я читал, что можно быстро управлять консолью при помощи WinAPI. У меня получилось использовать WinAPI, но как использовать WriteConsoleOutputCharacter? Там требуется аргумент типа COORD. Как его представить в VB.NET?

@Jason · 07.03.2016, 04:07

COORD (kernel32)

VB.NET

    <StructLayout(LayoutKind.Sequential)> _
    Public Structure COORD
    Public X As Short
    Public Y As Short
 
    Public Sub New(ByVal x As Short, ByVal y As Short)
        Me.X = x
        Me.Y = y
    End Sub
    End Structure

	07.03.2016, 04:07