DIY

疑难杂症

知行合一[特训班学员(果壳门生)] [学号:F34] Rank: 12Rank: 12Rank: 12 果壳学院特训班学员 果壳币: 107

发表于 2020-9-8 20:54:51 | 2 条回复 | 199 次浏览


Function 判断坐标(x,y,z)
    Dim MyString,a,b
    Dim 识别
    识别=识别坐标()
    Delay 1000
    MyString = Split(识别, ".")
    ms MyString(0)
    ms MyString(1)
    if   CInt(x + z) >= CInt(MyString(0)) >= CInt(x - z) and  CInt(y + z) >= CInt(MyString(1)) >= CInt(y - z)  then  
        ms "到达坐标位置"  //ms "到达坐标位置"
        Delay 1000
        判断坐标 = true
    Else
        ms  CInt(MyString(0))
        Delay 3000
        ms CInt(MyString(1))
        Delay 300
        Delay
        判断坐标 = False
    End If
End Function
这段代码在PC手机助手上调试模拟器没有任何问题,但是上传云端,模拟器手机助手下载使用CInt(MyString(0))
CInt(MyString(1)) 没有值是空值求解
发新帖
知行合一[特训班学员(果壳门生)] [学号:F34] Rank: 12Rank: 12Rank: 12 果壳学院特训班学员 果壳币: 107

发表于 2020-9-8 21:02:26

CInt(x +  z)     CInt(y +z)  +号不显示

回复 道具 举报

果壳王子[果壳校长] [王子殿下] Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20 果壳热讲师 独家品牌学院 果壳热大导师 果壳学院创始人 果壳热教职工 果壳热平台站长 果壳学院校长/副校长 果壳学长 果壳热研究生 果壳币: 6541

发表于 2020-11-6 00:20:14

Dim 识别="123.456"
Dim MyString = Split(识别, ".")
TracePrint MyString(0)
TracePrint MyString(1)

为师已将你的问题简化,请单独测试以上代码,有问题请继续回帖反馈。

回复 道具 举报

发新帖
您需要登录后才可以回帖 登录 | 注册成为果猿 微信登录

手机版

© 2020-2030 果壳热 All rights reserved.

Powered by GUOHOT XS8.8. Theme designed by GUOKEHOT.

top bottom