求一个倒计时代码 如10分钟后或者 5分钟后 发出BEEP声音

[jp0077777]

要代码

在线等


谢了

[jp0077777]

最好能让我 自己定义时间 10分钟 5分钟 或者其它整数时间 不超过一小时

[ksskope]

二个文本框T1，T2,T1用来设定时间的，T2用来显示时间。二个按钮C1,C2，C1用来启动计时，C2停止并可以重新设置时间，还要画一个计时器用于计时用
Private Sub C1_Click()
If T1.Text = "" Then
MsgBox "请重新输入", vbCritical
Else
T1.Enabled = False
Tr1.Enabled = True
T2.Text = 0
End If
End Sub

Private Sub C2_Click()
T1.Enabled = True
Tr1.Enabled = False
T2.Text = 0
End Sub

Private Sub Tr1_Timer()
If T2.Text = T1.Text Then
Beep
Tr1.Enabled = False
MsgBox "时间到", vbOKOnly
T2.Text = 0
Else: T2.Text = T2.Text + 1
End If
End Sub

[jeary]

Public JSjs As Integer '计时时间
Public date1 As String  '起始时间
Private Sub Command6_Click()
Timer1.Enabled = True
date1 = ""
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
JSjs = 10    '计时10分钟
End Sub

Private Sub Timer1_Timer()
If date1 = "" Then
date1 = Format(Now, "yyyy-MM-dd hh:mm:ss")
End If

If DateDiff("n", date1, Now) >= JSjs Then
MsgBox "时间到"
Timer1.Enabled = False
End If

End Sub