计数

mengjianyong

Dim 点券,金币,关闭收奖励,关闭快报并接受
Dim i=0,intx,inty,ji

'前面四个参数是找色范围，后面的部分是颜色的特征组
点券 = Array(94, 81, 616, 684, "99B636|A3AF2B|C6D974|A2C636|E7F078|E2EFBA|A4B12C|A8CE2D|A6BD45|9EB536")
金币 = Array(180, 80, 600, 680, "00FFFF", "-1|-6|0FDBFF,7|3|10DFFF")
关闭收奖励 = array(452,889,493,929,"DF580C","15|-15|EB650B,31|2|EC750D,17|17|EB650B")
关闭快报并接受 = Array(315, 685, 348, 766, "FFFFF2", "-3|17|FEEFD3,-2|-25|FBB942")

'循环找三个个特征
  Do   
        If 找色(点券) Then
               ElseIf 找色(金币) Then
                ElseIf 找色(关闭收奖励) then
                ElseIf 找色(关闭快报并接受) Then       
//    Delay 100
        End If
  Loop

'多点找色函数
Function 找色(ResColor)'查找并点击
FindMultiColor ResColor(0),ResColor(1),ResColor(2),ResColor(3),ResColor(4), ResColor(5),0,0.95,intX, intY
If intX > -1 Then
Tap intX, intY
//ji=ji+1
//TracePrint ji
End If
End Function
我想统计 金币 点券的数量，这个该在哪里写 i=i+1
在tap里写，貌似全部度统计了

紫猫

判断里

mengjianyong

紫猫 发表于 2019-11-29 12:28
判断里

在 function 里的  tap 下面么？这不是把所有的 tap都给统计进去了？

紫猫

tap是点击, 我是指判断条件里, 也就是你金币判断条件里

mengjianyong

紫猫 发表于 2019-11-29 15:10
tap是点击, 我是指判断条件里, 也就是你金币判断条件里

我加了，就是没有反应
  Do

  Delay 500

    If 找色(点券) Then
        ShowMessage "找到点券"
            
    ElseIf 找色(金币 Then
        ShowMessage "找到点券"
        If intx > -1 Then
                i = i + 1
                TracePrint i
        End If
            
    ElseIf 找色(关闭收奖励) Then
               
    ElseIf 找色(关闭快报并接受) Then
               
    End If        
  Loop

紫猫

给函数加上返回值, 函数没有返回值, 判断当然不成立