如何制作倒计时？

Question

指定总时间为10分钟，到剩下1分钟时提示，倒计时结束也要提示，并要在屏幕上显示。如何实现？

Answer 1

时钟控件 设倒计时间隔时间 把设定时间－时钟控件。timer 为0时bell

Answer 2

Option Explicit
Dim StartTime, EndTime
Private Sub Form_Load()
StartTime = Timer
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim resultTime As Integer
EndTime = Timer
resultTime = EndTime - StartTime
If resultTime = 9 * 60 Then
   MsgBox "剩余一分钟了"
Else
   If resultTime = 10 * 60 Then
       MsgBox "已经结束"
       Timer1.Enabled = False
   End If
End If
End Sub
其中：timer是VB自带的函数，timer1为时钟控件

Answer 3

Option Explicit
Dim StartTime, EndTime
Private Sub Form_Load()
StartTime = Timer
Timer1.Interval = 1000
Timer1.Enabled = True
ProgressBar1.Min = 0
ProgressBar1.Max = 10 * 60
ProgressBar1.Visible = True
End SubPrivate Sub Timer1_Timer()
Dim resultTime As Integer
EndTime = Timer
ProgressBar1.Value = ProgressBar1.Value + 1
resultTime = EndTime - StartTime
If resultTime = 9 * 60 Then
   MsgBox "剩余一分钟了"
Else
   If resultTime = 10 * 60 Then
       MsgBox "已经结束"
       Timer1.Enabled = False
       ProgressBar1.Visible = False
   End If
End IfEnd Sub
其中：timer是VB自带的函数，timer1为时钟控件 progressbar1为进度条控件
好了，结贴吧

Answer 4

这样也可以呀
Option Explicit
Dim StartTime As Integer
Private Sub Form_Load()
    StartTime = 600
End SubPrivate Sub Timer1_Timer()
    Label1.Caption = (StartTime - 1) \ 60 & ":" & (StartTime - 1) Mod 60
    StartTime = StartTime - 1
    If StartTime < 60 Then
        MsgBox "还剩下一分钟了！"
    End If
    If StartTime = 0 Then
        Timer1.Enabled = False
        MsgBox "时间到了！"
    End IfEnd Sub

Answer 5

Option Explicit
Dim StartTime As Integer
Private Sub Form_Load()
    StartTime = 600
End SubPrivate Sub Timer1_Timer()
    Label1.Caption = (StartTime - 1) \ 60 & ":" & (StartTime - 1) Mod 60
    StartTime = StartTime - 1
    If StartTime < 60 Then
        Me.Caption = "还剩下一分钟了！"
    End If
    If StartTime = 0 Then
        Timer1.Enabled = False
        MsgBox "时间到了！"
    End IfEnd Sub

Answer 6

事件必须用button实现，用button加载

Answer 7

Private Sub Command1_Click()
    Timer1.Enabled = True
End Sub
再加上这句就行了
Command1是一个按钮

Answer 8

那如何把MsgBox "时间到了！"改成播放WAV文件。

Answer 9

如何用
asp做一个倒记时,麻烦各位写详细点,我看不懂啊,可以发到我邮箱[email protected]