|
就追加书写文件 V.AppendWaveFileDigit + ".wav" 内容来自论文无忧网 www.paper51.com 如果有错误，则显示错误 内容来自论文无忧网 www.paper51.com
IfV.ErrorNumber Then paper51.com showMsgV.ErrorDescribe copyright paper51.com
Exit Sub 内容来自www.paper51.com 退出过程 http://www.paper51.com
End If paper51.com End If http://www.paper51.com 一个做完后，执行下一个 http://www.paper51.com
Next I 内容来自论文无忧网 www.paper51.com
当我们做完后，我们将文件的指向要指向文件的头。 http://www.paper51.com V.SeekWaveFile0 'after weappended all the wave file,the current position of the wave file are moved tothe tail of the file,so we need to seek it to the head of the file 内容来自论文无忧网 www.paper51.com 如果有错误产生，则显示错误 内容来自论文无忧网 www.paper51.com 如果有错误，则显示错误信息 copyright paper51.com IfV.ErrorNumber Then paper51.com showMsgV.ErrorDescribe paper51.com 退出过程 内容来自www.paper51.com Exit Sub copyright paper51.com End If 内容来自论文无忧网 www.paper51.com
End If paper51.com Dim nEquipAs Integer http://www.paper51.com 定义设备文件 http://www.paper51.com IfOptLine.Value = True Then copyright paper51.com 0表示线路 paper51.com nEquip = 0 paper51.com 1表示声卡 paper51.com ElseIfoptSoundCard.Value = True Then 内容来自www.paper51.com nEquip = 1 paper51.com Else http://www.paper51.com 2表示耳卖 http://www.paper51.com
nEquip = 2 http://www.paper51.com End If http://www.paper51.com 指定好播放设备后，我们开始向指定的设备开始播放文件 内容来自www.paper51.com
V.StartPlayingnEquip, False paper51.com 如果有错误，则显示错误信息 copyright paper51.com IfV.ErrorNumber Then copyright paper51.com
showMsgV.ErrorDescribe copyright paper51.com
退出过程 内容来自www.paper51.com Exit Sub paper51.com
End If http://www.paper51.com 开始/停止播放变为停止 paper51.com
cmdStartOrStopPlay.Caption= "停止" http://www.paper51.com
开始/停止录音按钮失效 内容来自论文无忧网 www.paper51.com cmdStartOrStopRecord.Enabled= False 内容来自www.paper51.com 如果开始/停止播放按钮为停止，则开始播放 paper51.com ElseIfcmdStartOrStopPlay.Caption = "停止" Then 'now stop playing 内容来自论文无忧网 www.paper51.com
停止现在正在播放的内容 paper51.com V.Stop 内容来自论文无忧网 www.paper51.com 开始/停止播放按钮变成 播放 http://www.paper51.com cmdStartOrStopPlay.Caption= "播放" paper51.com 开始/停止录音按钮有效 内容来自www.paper51.com
cmdStartOrStopRecord.Enabled= True paper51.com End If paper51.com End Sub 内容来自论文无忧网 www.paper51.com 录音功能实现 copyright paper51.com PrivateSub cmdStartOrStopRecord_Click() paper51.com
Dim ResultAs Integer http://www.paper51.com 定义结束变量 http://www.paper51.com IfcmdStartOrStopRecord.Caption = "录音" Then http://www.paper51.com 如此按钮的值为开始录音的话 copyright paper51.com IfcmbWaveFormat.ListIndex = 0 Then http://www.paper51.com
内容来自论文无忧网 www.paper51.com 如果格式为第一种格式的话，产生一个格式为1,8000,16的新文件. 内容来自www.paper51.com V.NewWaveFile"record.wav", 1, 8000, 16 内容来自论文无忧网 www.paper51.com 如果格式为第二种的话，产生一个格式为1,8000,8的新文件。 内容来自www.paper51.com
ElseIfcmbWaveFormat.ListIndex = 1 Then http://www.paper51.com
V.NewWaveFile"record.wav", 1, 8000, 8 http://www.paper51.com
如果格式为第三种的话，产生一个格式为1,11025,8的新文件。 paper51.com
ElseIfcmbWaveFormat.ListIndex = 2 Then 内容来自论文无忧网 www.paper51.com V.NewWaveFile"record.wav", 1, 11025, 8 http://www.paper51.com End If 内容来自www.paper51.com 如果有错误产生，则显示错误。 copyright paper51.com IfV.ErrorNumber Then 内容来自论文无忧网 www.paper51.com showMsgV.ErrorDescribe copyright paper51.com
Exit Sub http://www.paper51.com End If paper51.com |