论坛首发-任意两点之间鼠标带轨迹直线移动

cx66543154

凌哥 发表于 2018-5-5 13:04
[e=0].版本 2

.子程序 鼠标直线移动算法

一般问题的答案都不是唯一的 不过我这个帖子倒是钓出了不少大神的算法

1185384801

好像我写过

豆瓣君

学习一下~~

凌哥

  

子程序名	返回值类型	公开	备 注
鼠标直线移动算法

变量名	类 型	静态	数组	备 注
x1	双精度小数型
y1	双精度小数型
x	双精度小数型
y	双精度小数型
cs	双精度小数型
轨迹x	双精度小数型
轨迹y	双精度小数型
x2	双精度小数型
y2	双精度小数型
v	双精度小数型

x1 ＝ 900
y1 ＝ 900
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
x2 ＝ x
y2 ＝ y
如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))
cs ＝ 取绝对值 (x － x1)
cs ＝ 取绝对值 (y － y1)
如果真 (cs ≠ 0)
轨迹x ＝ (x1 － x) ÷ cs
轨迹y ＝ (y1 － y) ÷ cs
判断循环首 (x ≠ x1 且 y ≠ y1)
x ＝ x ＋ 轨迹x
y ＝ y ＋ 轨迹y
SetCursorPos (x, y)
如果真 (到整数 (取绝对值 (x － x1)) ≤ 1 且 到整数 (取绝对值 (y － y1)) ≤ 1)
SetCursorPos (x1, y1)
跳出循环 ()
延时 (1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 鼠标直线移动算法<br /> .局部变量 x1, 双精度小数型<br /> .局部变量 y1, 双精度小数型<br /> .局部变量 x, 双精度小数型<br /> .局部变量 y, 双精度小数型<br /> .局部变量 cs, 双精度小数型<br /> .局部变量 轨迹x, 双精度小数型<br /> .局部变量 轨迹y, 双精度小数型<br /> .局部变量 x2, 双精度小数型<br /> .局部变量 y2, 双精度小数型<br /> .局部变量 v, 双精度小数型<br /> <br /> x1 ＝ 900<br /> y1 ＝ 900<br /> x ＝ 取鼠标水平位置 ()<br /> y ＝ 取鼠标垂直位置 ()<br /> x2 ＝ x<br /> y2 ＝ y<br /> .如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))<br />     cs ＝ 取绝对值 (x － x1)<br /> .否则<br />     cs ＝ 取绝对值 (y － y1)<br /> .如果结束<br /> .如果真 (cs ≠ 0)<br />     轨迹x ＝ (x1 － x) ÷ cs<br />     轨迹y ＝ (y1 － y) ÷ cs<br /> .如果真结束<br /> .判断循环首 (x ≠ x1 且 y ≠ y1)<br />     x ＝ x ＋ 轨迹x<br />     y ＝ y ＋ 轨迹y<br />     SetCursorPos (x, y)<br />     .如果真 (到整数 (取绝对值 (x － x1)) ≤ 1 且 到整数 (取绝对值 (y － y1)) ≤ 1)<br />         SetCursorPos (x1, y1)<br />         跳出循环 ()<br />     .如果真结束<br />     延时 (1)<br /> .判断循环尾 ()

凌哥

cx66543154 发表于 2018-5-5 13:00
我测试N次 应该是任意坐标都可以实现   欢迎提出BUG

  

子程序名	返回值类型	公开	备 注
鼠标直线移动算法

变量名	类 型	静态	数组	备 注
x1	双精度小数型
y1	双精度小数型
x	双精度小数型
y	双精度小数型
cs	双精度小数型
轨迹x	双精度小数型
轨迹y	双精度小数型
x2	双精度小数型
y2	双精度小数型
v	双精度小数型

x1 ＝ 900
y1 ＝ 900
x ＝ 取鼠标水平位置 ()
y ＝ 取鼠标垂直位置 ()
x2 ＝ x
y2 ＝ y
如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))
cs ＝ 取绝对值 (x － x1)
cs ＝ 取绝对值 (y － y1)
如果真 (cs ≠ 0)
轨迹x ＝ (x1 － x) ÷ cs
轨迹y ＝ (y1 － y) ÷ cs
判断循环首 (x ≠ x1 且 y ≠ y1)
x ＝ x ＋ 轨迹x
y ＝ y ＋ 轨迹y
SetCursorPos (x, y)
如果真 (到整数 (取绝对值 (x － x1)) ≤ 1 且 到整数 (取绝对值 (y － y1)) ≤ 1)
SetCursorPos (x1, y1)
跳出循环 ()
延时 (1)
判断循环尾 ()

.版本 2<br /> <br /> .子程序 鼠标直线移动算法<br /> .局部变量 x1, 双精度小数型<br /> .局部变量 y1, 双精度小数型<br /> .局部变量 x, 双精度小数型<br /> .局部变量 y, 双精度小数型<br /> .局部变量 cs, 双精度小数型<br /> .局部变量 轨迹x, 双精度小数型<br /> .局部变量 轨迹y, 双精度小数型<br /> .局部变量 x2, 双精度小数型<br /> .局部变量 y2, 双精度小数型<br /> .局部变量 v, 双精度小数型<br /> <br /> x1 ＝ 900<br /> y1 ＝ 900<br /> x ＝ 取鼠标水平位置 ()<br /> y ＝ 取鼠标垂直位置 ()<br /> x2 ＝ x<br /> y2 ＝ y<br /> .如果 (取绝对值 (x － x1) ＞ 取绝对值 (y － y1))<br />     cs ＝ 取绝对值 (x － x1)<br /> .否则<br />     cs ＝ 取绝对值 (y － y1)<br /> .如果结束<br /> .如果真 (cs ≠ 0)<br />     轨迹x ＝ (x1 － x) ÷ cs<br />     轨迹y ＝ (y1 － y) ÷ cs<br /> .如果真结束<br /> .判断循环首 (x ≠ x1 且 y ≠ y1)<br />     x ＝ x ＋ 轨迹x<br />     y ＝ y ＋ 轨迹y<br />     SetCursorPos (x, y)<br />     .如果真 (到整数 (取绝对值 (x － x1)) ≤ 1 且 到整数 (取绝对值 (y － y1)) ≤ 1)<br />         SetCursorPos (x1, y1)<br />         跳出循环 ()<br />     .如果真结束<br />     延时 (1)<br /> .判断循环尾 ()

cx66543154

凌哥 发表于 2018-5-5 12:58
这个算法不够完美

我测试N次 应该是任意坐标都可以实现   欢迎提出BUG

凌哥

这个算法不够完美

cx66543154

Godsteal 发表于 2018-5-5 12:40
昨天 发了一个例子！那个好像 也可以实现吧

那个我看了  不满足标题的条件

Godsteal

昨天 发了一个例子！那个好像 也可以实现吧