VBPathfinding
1.0.0
用於 VB.NET 的 A* 尋路庫
包括曼哈頓、歐幾裡得、八分位數和切比雪夫啟發式,(預設為曼哈頓)目前不支持對角線尋路
基本用法:
Dim gridTest As Grid = New Grid(10, 10)
gridTest.SetWalkable(0, 1, Fale)
Dim finder As New AStarFinder()
Dim path = finder.FindPath(0, 0, 5, 5, gridTest)
For i = 0 To path.Count - 1
Dim list As List(Of Integer) = path.ElementAt(i)
Debug.WriteLine("X" & i & ": " & list.ElementAt(0))
Debug.WriteLine("Y" & i & ": " & list.ElementAt(1))
Next