自从有了电脑以后，在电脑前一坐就是几小时，尽管时间就在电脑的右下方，我也懒得去看一看。镜片没有几天又厚了一圈，所以我就用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环境下调试通过。
