我用VB编写了一个很小的PC喇叭到下班时间响两声的程序，放在后台运行，结果占了95％的CPU资源，哪位有办法解决。

Question

我用VB编写了一个很小的PC喇叭到下班时间响两声的程序，放在后台运行，结果占了95％的CPU资源，哪位有办法解决。

Answer 1

我想你一定很敬业，不然也不用搞个什么程序提醒了。^-^
如果你的程序是使用beep的话，那应该没有什么了，还有你得到系统时间时不应该放在一个无限循环中，可以用Timer控件，或者在循环中使用DoEvents来释放CPU资源.

Answer 2

你是不是怕声音太小，循环次数太多了啊，呵呵
Private Sub Command1_Click()
For i = 1 To 5
Beep
Next
End SubPrivate Sub Timer1_Timer()
if 时间到了 then
Command1_Click
End Sub'不过声音象敲木鱼一样，呵呵

Answer 3

Private Sub Command1_Click()
Beep
End SubPrivate Sub Timer1_Timer()
if 时间到了 then
Command1_Click
end if
End Sub
不要循环了

Answer 4

修改了一下，原来的麻烦，呵呵
Dim iPrivate Sub Timer1_Timer()
Dim MyTime
MyTime = Format(Time, "h:m")
If MyTime = #12:14:00 PM# Then
Beep
i = i + 1
If i = 2 Then
End
End If
End If
End Sub