VB做电子报时钟(19)

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

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