sjgau

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-10-25 13:09 | 顯示全部帖子

DOEVENTS 指令很重要

http://www.programmer-club.com/showSameTitleN/vb/16866.html

我再慢慢解說

樓主熱帖

天下為公

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

2^#

發表於 2013-10-25 14:04 | 顯示全部帖子

回復 2# sunnyso

今天早上，終於鼓起勇氣開始寫程式去抓取盤中的即時報價。

但是，只要程式一起動，報價就停止近來。

我大概知道是怎麼一回事，趕快去網路上找尋資料

只要在迴圈裏面加上
DOEVENTS
就解決了

大概是 100秒鐘的程式
可以跑大約三百萬個迴圈

可以正確抓取大約 200筆報價資料

詳細，等我下個禮拜整理一下程式
再把程式和輸出傳送上來

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2013-10-25 19:48 | 顯示全部帖子

DoEvents 函數
請參閱範例特性

暫停執行，以便讓作業系統可以處理其它的事件。

語法

DoEvents( )

請注意

DoEvents 函數會傳回一個Integer，以代表 Visual Basic 的單一版本中所開啟的表單個數，例如， Visual Basic專業版。在其它的應用版本中，DoEvents 會傳回 0。

DoEvents 會將控制權傳給作業系統，然後當作業系統處理完佇列中的事件，並且在 SendKeys 佇列中的所有 Key 都已送出後，控制權會再傳回。

DoEvents 常用於可讓使用者取消一段處理序，例如搜尋檔案。對於一段需花費較長時間的動作而言，使用 Timer 來處理或交由一個 ActiveX EXE 元件會比較好。以後者而言，這個工作可不依靠應用程式而獨立進行，作業系統會以多工方式處理。

注意請確定以 DoEvents 來放棄控制權的程序，在第一次 DoEvents 傳回之前，不能再度執行，否則會產生不可預期的結果。此外，如果其它的應用程式在您放出控制權時，可能會和您的程序產生互動，那麼也儘量不要使用 DoEvents。

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2013-10-25 19:52 | 顯示全部帖子

如何避免 DoEvents 尚未結束之前，
重複執行 DoEvents???

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

5^#

發表於 2013-10-26 03:56 | 顯示全部帖子

回復 6# sunnyso

會，但是不得不加上去。
因為，如果不加上去，CPU 就被我的程式給霸佔，
我需要的 DDE報價，就不會進來，
所以，需要計算他 delay 程式的影響有多大？

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2013-10-26 09:49 | 顯示全部帖子

回復 8# sunnyso

我有，請給我一點點時間，
請慢慢地密切觀察這個板板

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

7^#

發表於 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

8^#

發表於 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

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

9^#

發表於 2013-10-31 19:35 | 顯示全部帖子

回復 13# handsometrowa

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

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

結果大家都不要辦事。

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

天下為公

TOP

sjgau

版主 Rank: 7 Rank: 7 Rank: 7

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

10^#

發表於 2013-11-7 21:11 | 顯示全部帖子

回復 15# ui123

謝謝你的謝謝
就感心ㄟ

天下為公

TOP