为何我用这几行代码录下来的声音有毛病呢???

qyh 2001-07-08 02:01:13
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()'录音
retval = mciSendString("open new type waveaudio alias wave", retstring, 256, 0)
retval = mciSendString("set wave bitpersample 8", "", 256, 0)
retval = mciSendString("set wave samplespersec 11025", "", 256, 0)
retval = mciSendString("set wave channels 2", "", 256, 0)
retval = mciSendString("record wave", "", 256, 0)
End Sub

Private Sub Command2_Click()'结束录音
Dim commandstring As String
retval = mciSendString("stop wave", "", 256, 0)
commandstring = "save wave" & " C:\wave.Wav"
retval = mciSendString(commandstring, "", 256, 0)
retval = mciSendString("close wave", "", 256, 0)
End Sub
...全文
120 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
qyh 2001-07-10
  • 打赏
  • 举报
回复
?
qyh 2001-07-10
  • 打赏
  • 举报
回复
是在Win2000+VB6.0下做的
qyh 2001-07-10
  • 打赏
  • 举报
回复
昨天拉了一天的肚子,今天真是舒服极了。

上面的程序不是有错误,而是录下来的声音好像是在不断的切换左右声道一样。
xxlroad 2001-07-08
  • 打赏
  • 举报
回复
98+5.0没有错误
TechnoFantasy 2001-07-08
  • 打赏
  • 举报
回复
可以呀,是什么毛病?

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧