第51课 Function函数返回值语法规则 - 《按键精灵9 · 经典教...

紫猫

教程内容介绍

Function函数比Sub子程序多了一个非常重要的返回值，通过返回值可以实现自创命令的功能。
例如一些常用的功能，我们可以封装成函数代码，实现轻松复用代码。

[按键精灵] 纯文本查看 复制代码

//高级例子
//介绍: 支持多个颜色的限时找色命令
//颜色: 多个颜色以|隔开, 例如"000000|AABBCC", 其他参数与FindColorEx类似
//时长: 单位毫秒, 指定时间内循环查找, 找到立即返回
//返回: 返回数组数据, 格式为[x, y, 序号], 未找到返回[-1, -1, -1]
Function zmFindColor(x1, y1, x2, y2, 颜色, 相似度, 时长)
    Dim colors, i, x, y, t
    zmFindColor = Array(-1, -1, -1)
    colors = Split(颜色, "|")
    t = Plugin.Sys.GetTime()
    Do
        For i = 0 To UBound(colors)
            FindColorEx x1, y1, x2, y2, colors(i), 0, 相似度, x, y
            If x > - 1  Then 
                zmFindColor = Array(x, y, i)
                Exit Function
            End If
        Next
        Delay 10
    Loop While 时长 > Plugin.Sys.GetTime() - t
End Function

//调用例子: 3秒内在指定范围内查找颜色AABBCC或者014DE1, 任何一个找到都返回结果
Dim ret
ret = zmFindColor(100, 200, 400, 500, "AABBCC|014DE1", 0.9, 3000)
If ret(0) > - 1  Then 
    TracePrint "找到坐标x=" & ret(0) & ", 坐标y=" & ret(1) & ", 序号=" & ret(2)
Else 
    TracePrint "没有找到"
End If