Question

求VB程序详解。程序如下。或者有其他更简单的程序也可以。务必详解、我是小白。

Private Sub Form_Load()
Form1.AutoRedraw = True
'设定用到的变量
Dim t() As String, th As Integer, tm As Integer, nh As Integer, nm As Integer
t1 = InputBox("设定闹钟时间", "闹铃设置", Time)
t = Split(t1, ":"): th = t(0): tm = t(1)
'当电脑现在时间与设定的闹钟想同时Beep闹钟
Do
DoEvents: Form1.Cls: Print "闹钟时间设定为"; t1: Print "现在时刻为"; Time '显示闹钟和当前时间
t = Split(Time, ":"): nh = t(0): nm = t(1)
If th = nh And tm = nm Then MsgBox "Beep Beep...闹钟响了": Exit Do '时间对应时闹响
Loop
End Sub
有没有人能把程序修改一下加上TIMER啊。谢谢

Answer 1

 
‘程序打开时弹出输入框要你设定一时间，格式时---时：分:秒
‘到设定时间时弹出消息框提示你已到时间。
Private Sub Form_Load()
     Form1.AutoRedraw = True ‘设置窗体自动重画
  '设定用到的变量
 Dim t() As String, th As Integer, tm As Integer, nh As Integer, nm As Integer
 t1 = InputBox("设定闹钟时间", "闹铃设置", Time) ‘弹出输入对话框，要求输入时间，时间格式是：（时：分:秒）---没有秒也可以
 t = Split(t1, ":"): th = t(0): tm = t(1)’把小时，分钟分开存入th和tm变量
  '当电脑现在时间与设定的闹钟想同时Beep闹钟
 Do ‘不断的循环，检测当前时间是否已到设置的时间
 DoEvents’这个很重要，暂时让权给操作系统处理其它事件，要不来会卡死的
Form1.Cls’显示数据前清除旧信息
Print "闹钟时间设定为"; t1: Print "现在时刻为"; Time   '显示闹钟时间和当前时间
 t = Split(Time, ":"): nh = t(0): nm = t(1)’把当前时间的时数，分数分别存入nh,nm变量
 If th = nh And tm = nm Then MsgBox "Beep Beep...闹钟响了": Exit Do ‘判断小时和分钟与当前时分匹配时，弹出消息框，提示你时间已到了。  
Loop
End Sub


我把实例文件发给你。

 

追问

THANK YOU SO MUCH

追答

timer是个时钟事件，它不断的检查时间是否已到设置的时间。闹钟可不是真的闹钟声音，只是简单的 “嘟” 的一声

我上传的那个文件有用的嘛，我试过了。