VB实现整点报时

领测软件测试网

　　 
　　自从有了电脑以后，在电脑前一坐就是几小时，尽管时间就在电脑的右下方，我也懒得去看一看。镜片没有几天又厚了一圈，所以我就用VB编写了一个整点报时的程序，好好的安排一下我的作息。

　　首先用录音机为每一个整点录制一段声音，用来提示这个时候该做什么事情了，将所有的声音文件命名为soundn.wav(其中n=1、2、3……)，放在sounds文件夹里；声音播放用 Api函数sndPlaySound。

　　建立一个工程，在窗体上添加一个时钟控件（timer1，interval=800），然后添加如下代码：

　　Option Explicit
　　Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
　　Private Const SND_ASYNC = &H1
　　Private Const SND_NOWAIT = &H2000

　　Private Sub Form_Load()
　　'防止程序重复加载
　　If App.PrevInstance Then End
　　'隐藏窗体
　　Timer1.Interval = 800
　　Form1.Visible = False
　　End Sub

　　Private Sub timer1_Timer()
　　On Error Resume Next
　　Dim tmChk As Date
　　Dim sndFlag As Long

　　tmChk = Time
　　sndFlag = SND_ASYNC + SND_NOWAIT

　　'验证是否整点
　　If Minute(tmChk) = 0 And Second(tmChk) = 0 Then
　　'播放相应整点的声音文件
　　sndPlaySound App.Path & "\sounds\sound" & Hour(tmChk) & ".wav", sndFlag
　　End If
　　End Sub

　　程序编译成Clock.exe后，将其快捷方式拖到[启动]中，以后电脑每次启动都会有一个报时员为你报时了。本程序已在windows98+VB6.0环境下调试通过。

文章来源于领测软件测试网 https://www.ltesting.net/