作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VB6 ] 写示波器介面 Timer 不够快 at Win7
时间Mon Jan 2 22:03:15 2012
※ 引述《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
1F：→ Berger927:判断的逻辑还是怪怪的... (摊 01/02 22:12
2F：推 deo2000:感谢fumizuki兄!!! 取样频率可以到500Hz以上了!!! 01/03 09:59