DOEVENTS 指令很重要

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

11^# 跳轉到 »

發表於 2013-10-26 12:32 | 只看該作者

irnd(s1, 100, 999, c);

事先，讓 rv1= rv2= c

doEvents() 會傳回一個值 --> RV2
if (rv2 <> rv1 ) 表示 doEvents() 已經把事情做完，
而且傳回一個新的值

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

12^#

發表於 2013-10-27 04:36 | 只看該作者

Timer 函數範例
本範例使用 Timer 函數來讓應用程式暫停。範例中在暫停時使用到 DoEvents 來將程式執行權讓給其它程式。

Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' 設定暫停時間。
Start = Timer ' 設定開始暫停的時刻。
Do While Timer < Start + PauseTime
DoEvents ' 將程式執行權讓給其它程式。
Loop
Finish = Timer ' 讀取現在時刻。
TotalTime = Finish - Start ' 計算暫停所經過的時間。
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If

天下為公

TOP

handsometrowa

中學生 Rank: 2

帖子: 82
主題: 7
精華: 0
積分: 112
點名: 0
作業系統: WIN7
軟體版本: WIN7
閱讀權限: 20
性別: 男
註冊時間: 2013-1-3
最後登錄: 2020-9-21

13^#

發表於 2013-10-31 13:54 | 只看該作者

回復 12# sjgau

板大

其實Doevents 這個函數

能不能用白話文解釋一下呢@@" 我之前也有去查這個函數的資料

可能不是科班出生的關係吧

說真的他的移交程式到底是什麼意思阿@@?

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 145
主題: 45
精華: 0
積分: 190
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2013-10-18
最後登錄: 2014-3-29

14^#

發表於 2013-10-31 19:35 | 只看該作者

回復 13# handsometrowa

Excel 的 VBA 很霸道。
你可以想像，電腦的 CPU 就像是餐廳的 waiter,
只有一個 water, 他要同時伺候十幾桌的客人，
CPU 就在不同的桌子中間，轉啊轉的。
但是，VBA 就很霸道的遇到迴圈的時候，就綁住 CPU
不讓他轉台，抽空去伺候別的桌子，
導致，連自己也無法完成事情。

譬如說，我的迴圈，是要監測是否有 DDE的報價資料近來。
CPU 如果不讓出去，持行 DDE 報價的動作，
我的迴圈，再怎麼轉，也偵測不到新進來的報價資料。

結果大家都不要辦事。

DoEvents 把CPU 的時間，轉讓出去，伺候別桌的客人。
這樣子，大家都可以動了，多好的事情。
很像是玩跳棋。你黨我，我擋你，大家都動不了

天下為公

TOP

ui123