الصفحة الرئيسية>المتعلقة بالبرمجة>فيجوال بيسك
تنزيل

اكتشاف المسار باستخدام لغة VB

مكتبة A* Pathfinding لـ VB.NET

تتضمن استدلالات Manhattan وEuclidean وOctile وChebyshev (مانهاتن بشكل افتراضي) لا تدعم حاليًا العثور على مسار قطري

الاستخدام الأساسي: 

 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
يوسع
معلومات إضافية
تطبيقات ذات صلة
نوصي لك
أخبار ذات صلة الكل