计数

mengjianyong · 发表于 2019-11-28 22:10:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

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里写，貌似全部度统计了

紫猫 · 发表于 2019-11-29 12:28:55

判断里

mengjianyong · 发表于 2019-11-29 13:33:56

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

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

紫猫 · 发表于 2019-11-29 15:10:24

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

mengjianyong · 发表于 2019-11-29 17:17:29

本帖最后由 mengjianyong 于 2019-11-29 17:20 编辑

紫猫发表于 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

紫猫 · 发表于 2019-11-29 17:33:15

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

		自动登录	找回密码
密码			立即注册

[已回复] 计数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。