迷宫生成器删除前一个路径,仅显示当前路径

时间:2018-05-14 17:47:09

标签: vb.net

我在vb.net上制作迷宫生成器。 fullstop(。)表示路径,hashtag(#)表示墙。我的代码打印每个路径,但同时删除以前的路径。我希望它保留以前的路径,以便它可以制作一个完整的迷宫。以下是显示我的意思的屏幕截图:http://prntscr.com/jhsyox

1 个答案:

答案 0 :(得分:1)

在DrawFirstGrid中,不要打印“#”

grid(i, j) = "#"
Console.Write(grid(i, j))

在UpdateGrid中,删除先前执行的所有操作并打印上一个值。

Sub UpdateGrid(ByVal newX, ByVal newY) 'refresh grid when changes are made

    grid(newX, newY) = "."

    For i = 0 To maxColumn
        For j = 0 To maxRow
            Console.Write(grid(i, j))
        Next
        Console.WriteLine()
    Next

End Sub

现在,您应该注意到DrawFirstGrid和UpdateGrid有类似的东西。您可以删除绘图逻辑并改为使用DrawGrid。

Directions数组是无用的,CreatePassage将永远被调用。