原创力文档- 1、本文档共12页，其中可免费阅读4页，需付费100金币后方可阅读剩余内容。
- 2、本文档内容版权归属内容提供方，所产生的收益全部归内容提供方所有。如果您对本文有版权争议，可选择认领，认领后既往收益都归您。
- 3、本文档由用户上传，本站不保证质量和数量令人满意，可能有诸多瑕疵，付费之前，请仔细先通过免费阅读内容等途径辨别内容交易风险。如存在严重挂羊头卖狗肉之情形，可联系本站下载客服投诉处理。
- 4、文档侵权举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
寻路算法地图状态开放列表开放列表元素个数目标序号寻路函数地图障碍物数据路径列表路径长度起始点地图障碍物数据路径列表路径长度起始点目标点地图宽度地图高度输出参数类型寻路结果地图格式不正确目标为障碍点寻路成功寻路失败无法到达已经到达终点目标被占寻路过程中发生错误寻路循环用变量点的序号或者总数变化常量数组序号变化常量数组序号变化量判断地图地图数据不正确目标序号判断是否为障碍物可以通过或者是门点否则退出寻路设置常数数组该数组决定了寻路的优先顺序地图总点数初始化数据地图总点数起始点进入开放列表就是终点保存
、 A* 寻路算法
Attribute VB_Name = "mFindPath"
Option Explicit
Dim arrBap() As bPointDim arrOpen() As fsPoint
Dim arrBap() As bPoint
Dim arrOpen() As fsPoint
Dim lOpenSize As Long
Dim TCount As Long
'地图状态
'开放列表
'开放列表元素个数
'目标序号
'※※※※ A* 寻路函数※※※※※※※※※
地图障碍物数据路径列表路径长度 起始点
地图障碍物数据
路径列表
路径长度 起始点
目标点
地图宽度
地图高度
文档评论（0）