主页

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

podotdian 2003-01-17 09:19:33

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

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

高手们请帮个忙！多谢了

...全文

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

社区成员

19.7w+

社区内容

VB 基础类

申请成为版主

社区公告

暂无公告