Foxtable(狐表)用戶欄目專家坐堂 → [分享]暫停循環實例(公開源碼)


  共有13619人關注過本帖樹形打印復制鏈接

主題:[分享]暫停循環實例(公開源碼)

帥哥喲,離線,有人找我嗎?
黃訓良
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:五尾狐 帖子:1101 積分:8934 威望: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 積分:3742 威望:0 精華:0 注冊:2014/5/8 13:41:00
  發帖心情 Post By:2015/12/6 13:04:00 [只看該作者]

需要哈 ,多謝

 回到頂部
美女呀,離線,留言給我吧!
qianqian1530
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:三尾狐 帖子:746 積分:5549 威望: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


加好友 發短信
等級:五尾狐 帖子:1101 積分:8934 威望: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


加好友 發短信
等級:一尾狐 帖子:462 積分:4581 威望:0 精華:0 注冊:2013/12/17 12:55:00
  發帖心情 Post By:2015/12/6 14:59:00 [只看該作者]

樓主分享唄

 回到頂部
帥哥,在線噢!
shenyl0211
  7樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:四尾狐 帖子:886 積分:6190 威望:0 精華:0 注冊:2012/4/2 21:49:00
  發帖心情 Post By:2015/12/6 15:04:00 [只看該作者]

好注意,謝分享

 回到頂部
帥哥喲,離線,有人找我嗎?
  8樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:小狐 帖子:323 積分:1926 威望: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


加好友 發短信
等級:小狐 帖子:323 積分:1926 威望:0 精華:0 注冊:2014/8/24 13:36:00
  發帖心情 Post By:2015/12/6 15:12:00 [只看該作者]

樓主:

  個人感覺,這種用例,用循環暫停不如用隊列。用變量通知一個執行一個。

 


 回到頂部
帥哥喲,離線,有人找我嗎?
黃訓良
  10樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:五尾狐 帖子:1101 積分:8934 威望:0 精華:0 注冊:2014/3/15 14:36:00
  發帖心情 Post By:2015/12/6 18:25:00 [只看該作者]

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

樓主:

  個人感覺,這種用例,用循環暫停不如用隊列。用變量通知一個執行一個。

 

分享一下吧!


 回到頂部
總數 119 1 2 3 4 5 6 7 8 9 10 下一頁 ..12
229期22选5开奖结果