[VB6 ] 寫示波器軟體Timer不夠快 at Win7

[deo2000 (800IM)]

我寫了一個示波器軟體

從 USB 接受 Sensor 的訊號

在 PictureBox 畫波形

但是有大家所熟知的問題 Timer 無法快於 15mS 設定比這個快都是騙人的


網路上找了幾個方法，不過都還是有問題

1.timeGetTime()
　雖然可以計算到 1mS, 但是要怎樣能像 Timer 一樣, 在指定的 interval 內
  把{port取值,繪圖,存變數}的過程執行一次?

2.ccrpTmr6
  error 429

3.cHiResTimer
  遺失MSVBVM50.dll


我禮拜二就要上台報告了，目前卡在這裡好幾天了阿，拜託各位高手幫忙，

看要餽贈ｐ幣或我請你喝果汁都可以

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.224.52.240
→ Semisphere:用無限迴圈配timeGetTime，到你要時間點call你函式
會當機!!! 用F8可以一直跑沒問題 放給他自己跑就會當機!!!


Private Sub Form_Activate()

While (1)
    lTime = timeGetTime()

    If timeGetTime() - lTime >= 10 Then
        DrawOSC '繪圖的函數(畫兩個資料點之間的直線)
    End If

Wend

End Sub

※ 編輯: deo2000         來自: 61.224.52.240        (01/02 10:12)
→ Berger927:無窮回圈+doevents
→ Berger927:btw, 你回圈內寫的怪怪的...
推 Semisphere:沒使用全域變數才可用doevents，另照這寫法過10ms就每
→ Semisphere:次迴圈都在Draw，你要更新lTime
→ Semisphere:且lTime = timeGetTime()請搬到迴圈外
→ Semisphere:另外程式不要放在Form_Activate()裡，form重繪無法離開
→ Semisphere:Form_Activate
→ Berger927:怪怪的...                                       (攤