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

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.6
软件大小:62.5M
更新时间:09-27

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

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

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

[已回复] 如何让脚本运行一定次数,调用一次子程序 [复制链接]

1#
大家好,我写了一个脚本,想让主程序循环运行30次,主程序运行3次后就调用1次子程序 ,代码的意思如下:

Sub 主程序
For 30
TracePrint "找到1"
Delay 500
TracePrint "找到2"    
Next
End Sub

Sub 子程序
     TracePrint "找到3"
End Sub

Call 主程序()

麻烦大家看看要怎样写。

本主题由 版主 gljxsd 于 2017/6/16 2:16:29 执行 删除帖子 操作
2#

我是这样写的,感觉比较复杂,不知还有没有其他写法
Dim i = 0
Sub 主程序
For 30
Delay 1000
TracePrint "找到1"
Delay 1000
TracePrint "找到2"
Delay 1000
i = i + 1
Delay 1000
If i = 3 Then
Call 子程序()
i = 0    
End If     
Next
End Sub
Sub 子程序
TracePrint "找到3"
End Sub
Call 主程序()

3#

楼上的就可以

qq:1649916498
4#

回复 3楼xbang的帖子

您好,有没有其他简化一点的写法吗?

5#

  1. Dim i
  2. Sub 主程序
  3. For i=1 to 30
  4. Delay 1000
  5. TracePrint "找到1"
  6. Delay 1000
  7. TracePrint "找到2"
  8. Delay 1000
  9. If i mod 3 = 0 Then
  10. Call 子程序()
  11. End If
  12. Next
  13. End Sub
  14. Sub 子程序
  15. TracePrint "找到3"
  16. End Sub
  17. Call 主程序()
复制代码

    已有1评分我要评分查看所有评分

    6#

    您好, 5楼的代码 可行
    就是 一个 For循环次数 递增的 运用. 和 Mod 的运用. 多研究一下吧

    7#

    回复 5楼NgZM的帖子

    您好,谢谢,谢谢

    8#

    回复 6楼gljxsd的帖子

    您好,论坛对于我们这些小白帮助太大,必须继续学习,谢谢了

    9#

    五楼就是神答案

    10#

    五楼好评如潮

    11#

    这他妈也叫技巧

    发新话题 回复该主题