指定区域找色

Suky

前天给论坛网友提供了一个区域找色的写法
搜了一下发现论坛上没有相关源码或者标题关键字
在此将子程序模块化后分享给初学者

源码扩展思路（只是个想法，没写）
①找到目标色值后不跳出循环，将寻找结果加入数组继续寻找，寻找结束返回所有结果
②颜色模糊查找，目标色值设定偏差，嵌套一个茶色数组加入循环查找
③识图方向，模糊识图，取指定图片指定若干坐标点颜色值，依照各坐标点的坐标差作为坐标定位，在区域找色匹配(工作量似乎有点大，而且好像没必要)


源码主体：
程序集  Adm_图色
自定义数据类型  Adm_取色

其余内容为测试和调用示例

调用了精易模块命令    窗口_取坐标处颜色()

  

子程序名	返回值类型	公开	备 注
Adm_区域找色	Adm_取色		在指定窗口区域查找颜色，返回查找结果，返回值为自定数据类型，包含成员：结果_逻辑型，X_整数型，Y_整数型
参数名	类 型	参考	可空	数组	备 注
参_窗口句柄	整数型				目标窗口句柄,整数型
参_起点	Adm_取色				找色起点坐标，自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型，此处需提供X、Y值
参_终点	Adm_取色				找色终点坐标，自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型，此处需提供X、Y值
参_目标颜色	整数型				欲寻找的颜色值，十进制整数型

变量名	类 型	静态	数组	备 注
i	整数型			列循环增量
n	整数型			行循环增量
局_临时变量	整数型
局_找色	Adm_取色			自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型
局_颜色	整数型

如果真 (参_起点.X ＞ 参_终点.X)  ' 参数调节
局_临时变量 ＝ 参_起点.X
参_起点.X ＝ 参_终点.X
参_终点.X ＝ 局_临时变量

如果真 (参_起点.Y ＞ 参_终点.Y)  ' 参数调节
局_临时变量 ＝ 参_起点.Y
参_起点.Y ＝ 参_终点.Y
参_终点.Y ＝ 局_临时变量

判断 (参_起点.X ＞ 0 且 参_起点.Y ＞ 0)
i ＝ 0  ' 定义列增量初始值，增量为0，从起点Y开始搜索
变量循环首 (参_起点.Y, 参_终点.Y, 1, i)  ' 外层循环，纵向搜索列
n ＝ 0  ' 定义行增量初始值，增量为0，从起点X开始搜索
变量循环首 (参_起点.X, 参_终点.X, 1, n)  ' 内层循环，横向搜索行
局_找色.X ＝ 参_起点.X ＋ n  ' 当前取色点横坐标X
局_找色.Y ＝ 参_起点.Y ＋ i  ' 当前取色点纵坐标Y
局_颜色 ＝ 窗口_取坐标处颜色 (参_窗口句柄, 局_找色.X, 局_找色.Y)
如果真 (局_颜色 ＝ 参_目标颜色)  ' 已找到目标，跳出行取色循环(内层循环)
跳出循环 ()

变量循环尾 ()
如果真 (局_颜色 ＝ 参_目标颜色)  ' 找到目标，跳出列取色循环(外层循环)
局_找色.结果 ＝ 真
跳出循环 ()

如果真 (参_起点.Y ＋ i ≥ 参_终点.Y 且 局_颜色 ≠ 参_目标颜色)  ' 到最后一行循环结束了还没找到指定颜色
局_找色.结果 ＝ 假
局_找色.X ＝ -1
局_找色.Y ＝ -1

变量循环尾 ()
返回 (局_找色)
信息框 (“搜索区域超出窗口范围”, 0, “提示”, )
返回 (局_找色)

.版本 2<br /> <br /> .子程序 Adm_区域找色, Adm_取色, , 在指定窗口区域查找颜色，返回查找结果，返回值为自定数据类型，包含成员：结果_逻辑型，X_整数型，Y_整数型<br /> .参数 参_窗口句柄, 整数型, , 目标窗口句柄,整数型<br /> .参数 参_起点, Adm_取色, , 找色起点坐标，自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型，此处需提供X、Y值<br /> .参数 参_终点, Adm_取色, , 找色终点坐标，自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型，此处需提供X、Y值<br /> .参数 参_目标颜色, 整数型, , 欲寻找的颜色值，十进制整数型<br /> .局部变量 i, 整数型, , , 列循环增量<br /> .局部变量 n, 整数型, , , 行循环增量<br /> .局部变量 局_临时变量, 整数型<br /> .局部变量 局_找色, Adm_取色, , , 自定数据类型,包含成员：结果_逻辑型，X_整数型，Y_整数型<br /> .局部变量 局_颜色, 整数型<br /> <br /> .如果真 (参_起点.X ＞ 参_终点.X)  ' 参数调节<br />     局_临时变量 ＝ 参_起点.X<br />     参_起点.X ＝ 参_终点.X<br />     参_终点.X ＝ 局_临时变量<br /> .如果真结束<br /> <br /> .如果真 (参_起点.Y ＞ 参_终点.Y)  ' 参数调节<br />     局_临时变量 ＝ 参_起点.Y<br />     参_起点.Y ＝ 参_终点.Y<br />     参_终点.Y ＝ 局_临时变量<br /> .如果真结束<br /> <br /> .判断开始 (参_起点.X ＞ 0 且 参_起点.Y ＞ 0)<br />     i ＝ 0  ' 定义列增量初始值，增量为0，从起点Y开始搜索<br />     .变量循环首 (参_起点.Y, 参_终点.Y, 1, i)  ' 外层循环，纵向搜索列<br />         n ＝ 0  ' 定义行增量初始值，增量为0，从起点X开始搜索<br />         .变量循环首 (参_起点.X, 参_终点.X, 1, n)  ' 内层循环，横向搜索行<br />             局_找色.X ＝ 参_起点.X ＋ n  ' 当前取色点横坐标X<br />             局_找色.Y ＝ 参_起点.Y ＋ i  ' 当前取色点纵坐标Y<br />             局_颜色 ＝ 窗口_取坐标处颜色 (参_窗口句柄, 局_找色.X, 局_找色.Y)<br />             .如果真 (局_颜色 ＝ 参_目标颜色)  ' 已找到目标，跳出行取色循环(内层循环)<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .变量循环尾 ()<br />         .如果真 (局_颜色 ＝ 参_目标颜色)  ' 找到目标，跳出列取色循环(外层循环)<br />             局_找色.结果 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />         .如果真 (参_起点.Y ＋ i ≥ 参_终点.Y 且 局_颜色 ≠ 参_目标颜色)  ' 到最后一行循环结束了还没找到指定颜色<br />             局_找色.结果 ＝ 假<br />             局_找色.X ＝ -1<br />             局_找色.Y ＝ -1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br />     返回 (局_找色)<br /> .默认<br />     信息框 (“搜索区域超出窗口范围”, 0, “提示”, )<br />     返回 (局_找色)

  

数据类型名	公开	备 注
Adm_取色		Adm_区域找色
成员名	类 型	传址	数组	备 注
结果	逻辑型
X	整数型
Y	整数型

.版本 2<br /> <br /> .数据类型 Adm_取色, , Adm_区域找色<br />     .成员 结果, 逻辑型<br />     .成员 X, 整数型<br />     .成员 Y, 整数型

wuqingg

当然要支持一下啦

Suky

wuqingg 发表于 2021-11-18 08:37
当然要支持一下啦

谢谢

一C

有例子更好

shicui

下载来研究一下，感谢分享

xjshuaishuai

谢谢分享！

Suky

找色区域是矩形区域，测试发现起始点和终点坐标处的取色有时候会找不到
没找出bug原因，希望有大佬帮忙看看代码，指出问题所在

qq2518

瞧瞧看。感谢分享

杨明煜

真值得学习，感谢！......

singlecolor