• 按键公众号 ：
按键精灵电脑版
立即下载

软件版本：2014.06
软件大小：22.9M
更新时间：2021-12-03

按键精灵安卓版
立即下载

软件版本：3.7.2
软件大小：46.2M
更新时间：2023-05-10

按键精灵iOS版
立即下载

软件版本：1.8.0
软件大小：29.2M
更新时间：2023-03-21

按键手机助手
立即下载

软件版本：3.8.0
软件大小：262M
更新时间：2023-05-30

快捷导航

请 登录 后使用快捷导航
没有帐号？ 注册

登录 注册
返回列表
发新话题 回复该主题
查看: 783|回复: 5

[提问] 判断语句if a=b then ...end if.无效。该怎么写？ [复制链接]

廖氏如神
头像

廖氏如神

  • 小学五年级
  • 1731542
  • 108
  • 0
  • 24 朵
  • 185 个
  • 14 个
  • 920
  • 2013-04-11
1#
t T
发表于 2024-09-22 10:08 | |只看楼主
Do
Dim a
a = DateTime.Minute() //获取现在的时间，分
Dim b
//BGR单色识别
b = SmartOcr(529,737,575,837, "FFFFFF-202020") //获取页面上的数字分数。
Traceprint a //可以正常打印分数，例如40
Traceprint b //可以正常打印分数，例如40
If a = b Then //这段不知道为什么就是无效，直接跳到end if
Traceprint "相等"
Goto peng
End If
Traceprint "不相等"
Delay 60000
Loop

请问哪里有问题？可以调试，但是打印出来是两个相同的数字，但是就是不执行Goto，而是直接跳到end if。

点赞
回顶部
秋羡
头像

  • 小学一年级
  • 9188018
  • 20
  • 0
  • 40 朵
  • 110 个
  • 60 个
  • 0
  • 2024-01-14
2#
t T
发表于 2024-09-24 18:20 | |只看该用户

  1. Do
  2. Dim a
  3. a = 1 //获取现在的时间，分
  4. Dim b1
  5. //BGR单色识别
  6. b1 = SmartOcr(529,737,575,837, "FFFFFF-202020"):Dim b = Int (b1)//获取页面上的数字分数。
  7. Traceprint a //可以正常打印分数，例如40
  8. Traceprint b //可以正常打印分数，例如40
  9. If a = b Then //这段不知道为什么就是无效，直接跳到end if
  10. Traceprint "相等"
  11. End If
  12. Traceprint "不相等"
  13. Delay 60000
  14. Loop
复制代码
回顶部
xzw1
头像

XZW-AJ

  • 初中一年级
  • 8114808
  • 166
  • 0
  • 185 朵
  • 11 个
  • 7 个
  • 0
  • 2021-01-16
3#
t T
发表于 2024-09-24 18:29 | |只看该用户

可能是两个40的字符串类型不同，一个是数字，一个是文本。

不可捉摸
回顶部
18048869650
头像

伍长

  • 小学一年级
  • 9326488
  • 7
  • 0
  • 16 朵
  • 44 个
  • 24 个
  • 0
  • 2024-09-03
4#
t T
发表于 2024-09-27 00:17 | |只看该用户

分别 显示A B 看看是不是 字符与数值不一样，，还是没有获得B

回顶部
nisheiani
头像

nisheiani

  • 幼儿园
  • 3056288
  • 4
  • 0
  • 4 朵
  • 14 个
  • 4 个
  • 0
  • 2015-02-05
5#
t T
发表于 2024-09-28 01:32 | |只看该用户

1


Do
Dim a
a = DateTime.Minute() //获取现在的时间，分
Dim b
//BGR单色识别
b = CInt(SmartOcr(529,737,575,837, "FFFFFF-202020") )//获取页面上的数字分数。

If b= "" Then
b= 0
End If
Traceprint a //可以正常打印分数，例如40
Traceprint b //可以正常打印分数，例如40



If a = b Then
Traceprint "相等"
Goto peng
else
Traceprint "不相等"
End If

Delay 60000
Loop

回顶部
nisheiani
头像

nisheiani

  • 幼儿园
  • 3056288
  • 4
  • 0
  • 4 朵
  • 14 个
  • 4 个
  • 0
  • 2015-02-05
6#
t T
发表于 2024-09-28 01:40 | |只看该用户

Do
Dim a
a = DateTime.Minute() //获取现在的时间，分
Dim b
//BGR单色识别
b = CInt(SmartOcr(529,737,575,837, "FFFFFF-202020") )//获取页面上的数字分数。
if b="" then
b=0
end if

Traceprint a //可以正常打印分数，例如40
Traceprint b //可以正常打印分数，例如40
If a = b Then //这段不知道为什么就是无效，直接跳到end if
Traceprint "相等"
Goto peng
else
Traceprint "不相等"
End If

Delay 60000
Loop

回顶部
上一主题| 下一主题
返回列表
发新话题 回复该主题
高级编辑器高级编辑器