一个vb的小问题!请教各位大大!
做一个打铃的程序,要求每天中午11点30和下午5点30,该程序就会响
1调用Beep函数实现打铃
2用Time函数获取当天的时间

解决方案 »

  1.   

    有什么问题?
    不会判断时间吗?
    timer中:
    if format(now,"HH:MM")="11:30" or format(now,"HH:MM")="05:30"  then beep
      

  2.   

    请问这个format是什么函数!我是初学者!
      

  3.   

    Format() 格式化一个字符串,类似于 C 的 sprintf()
      

  4.   

    Format是一个格式转换函数,功能强大,而且可能会经常用到,下面举几个常用的例子给楼主参考:
    Format(Date, "YYYY")    '获得年
    Format(Date, "MM")         '获得月
    Format(Date, "DD")         '获得日
    Format(Time, "HH")         '获得时
    Format(Time, "NN")         '获得分
    Format(Time, "SS")         '获得秒
    Format(Date, "WW")         '获得周次
    Format(Date, "Q")          '获得季度
    Format(Date, "DDDD")       '获得星期
    Format(Date,"MM/DD/YYYY")  '将当前系统日期转换成月/日/年的方式,还可以是"DD-MM-YYYY","D-M-YY",顺序和中间的间隔符都可以自定。
    暂时就想到这些,楼主有时间看看相关的资料吧!
    祝成功!
      

  5.   

    '到时间响十次,每秒响一次,否则效果不好。
    Private Sub Timer1_Timer()
     '先设置 Timer1.Interval = 1000
        If Format(Now, "HH:MM") = "11:30" Or Format(Now, "HH:MM") = "05:30" Then
            For i = 1 To 10
                n = Timer * 10
                Do While Timer * 10 <= n + 10
                    DoEvents
                Loop
                Beep
            Next
        End If
    End Sub