模拟电子钟 带语音报时功能
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