Foxtable(狐表)用户栏目专家坐堂 → [分享]暂停循环实例(公开源码)


  共有50189人关注过本帖树形打印复制链接

主题:[分享]暂停循环实例(公开源码)

帅哥哟,离线,有人找我吗?
黄训良
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
[分享]暂停循环实例(公开源码)  发帖心情 Post By:2015/12/6 12:45:00 [只看该作者]

   

   循环暂停,是非常实用的功能, lsy老师的“暂停循环实例”没有公开源码,因工作需要自己写吧!自己愚钝,花了半天的时间(不用MessageBox),经过n次测试才写了出来,核心代码只有47字。功能如下:

     循环【表A】,每循环一行就去执行一个任务,执行任务这个时间就暂停循环,收到任务结束的信息后,恢复循环!

优点:代码简洁,循环结束什么都不用去“销毁”。
缺点:循环期间CPU占用率在18%-25%,循环结束很快下降到正常水平。
要求:代码必须严谨(务必返回恢复循环的值),避免造成死循环!
应用:1、任务完成时间不太长的情况。2、暂停后面的代码执行。


(有10人需要就公开源码)  

 

 



以下内容只有回复后才可以浏览
[此贴子已经被作者于2015/12/15 12:56:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
freeants
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:572 积分:3771 威望:0 精华:0 注册:2014/5/8 13:41:00
  发帖心情 Post By:2015/12/6 13:04:00 [只看该作者]

需要哈 ,多谢

 回到顶部
美女呀,离线,留言给我吧!
qianqian1530
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:5567 威望:0 精华:0 注册:2013/12/4 8:56:00
  发帖心情 Post By:2015/12/6 13:42:00 [只看该作者]

'''
Vars("Mark1") = True
If Vars("s") Is Nothing  Then
    Vars("s") = 1
End If
Dim Sum As Integer
Dim i As Integer
For i = Vars("s") To 100
    If Vars("Mark1")  Then
        Sum = Sum + i
    Else
        Vars("s") = i
    End If
Next

Output.Show(Sum)



暂停
Vars("Mark1") = False

 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/12/6 14:04:00 [只看该作者]

以下是引用qianqian1530在2015/12/6 13:42:00的发言:
'''
Vars("Mark1") = True
If Vars("s") Is Nothing  Then
    Vars("s") = 1
End If
Dim Sum As Integer
Dim i As Integer
For i = Vars("s") To 100
    If Vars("Mark1")  Then
        Sum = Sum + i
    Else
        Vars("s") = i
    End If
Next

Output.Show(Sum)



暂停
Vars("Mark1") = False

这个已测试过,是再次启动循环,并非暂停。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/6 14:12:00 [只看该作者]

Do Until vars("开关") = False

    'Application.DoEvents

Loop


 回到顶部
帅哥哟,离线,有人找我吗?
gua12gua
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:450 积分:4521 威望:0 精华:0 注册:2013/12/17 12:55:00
  发帖心情 Post By:2015/12/6 14:59:00 [只看该作者]

楼主分享呗

 回到顶部
帅哥哟,离线,有人找我吗?
shenyl0211
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6835 威望:0 精华:0 注册:2012/4/2 21:49:00
  发帖心情 Post By:2015/12/6 15:04:00 [只看该作者]

好注意,谢分享

 回到顶部
帅哥哟,离线,有人找我吗?
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:321 积分:1916 威望:0 精华:0 注册:2014/8/24 13:36:00
  发帖心情 Post By:2015/12/6 15:06:00 [只看该作者]

以下是引用gua12gua在2015/12/6 14:59:00的发言:
楼主分享呗

难得啊,第一次看见老兄回帖没用 ddddd


 回到顶部
帅哥哟,离线,有人找我吗?
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:321 积分:1916 威望:0 精华:0 注册:2014/8/24 13:36:00
  发帖心情 Post By:2015/12/6 15:12:00 [只看该作者]

楼主:

  个人感觉,这种用例,用循环暂停不如用队列。用变量通知一个执行一个。

 


 回到顶部
帅哥哟,离线,有人找我吗?
黄训良
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1100 积分:8985 威望:0 精华:0 注册:2014/3/15 14:36:00
  发帖心情 Post By:2015/12/6 18:25:00 [只看该作者]

以下是引用在2015/12/6 15:12:00的发言:

楼主:

  个人感觉,这种用例,用循环暂停不如用队列。用变量通知一个执行一个。

 

分享一下吧!


 回到顶部
总数 146 1 2 3 4 5 6 7 8 9 10 下一页 ..15