易语言Opencv A*寻路实现

z13228604287

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
启点	点2i类
反地图	多维矩阵类
绘制地图	多维矩阵类
地图	多维矩阵类
终点	点2i类

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
数据	字节型		0

地图.从字节集加载 ( #图片2, #读图_彩色 )
视觉_颜色空间转换 (地图, 反地图, #颜色_BGR转GRAY, 0)
视觉_阈值 (反地图, 反地图, 1, 255, #阈值_二进制_取反 )
视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸 )
视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)
视觉_显示图像 (“小白鼠”, 反地图)
视觉_等待按键 (0)
返回 (0)  ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
鼠标事件
参数名	类 型	参考	可空	数组	备 注
event	整数型				见 常量 #事件_*
x	整数型				鼠标事件的 x 坐标
y	整数型				鼠标事件的 y 坐标
flags	整数型				见 常量 #事件_标志_*

变量名	类 型	静态	数组	备 注
路径	整数型		0
i	整数型

如果真 (event ＝ #事件_按下右键 )  ' 单击右键
如果真 (启点.左边 ≠ 0 且 启点.顶边 ≠ 0)
路径 ＝ 视觉_A星寻路 (反地图, 启点.左边, 启点.顶边, x, y, 500, 540, 假)
如果真 (取数组下标 (路径, 1) ≠ 0)
绘制地图 ＝ 地图.克隆 ()
计次循环首 (取数组下标 (路径, 1) － 1, i)
视觉_线 (绘制地图, 点2i (路径 [i] [1], 路径 [i] [2]), 点2i (路径 [i ＋ 1] [1], 路径 [i ＋ 1] [2]), 标量 (0, 0, 255), 2, 8, 0)
计次循环尾 ()
视觉_显示图像 (“小白鼠”, 绘制地图)


如果真 (event ＝ #事件_按下左键 )  ' 单击左键，输出坐标
启点.初始化 (x, y)
视觉_控制台输出 (“%point2i\n”, 启点)

i支持库列表	支持库注释
OpenCV	(未知支持库)

.版本 2<br /> .支持库 OpenCV<br /> <br /> .程序集 程序集1<br /> .程序集变量 启点, 点2i类<br /> .程序集变量 反地图, 多维矩阵类<br /> .程序集变量 绘制地图, 多维矩阵类<br /> .程序集变量 地图, 多维矩阵类<br /> .程序集变量 终点, 点2i类<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 数据, 字节型, , "0"<br /> <br /> 地图.从字节集加载 (#图片2, #读图_彩色)<br /> 视觉_颜色空间转换 (地图, 反地图, #颜色_BGR转GRAY, 0)<br /> 视觉_阈值 (反地图, 反地图, 1, 255, #阈值_二进制_取反)<br /> 视觉_创建窗口 (“小白鼠”, #窗口_自动尺寸)<br /> 视觉_设置鼠标事件 (“小白鼠”, &鼠标事件, 0)<br /> 视觉_显示图像 (“小白鼠”, 反地图)<br /> 视觉_等待按键 (0)<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 鼠标事件<br /> .参数 event, 整数型, , 见 常量 #事件_*<br /> .参数 x, 整数型, , 鼠标事件的 x 坐标<br /> .参数 y, 整数型, , 鼠标事件的 y 坐标<br /> .参数 flags, 整数型, , 见 常量 #事件_标志_*<br /> .局部变量 路径, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> .如果真 (event ＝ #事件_按下右键)  ' 单击右键<br /> <br />     .如果真 (启点.左边 ≠ 0 且 启点.顶边 ≠ 0)<br />         路径 ＝ 视觉_A星寻路 (反地图, 启点.左边, 启点.顶边, x, y, 500, 540, 假)<br />         .如果真 (取数组下标 (路径, 1) ≠ 0)<br />             绘制地图 ＝ 地图.克隆 ()<br />             .计次循环首 (取数组下标 (路径, 1) － 1, i)<br />                 视觉_线 (绘制地图, 点2i (路径 <i> [1], 路径 <i> [2]), 点2i (路径 [i ＋ 1] [1], 路径 [i ＋ 1] [2]), 标量 (0, 0, 255), 2, 8, 0)<br />             .计次循环尾 ()<br />             视觉_显示图像 (“小白鼠”, 绘制地图)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> .如果真 (event ＝ #事件_按下左键)  ' 单击左键，输出坐标<br />     启点.初始化 (x, y)<br />     视觉_控制台输出 (“%point2i\n”, 启点)<br /> .如果真结束

花间一壶酒

耍耍 发表于 2024-9-8 11:46
楼主支持库能分享一下么

这吊毛卖支持库的 400块

liang158

感谢分享

zxxiaopi

感谢分享

耍耍

楼主支持库能分享一下么

jeff1314

6666666666666666666666

liang158

谢谢分享！

jialink

学习一下 感谢

邓福坤

看不懂就分享个截图

邓福坤

未知支持库