屏幕划动求助

qq1226737590

先上图

图中的黄色格子表示当前屏幕所显示的内容,需要按照黑色线的方向划动,两个格子之间相差600并且要一次划动600到下一格.每到达一格需要delay 5000并且执行function abc
每次划动以红点为一圈,图中为划动3圈的例子,划动圈数为X,按照用户设置而定


求助划动思路,谢谢

紫猫

用我插件的zm.SwipeEx或者自己弄个数组存放坐标, 使用TouchMove系列命令实现移动

qq1226737590

如果使用存放座标的方法，那假如我要划动20圈，那我不就要记录很多座标？我只需要已黄色格子为中心向外一圈一圈的划动就行了

紫猫

qq1226737590 发表于 2018-10-3 19:41
如果使用存放座标的方法，那假如我要划动20圈，那我不就要记录很多座标？我只需要已黄色格子为中心向外一圈 ...

两种思路, 一种是找到计算规律, 直接for循环解决
另一种是最粗暴的记录每个坐标后处理解决

流氓免125

前辈,你的这个问题解决了没有,我也有这个困扰

威武又霸气

假设 起点坐标为(0,0)的话
第一圈的按照移动顺序到达4个角的坐标依次为(1,1) (1,-1) (-1,-1) (-1,1)
第二圈的按照移动顺序到达4个角的坐标依次为(2,2) (2,-2) (-2,-2) (-2,2)
第三圈的按照移动顺序到达4个角的坐标依次为(3,3) (3,-3) (-3,-3) (-3,3)
.......
以此类推只能如此规律了

威武又霸气

[按键精灵] 纯文本查看 复制代码

'第一圈起始坐标为(0,0)
'( 0, 0) --> ( 0, 1)        方向上 1格
'( 0, 1) --> ( 1, 1)        方向左 1格
'( 1, 1) --> ( 1,-1)        方向下 2格
'( 1,-1) --> (-1,-1)        方向右 2格
'(-1,-1) --> (-1, 1)        方向上 2格
'第二圈
'(-1, 1) --> (-1, 2)        方向上 1格
'(-1, 2) --> ( 2, 2)        方向左 3格
'( 2, 2) --> ( 2,-2)        方向下 4格
'( 2,-2) --> (-2,-2)        方向右 4格
'(-2,-2) --> (-2, 2)        方向上 4格
'第三圈
'(-2, 2) --> (-2, 3)        方向上 1格
'(-2, 3) --> ( 3, 3)        方向左 5格
'( 3, 3) --> ( 3,-3)        方向下 6格
'( 3,-3) --> (-3, 3)        方向右 6格
'(-3, 3) --> (-3, 3)        方向上 6格

威武又霸气

由此能看出,除了开始向上的一步以外,其他的行走步数都比上次的步数+2.for循环完全可以搞定

威武又霸气

[按键精灵] 纯文本查看 复制代码

Dim 圈数,向上,向左,向右,向下
圈数=5
For i = 1 To 圈数
    向上 = 0:向左 = 0	:向右 = 0:向下 = 0
    TracePrint "向上" 
    For i * 2 - 1
        向左 = 向左 + 1
    Next
    TracePrint 向左
    For  i * 2
        向下 = 向下 + 1
    Next
    For i * 2
        向右 = 向右 + 1
    next
    For i * 2
        向上 = 向上 + 1
    next
    TracePrint 向下 
    TracePrint 向右 
    TracePrint 向上
Next

qq1226737590

谢谢帮助