找寻圆形渐开线源码

laofan369

找寻圆形渐开线源码，哪位易友有这个源码的分享一下，谢谢

aa305996484

同求同求同求

Antony

  

子程序名	返回值类型	公开	备 注
圆形渐开线	逻辑型		找到特征码返回真，否则返回假
参数名	类 型	参考	可空	数组	备 注
鼠标特征码	文本型				找到此特征码后会直接返回子程序
中心点x坐标	整数型
中心点y坐标	整数型
两点间距离	整数型
递增半径	整数型				每次移动的递增距离
圈数	整数型				共移动多少圈
移动延时	整数型
x1	整数型				找到此特征码后返回的X坐标
y1	整数型				找到此特征码后返回的X坐标

变量名	类 型	静态	数组	备 注
_局部变量1	整数型
_局部变量2	整数型
_局部变量3	整数型
_局部变量4	整数型
_局部变量5	双精度小数型
_局部变量6	整数型
_局部变量7	整数型
_局部变量8	整数型
_局部变量9	文本型

_局部变量1 ＝ 中心点x坐标
_局部变量2 ＝ 中心点y坐标
_局部变量3 ＝ 递增半径
_局部变量4 ＝ 两点间距离
_局部变量5 ＝ 0
_局部变量6 ＝ 30
计次循环首 (圈数, )
判断循环首 (_局部变量5 ＜ 3.1415926 × 2)
_局部变量7 ＝ _局部变量1 ＋ _局部变量6 × 求余弦 (_局部变量5)
_局部变量8 ＝ _局部变量2 － _局部变量6 × 求正弦 (_局部变量5)
MoveTo (_局部变量7, _局部变量8)
辅助延时 (移动延时, )
_局部变量9 ＝ GetCursorShape ()
如果 (_局部变量9 ＝ 鼠标特征码)
_局部变量5 ＝ 3.1415926 × 3
x1 ＝ _局部变量7
y1 ＝ _局部变量8
返回 (真)
_局部变量5 ＝ _局部变量5 ＋ _局部变量4 ÷ _局部变量6

判断循环尾 ()
_局部变量5 ＝ 0
_局部变量6 ＝ _局部变量6 ＋ _局部变量3
计次循环尾 ()
返回 (假)

.版本 2<br /> <br /> .子程序 圆形渐开线, 逻辑型, 公开, 找到特征码返回真，否则返回假<br /> .参数 鼠标特征码, 文本型, , 找到此特征码后会直接返回子程序<br /> .参数 中心点x坐标, 整数型<br /> .参数 中心点y坐标, 整数型<br /> .参数 两点间距离, 整数型<br /> .参数 递增半径, 整数型, , 每次移动的递增距离<br /> .参数 圈数, 整数型, , 共移动多少圈<br /> .参数 移动延时, 整数型<br /> .参数 x1, 整数型, 参考 可空, 找到此特征码后返回的X坐标<br /> .参数 y1, 整数型, 参考 可空, 找到此特征码后返回的X坐标<br /> .局部变量 _局部变量1, 整数型<br /> .局部变量 _局部变量2, 整数型<br /> .局部变量 _局部变量3, 整数型<br /> .局部变量 _局部变量4, 整数型<br /> .局部变量 _局部变量5, 双精度小数型<br /> .局部变量 _局部变量6, 整数型<br /> .局部变量 _局部变量7, 整数型<br /> .局部变量 _局部变量8, 整数型<br /> .局部变量 _局部变量9, 文本型<br /> <br /> _局部变量1 ＝ 中心点x坐标<br /> _局部变量2 ＝ 中心点y坐标<br /> _局部变量3 ＝ 递增半径<br /> _局部变量4 ＝ 两点间距离<br /> _局部变量5 ＝ 0<br /> _局部变量6 ＝ 30<br /> .计次循环首 (圈数, )<br />     .判断循环首 (_局部变量5 ＜ 3.1415926 × 2)<br />         _局部变量7 ＝ _局部变量1 ＋ _局部变量6 × 求余弦 (_局部变量5)<br />         _局部变量8 ＝ _局部变量2 － _局部变量6 × 求正弦 (_局部变量5)<br />         MoveTo (_局部变量7, _局部变量8)<br />         辅助延时 (移动延时, )<br />         _局部变量9 ＝ GetCursorShape ()<br />         .如果 (_局部变量9 ＝ 鼠标特征码)<br />             _局部变量5 ＝ 3.1415926 × 3<br />             x1 ＝ _局部变量7<br />             y1 ＝ _局部变量8<br />             返回 (真)<br />         .否则<br />             _局部变量5 ＝ _局部变量5 ＋ _局部变量4 ÷ _局部变量6<br />         .如果结束<br /> <br />     .判断循环尾 ()<br />     _局部变量5 ＝ 0<br />     _局部变量6 ＝ _局部变量6 ＋ _局部变量3<br /> .计次循环尾 ()<br /> 返回 (假)