Re: [VB6 ] 寫示波器介面 Timer 不夠快 at Win7

[fumizuki (矇面加菲獅)]

※ 引述《deo2000 (800IM)》之銘言：
: 看了推文的建議，改成這樣還是會當機
: While (1)
:     If timeGetTime() Mod 10 = 0 Then '取樣週期10ms/100Hz
:         DrawOSC '繪圖函數
:     End If
: Wen
: 按 F8 可以以正常跑畫出圖形
: 直接跑就會當
Dim Quit As Boolean, Busy As Boolean

Sub 關閉按鈕_Click()

    If Busy Then Quit = True

End Sub

Sub 繪圖()

    Busy = True
    Do While Not Quit '終止條件是使用者按下關閉按鈕
        If timeGetTime() Mod 10 = 0 Then '取樣週期10ms/100Hz
            DrawOSC '繪圖函數
        End If
        DoEvents '將控制權暫時歸還給系統
    Loop
    Busy = False

End Sub

--
                                ▃▅▇▆▄                         ▆▂▃  `  
逝去感情如何能留住，半點癡情遺留殊不易，██▅▇▄▃                ▇▃▂"  .
                                    █████████▃i              ▁▄▇ 
              更多悽悽慘慘的遭遇…………██▆▃                █▅▆▃ˍ▄* 
                                                 ◢           ▂█▄▇▅▂▌. 
我不知道，王～八～蛋～～！           ▂▆███    █▄▃  。fumizuki。Check。

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 180.176.149.188
→ Berger927:判斷的邏輯還是怪怪的...                          (攤
推 deo2000:感謝fumizuki兄!!! 取樣頻率可以到500Hz以上了!!!