来给易按键大佬帮忙翻译成易代码

幕凉

Function GetColorNum_HSV(x1, y1, x2, y2, color_, sim)
y2 = y2 - 1
Dim num
num = 0
Dim x, y
For x = x1 To x2
For y = y1 To y2
If CmpColor_HSV(x, y, color_, sim) = 0 Then
num = num + 1
End If
Next
Next
GetColorNum_HSV = num
End Function

梦寻简单

  

子程序名	返回值类型	公开	备 注
GetColorNum_HSV	整数型
参数名	类 型	参考	可空	数组	备 注
x1	整数型
y1	整数型
x2	整数型
y2	整数型
color_	文本型

变量名	类 型	静态	数组	备 注
num
x
y

y2 ＝ y2 － 1
变量循环首 (x1, x2, 1, x)
变量循环首 (y1, y2, 1, y)
如果真 (CmpColor_HSV (x, y, color_) ＝ 0)
num ＝ num ＋ 1

变量循环尾 ()
变量循环尾 ()
返回 (num)

子程序名	返回值类型	公开	备 注
CmpColor_HSV	整数型
参数名	类 型	参考	可空	数组	备 注
x	整数型
y	整数型
color_	文本型

变量名	类 型	静态	数组	备 注
待对比的颜色组	文本型		0
待对比的颜色组数量	整数型
i
当前待对比的颜色组	文本型		0
当前待对比的HSV字符串	文本型
当前待对比的H值
当前待对比的S值
当前待对比的V值
当前待对比的HSV偏色字符串	文本型		0
当前待对比的H偏色
当前待对比的S偏色
当前待对比的V偏色
目标点HSV字符串	文本型
目标点HSV数组	文本型		0
目标点H值
目标点S值
目标点V值

待对比的颜色组 ＝ 分割文本 (color_, “|”, )
待对比的颜色组数量 ＝ 取数组成员数 (待对比的颜色组)
' 请换成任意能获取指定点HSV颜色的方法
' 以dm插件为例
目标点HSV字符串 ＝ dm.GetColorHSV (x, y)
目标点HSV数组 ＝ 分割文本 (目标点HSV字符串, “.”, )
目标点H值 ＝ 到整数 (目标点HSV数组 [1])
目标点S值 ＝ 到整数 (目标点HSV数组 [2])
目标点V值 ＝ 到整数 (目标点HSV数组 [3])
计次循环首 (待对比的颜色组数量, i)
当前待对比的颜色组 ＝ 分割文本 (待对比的颜色组 [i], “-”, )
当前待对比的HSV字符串 ＝ 分割文本 (当前待对比的颜色组 [1], “.”, )
当前待对比的HSV偏色字符串 ＝ 分割文本 (当前待对比的颜色组 [2], “.”, )
当前待对比的H值 ＝ 到整数 (当前待对比的HSV字符串 [1])
当前待对比的S值 ＝ 到整数 (当前待对比的HSV字符串 [2])
当前待对比的V值 ＝ 到整数 (当前待对比的HSV字符串 [3])
当前待对比的H偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [1])
当前待对比的S偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [2])
当前待对比的V偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [3])
如果真 (取绝对值 (目标点H值 － 当前待对比的H值) ≤ 当前待对比的H偏色 且 取绝对值 (目标点S值 － 当前待对比的S值) ≤ 当前待对比的S偏色 且 取绝对值 (目标点V值 － 当前待对比的V值) ≤ 当前待对比的V偏色)
返回 (0)

计次循环尾 ()
返回 (1)

.版本 2<br /> <br /> .子程序 GetColorNum_HSV, 整数型<br /> .参数 x1, 整数型<br /> .参数 y1, 整数型<br /> .参数 x2, 整数型<br /> .参数 y2, 整数型<br /> .参数 color_, 文本型<br /> .局部变量 num<br /> .局部变量 x<br /> .局部变量 y<br /> <br /> y2 ＝ y2 － 1<br /> .变量循环首 (x1, x2, 1, x)<br />     .变量循环首 (y1, y2, 1, y)<br />         .如果真 (CmpColor_HSV (x, y, color_) ＝ 0)<br />             num ＝ num ＋ 1<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 返回 (num)<br /> <br /> .子程序 CmpColor_HSV, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .参数 color_, 文本型<br /> .局部变量 待对比的颜色组, 文本型, , "0"<br /> .局部变量 待对比的颜色组数量, 整数型<br /> .局部变量 i<br /> .局部变量 当前待对比的颜色组, 文本型, , "0"<br /> .局部变量 当前待对比的HSV字符串, 文本型<br /> .局部变量 当前待对比的H值<br /> .局部变量 当前待对比的S值<br /> .局部变量 当前待对比的V值<br /> .局部变量 当前待对比的HSV偏色字符串, 文本型, , "0"<br /> .局部变量 当前待对比的H偏色<br /> .局部变量 当前待对比的S偏色<br /> .局部变量 当前待对比的V偏色<br /> .局部变量 目标点HSV字符串, 文本型<br /> .局部变量 目标点HSV数组, 文本型, , "0"<br /> .局部变量 目标点H值<br /> .局部变量 目标点S值<br /> .局部变量 目标点V值<br /> <br /> 待对比的颜色组 ＝ 分割文本 (color_, “|”, )<br /> 待对比的颜色组数量 ＝ 取数组成员数 (待对比的颜色组)<br /> <br /> ' 请换成任意能获取指定点HSV颜色的方法<br /> ' 以dm插件为例<br /> 目标点HSV字符串 ＝ dm.GetColorHSV(x, y)<br /> <br /> 目标点HSV数组 ＝ 分割文本 (目标点HSV字符串, “.”, )<br /> 目标点H值 ＝ 到整数 (目标点HSV数组 [1])<br /> 目标点S值 ＝ 到整数 (目标点HSV数组 [2])<br /> 目标点V值 ＝ 到整数 (目标点HSV数组 [3])<br /> <br /> <br /> .计次循环首 (待对比的颜色组数量, i)<br />     当前待对比的颜色组 ＝ 分割文本 (待对比的颜色组 <i>, “-”, )<br />     当前待对比的HSV字符串 ＝ 分割文本 (当前待对比的颜色组 [1], “.”, )<br />     当前待对比的HSV偏色字符串 ＝ 分割文本 (当前待对比的颜色组 [2], “.”, )<br /> <br />     当前待对比的H值 ＝ 到整数 (当前待对比的HSV字符串 [1])<br />     当前待对比的S值 ＝ 到整数 (当前待对比的HSV字符串 [2])<br />     当前待对比的V值 ＝ 到整数 (当前待对比的HSV字符串 [3])<br /> <br />     当前待对比的H偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [1])<br />     当前待对比的S偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [2])<br />     当前待对比的V偏色 ＝ 到整数 (当前待对比的HSV偏色字符串 [3])<br /> <br />     .如果真 (取绝对值 (目标点H值 － 当前待对比的H值) ≤ 当前待对比的H偏色 且 取绝对值 (目标点S值 － 当前待对比的S值) ≤ 当前待对比的S偏色 且 取绝对值 (目标点V值 － 当前待对比的V值) ≤ 当前待对比的V偏色)<br />         返回 (0)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (1)

发也不发完整，全靠猜？

woaini12351

坐等大佬

多多多多

精币悬赏的太少了