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

jp0077777 2012-10-11 04:55:00
要代码

在线等


谢了
...全文
113 点赞 收藏 3
写回复
3 条回复
jeary 2012年10月12日
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
回复 点赞
ksskope 2012年10月12日
二个文本框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
回复 点赞
jp0077777 2012年10月11日
最好能让我 自己定义时间 10分钟 5分钟 或者其它整数时间 不超过一小时
回复 点赞
发动态
发帖子
VB基础类
创建于2007-09-28

2751

社区成员

19.7w+

社区内容

VB 基础类
社区公告
暂无公告