求助定时器问题!(在线等待)

podotdian 2003-01-17 09:19:33
要用VB做一个可以显示的定时器,精确到秒,程序开始运行时就从8分钟开始倒计时


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

高手们请帮个忙!多谢了
...全文
15 点赞 收藏 9
写回复
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
minajo21 2003-01-17
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
回复
podotdian 2003-01-17
好的,
太感谢了!

我一开始用两个LABEL分别显示分和秒还可以动,
现在不知道为什么不动了:(
回复
holydiablo 2003-01-17
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
回复
xiaoxinghappy 2003-01-17
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
回复
minajo21 2003-01-17
你等一下,我试试看
回复
podotdian 2003-01-17
是的,要显示时间的!
回复
minajo21 2003-01-17
要显示出来到计时的时间吗?
回复
podotdian 2003-01-17
不能正常运行的,我还不太懂VB
回复
fling_boy 2003-01-17
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
'这样更好一些.

昨天不是说了吗?
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告