• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.3.8
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

[已解决] 说函数有问题 [复制链接]

1#
x1 = 400 : y1 = 200//目的地坐标值
//Call 随机移动(100,200)
MoveTo 0, 200//移动到目的地
y=kx+b
k = (y1 - y2) / (x1 - x2)
b = y1 - ((y1 - y2) / (x1 - x)) * x
GetCursorPos x2, y2//电脑鼠标坐标值
TracePrint"电脑鼠标值"&x2&","&y2
Delay int((rnd * 500) + 1)
y=kx+b
k = (y1 - y2) / (x1 - x2)
b = y1 - ((y1 - y2) / (x1 - x)) * x
If x1 = x2 Then //如果都在x轴线,沿着一个方向走
For y = y2 To y1 Step Sgn(y1-y2)
MoveTo x1, y
Delay 1
Next
ElseIf y1 = y2 Then
For x = x2 To x1 Step Sgn(x1 - x2)
MoveTo x, y1
Delay 1
Next
End If
If Abs(x2 - x1) > Abs(y2 - y1) Then
For x = x2 To x1 Step Sgn(y1-y2)
MoveTo x,

(y1 - y2) / (x1 - x2)*x+(

y1 - ((y1 - y2) / (x1 - x)) * x)


Next
End If
到这时就说

MoveTo x,

(y1 - y2) / (x1 - x2)*x+(

y1 - ((y1 - y2) / (x1 - x)) * x)有错误,if then elseif 都报错误,是哪出错了


本主题由 超级版主 n15976906190 于 2020/1/18 10:21:11 执行 审核帖子 操作
2#

回复 1楼maoxiaowu的帖子

'正常写法
  1. MoveTo x,(y1 - y2) / (x1 - x2)*x+(y1 - ((y1 - y2) / (x1 - x)) * x)
复制代码
'正确换行写法
  1. Var1="1" _
  2. &"2"
  3. TracePrint Var1
复制代码

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
3#

回复 2楼n15976906190的帖子

还是不行,提示被零除

4#

回复 3楼maoxiaowu的帖子
  1. 那是因为计算公式内出现 数字/0的情况 自行输出变量的值确认
复制代码

最后编辑n15976906190 最后编辑于 2020-01-18 08:40:06
收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
5#

Var1="1" _
&"2"
TracePrint Var1 这个是指的哪,还有想要不被0除,怎么改,,

6#

回复 5楼maoxiaowu的帖子
  1. Var1 2#已明确文字说明
  2. 先判断是否为0 如果为0不进行计算 或 自行修改目前算法
复制代码

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
7#

能不能写的详细点,写到代码里,这么写看不懂

8#

回复 7楼maoxiaowu的帖子
答复一:
2#回复的是1#你错误编写格式的纠正写法例子 不应该将MoveTo第二参数进行换行编写 如果一句命令需要换行 应该按Var1示范的写法格式
答复二:
将提示"被零除"提示的行内的变量 逐一用TracePrint输出 将会出现0的变量 在进行计算前进行判断是否为0 再确定是否进行计算

注:你好 答复已经十分明确清晰 请再看看基础

最后编辑n15976906190 最后编辑于 2020-01-18 09:51:25
收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
9#

x1 = 450 : y1 = 550//目的地坐标值
//Call 随机移动(100,200)
////移动到目的地
GetCursorPos x2, y2//电脑鼠标坐标值
TracePrint"电脑鼠标值"&x2&","&y2
Delay int((rnd * 5) + 1)
If x1 = x2 Then //如果都在x轴线,沿着一个方向走
For y = y2 To y1 Step Sgn (y1-y2)
MoveTo x1, y
Delay 1
Next
ElseIf y1 = y2 Then
For x = x2 To x1 Step Sgn (x1 - x2)
     MoveTo x, y1
     Delay 1
Next
elseif Abs(x2 - x1)> Abs(y2 - y1) Then
For x = x2 To x1 Step Sgn(x1 - x2)
MoveTo x,(y1 - y2) / (x1 - x2)*x+(y1 - ((y1 - y2) / (x1 - x2)) * x)
Delay 50
Next
Else
For y = y2 To y1 Step Sgn(y1-y2)
Moveto (y-(y1-((y1 - y2) / (x1 - x2)*x1)) / ((y1 - y2) / (x1 - x2)),y
Delay 1
Next
End If
MoveTo x1,y1

10#

换行是我录进去的时候不小心弄得,,
x1 = 450 : y1 = 550//目的地坐标值
//Call 随机移动(100,200)
////移动到目的地
GetCursorPos x2, y2//电脑鼠标坐标值
TracePrint"电脑鼠标值"&x2&","&y2
Delay int((rnd * 5) + 1)
If x1 = x2 Then //如果都在x轴线,沿着一个方向走
For y = y2 To y1 Step Sgn (y1-y2)
MoveTo x1, y
Delay 1
Next
ElseIf y1 = y2 Then
For x = x2 To x1 Step Sgn (x1 - x2)
     MoveTo x, y1
     Delay 1
Next
elseif Abs(x2 - x1)> Abs(y2 - y1) Then
For x = x2 To x1 Step Sgn(x1 - x2)
MoveTo x,(y1 - y2) / (x1 - x2)*x+(y1 - ((y1 - y2) / (x1 - x2)) * x)
Delay 50
Next
Else
For y = y2 To y1 Step Sgn(y1-y2)
Moveto (y-(y1-((y1 - y2) / (x1 - x2)*x1)) / ((y1 - y2) / (x1 - x2)),y
Delay 1
Next
End If
MoveTo x1,y1
一直提示语法错误

11#

回复 10楼maoxiaowu的帖子
  1. Moveto (y-(y1-((y1 - y2) / (x1 - x2)*x1)) / ((y1 - y2) / (x1 - x2))),y'你写的缺失一个)
复制代码

收徒索引 ←点击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题