VB做电子报时钟(18)

时间:2025-04-05

模拟电子钟 带语音报时功能

Call GetLocalTime( dangqianshijian ) miao = dangqianshijain . wSecond miao = 60 – miao

fen = dangqianshijian . wMinute fen = 60 - fen

shi = dangqianshijian . wHour

If shi >= 12 Then ‘因为一天之内时针要走二十四个钟头,也就是要走两圈,所以将下午和晚上的时间减去十二,就可以确定时针准确的位置 shi = shi - 12 End If

shi = 12 - shi

miao = xianshimiao ( maio )

fen = xianshifen ( fen ) shi = xianshishi ( shi )

If fen = 0 and miao = 0 then ‘如果分针和秒针都为零,这位整点,根据时针的数报时

Select case shi

Case 0 ‘零点,0.wav报时零点

MMControl1.FileName = App . Path & “ 0.wav ” ‘选择要打开的文件

ErrorCode = mciSendString ( “ Open ” & App . Path & “ 0.wav ” & “ type

WaveAudio alias wave ” , ReturnString , 256, 0 ) ‘打开所选择的文件

ErrorCode = mciSendString ( “ Play wave ”, ReturnStr , 256 , 0 ) ‘播放所选择的文件

Case 1 ‘ 一点,1.wav报时一点,以下依次类推

MMControl1.FileName = App . Path & “ 1.wav ” ‘选择要打开的文件

ErrorCode = mciSendString (“Open” & App.Path & “0.wav” & “type WaveAudio alias wave ” , ReturnString , 256 , 0 )

‘打开所选择的文件

ErrorCode = mciSendString (“ Play wave” , ReturnStr , 256 , 0 ) ‘播放所选择的文件

Case 2

MMControl1.FileName = App . Path & “ 2.wav ”

ErrorCode = mciSendString ( “Open” & App.Path & “0.wav” & “type WaveAudio alias wave ” , ReturnString , 256 , 0 )

‘打开所选择的文件

ErrorCode = mciSendString ( “ Play wave ” , ReturnSt r , 256 , 0) ‘播放所选择的文件

Case 3

MMControl1.FileName = App . Path & “ 3.wav ”

ErrorCode = mciSendString ( “ Open ” & App . Path & “ 0.wav ” & “ type WaveAudio alias wave ” , ReturnString , 256 , 0 )

‘打开所选择的文件

ErrorCode = mciSendString ( “ Play wave ” , ReturnStr , 256 , 0 ) ‘播放所选择的文件

VB做电子报时钟(18).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219