|
14精币
本人小白一个,刚接触易语言,自己写个小脚本,现在主程序要调用子程序,就一直报 错误(10044): 不能将“逻辑型”数据转换到“整数型”数据。肯请大神帮忙指正。
.版本 2
.子程序 _按钮启动脚本_被单击
按钮启动脚本.禁止 = 真
按钮停止脚本.禁止 = 假
线程_启动 (&主流程, 1, 线程句柄)
.版本 2
.子程序 主流程
.参数 ks, 整数型
.局部变量 x, 整数型
.局部变量 y, 整数型
.局部变量 ret, 整数型
.循环判断首 ()
dqsj = 到整数 (取小时 (取现行时间 ()))
.如果 (sfpt = 1)
.如果 (dqsj ≥ jytime 且 dqsj ≤ cytime)
.如果 (dm.GetColor (63, 674) = “9c0000”)
.如果 (ret = dm.FindStr (0, 747, 168, 768, “归墟峰白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “无双域白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “摘星台白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “归墟峰白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “神圣天白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “永恒界白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果 (ret = dm.FindStr (0, 747, 168, 768, “盘龙山白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.否则
cjydg ()
.如果结束
.否则
.如果 (dqsj > jytime 且 dqsj > cytime)
.如果 (dm.GetColor (63, 674) = “9c0000”)
.如果 (ret = dm.FindStr (0, 747, 168, 768, “藏剑涯白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果结束
.否则
.如果 (gjdtm = 1)
jrjlg ()
.否则
.如果 (gjdtm = 2)
wsydg ()
.否则
.如果 (gjdtm = 3)
zstdg ()
.否则
.如果 (gjdtm = 4)
gxfdg ()
.否则
.如果 (gjdtm = 5)
jrsst ()
.否则
.如果 (gjdtm = 6)
yhjdg ()
.否则
.如果 (gjdtm = 7)
plsdg ()
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
swpd ()
.否则
.如果 (dqsj < jytime)
.如果 (dm.GetColor (63, 674) = “9c0000”)
.如果 (ret = dm.FindStr (0, 747, 168, 768, “藏剑涯白”, “000000”, 0.99, x, y) ≥ 0)
回城 ()
.否则
.如果结束
.如果 (gjdt = 1)
jrjlg ()
.否则
.如果 (gjdt = 2)
wsydg ()
.否则
.如果 (gjdt = 3)
zstdg ()
.否则
.如果 (gjdt = 4)
gxfdg ()
.否则
.如果 (gjdt = 5)
jrsst ()
.否则
.如果 (gjdt = 6)
yhjdg ()
.否则
.如果 (gjdt = 7)
plsdg ()
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.否则
.如果结束
.否则
swpd ()
.如果结束
.如果结束
.如果结束
.否则
swpd ()
.如果结束
.如果 (gjdt = 1)
jrjlg ()
.否则
.如果 (gjdt = 2)
wsydg ()
.否则
.如果 (gjdt = 3)
zstdg ()
.否则
.如果 (gjdt = 4)
gxfdg ()
.否则
.如果 (gjdt = 5)
jrsst ()
.否则
.如果 (gjdt = 6)
yhjdg ()
.否则
.如果 (gjdt = 7)
plsdg ()
.否则
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.如果结束
.循环判断尾 (ks = 1)
|
最佳答案
查看完整内容
问题出在(ret = dm.FindStr (0, 747, 168, 768, “归墟峰白”, “000000”, 0.99, x, y) ≥ 0),这个上面。ret是整数型,最后却判断dm.FindStr (0, 747, 168, 768, “归墟峰白”, “000000”, 0.99, x, y) 是否≥0,并且还给了个等式。所以就报错了
补充内容 (2024-11-27 09:40):
全部都是这样写的。。。用整数型去判断是否等于逻辑型。
补充内容 (2024-11-27 09:42):
res没有赋值啊,删掉吧。。。。 ...
|