原创桌面报时程序

 2006-12-18 21:01  3466 5 7 分类: MCU/ 嵌入式

桌面报时程序

这是一款简单的桌面报时程序，不需要播放控件的报时程序。现在拿出来和大家分享，希望大家喜欢！如果希望得到配套的音效文件，请在下面留下你们的邮箱，我会及时发送文件的。

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Const SND_SYNC = &H0
'SND_SYNC播放WAV格式文件，播放完毕后将控制转移回应用中。
Const SND_ASYNC = &H1
'SND_ASYNC播放WAV格式文件，将控制立即转移回应用程序中，而不管对WAV文件的播放是否结束。

Const address = "F:\My_Program\VB编程程序\报时钟\Sounds\YY\"'报时音效文件
Dim hour_s As Integer, hour_g As Integer
Dim minute_s As Integer, minute_g As Integer

Public Function bs(addr As String)
Dim tt As Long
tt = sndPlaySound(address + addr + ".wav", SND_SYNC)
End Function

Public Sub now_time()
Dim h1 As Integer, m1 As Integer

h1 = Hour(Time)
m1 = Minute(Time)
hour_s = h1 \ 10 '小时和分数据的读取
hour_g = h1 Mod 10
minute_s = m1 \ 10
minute_g = m1 Mod 10

If hour_s = 1 Then '小时的处理
bs (10)
ElseIf hour_s = 2 Then
bs (2)
bs (10)
End If
If hour_g > 0 Then
bs (hour_g)
End If
bs ("d")
If (minute_s = 0) And (minute_g = 0) Then '整点的判断
bs ("z")
Else
    If minute_s = 0 Then '分的处理
      bs (0)
    Else
        If minute_s > 1 Then
          bs (minute_s)
        End If
        bs (10)
    End If
   If minute_g <> 0 Then
      bs (minute_g)
   End If
bs ("s")
End If
End Sub