VB做电子报时钟(19)

时间:2025-04-05

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

Case 4

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

ErrorCode = mciSendString ( “ Open ” & App . Path & “ 0.wav ” & “ type WaveAudio alias wave ” , ReturnString , 256 , 0 ) ‘打开所选择的文件

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

Case 5

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

ErrorCode = mciSendString ( “ Open ” & App.Path & “ 0.wav ”WaveAudio alias wave ” , ReturnString , 256 , 0 ) ‘打开所选择的文件

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

Case 6

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

ErrorCode = mciSendString ( “ Open ” & App . Path & “ 0.wav ”WaveAudio alias wave ” , ReturnString , 256 , 0 ) ‘打开所选择的文件

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

Case 7

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

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

‘打开所选择的文件

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

Case 8

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

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

‘打开所选择的文件

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

Case 9

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

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

‘打开所选择的文件

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

Case 10

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

& “ type & “ type & “ type & “ type & “ type

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

精彩图片

热门精选

大家正在看

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

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

支付方式:

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

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