求助定时器问题！（在线等待）

[podotdian]

要用VB做一个可以显示的定时器，精确到秒，程序开始运行时就从8分钟开始倒计时


在还剩一分钟时和时间为0时分别要加入声音提示！

高手们请帮个忙！多谢了

[fling_boy]

private lTime as long

private sub form_load()
tim.enabled=false
end sub
private sub cmdStart_Click()
ltime=8
tim.enabled=true
end sub
private sub tim_timer()
ltime=ltime-1
if ltime=2 then
'play music last one
endif
if ltime=1 then
'play music end
tim.enabled=false
end if

end sub

'把timer的enable设置成true,interval=60000
'这样更好一些.

昨天不是说了吗？

[podotdian]

不能正常运行的，我还不太懂VB

[minajo21]

要显示出来到计时的时间吗？

[podotdian]

是的，要显示时间的！

[minajo21]

你等一下，我试试看

[xiaoxinghappy]

private mstrStart as string
Form_Load()
mstrStart=Now '记录起动时间
Timer.Interval = 1000
Timer1.Enable = True
End Sub

Sub Timer1_Timer()
'在 Timer 里用时间间隔来算会精确一点
If DateDiff("s", mstrStart,Now)>8 Then
Call PlaySound
End If
End Sub

[holydiablo]

dim timecount as long

interval=1000 '1秒

private sub tim_timer()
timecount =timecount -1
me.caption=timecount/60 & "分" & timecount mod 60 & "秒"
if timecount=60 then
beep
end if
if timecount=0 then
beep
tim.enabled=false
endif

end sub

[podotdian]

好的，
太感谢了！

我一开始用两个LABEL分别显示分和秒还可以动，
现在不知道为什么不动了：（

[minajo21]

holydiablo(鱼头)的方法很好，稍微修改一下就行了。

Dim timecount As Long

Private Sub Form_Load()
timecount = 60 * 8
End Sub

Private Sub tim_timer()
timecount = timecount - 1
Me.Caption = timecount \ 60 & "分" & timecount Mod 60 & "秒"
If timecount = 60 Then
Beep
End If
If timecount = 0 Then
Beep
tim.Enabled = False
End If
End Sub