录音机 杂音太大

[GodSeventh007]

程序实现功能：单击录音按钮开始录音，5s后自动保存音频文件到目录文件夹。
此时单击播放按钮，播放已经保存的音频
问题：同样的环境下为什么录音的音量比windows自带的录音机要小，而且自带的录音机基本上没有杂音，这个程序录音的杂音这么大呢？
以下是代码：
包含的控件：MMControl1，CmdPlay，CmdRecord
Dim i As Integer

Private Sub CmdPlay_Click()
MMControl1.Command = "close"
MMControl1.FileName = App.Path & "\temp.wav"
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub CmdRecord_Click()
With MMControl1

.Command = "Close"
.DeviceType = "Waveaudio"
.FileName = "C:\WINDOWS\Temp\~temp.wav"
.Command = "Open"
.Command = "Record"

End With
i = 0
End Sub

Private Sub Form_Load()
With MMControl1
' .Visible = False
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Form1.MMControl1.Command = "Close" '
End Sub


Private Sub MMControl1_StatusUpdate()
If MMControl1.Mode = mciModeRecord Then
If MMControl1.Length > 5000 Then
MMControl1.FileName = App.Path & "\temp.wav"
MMControl1.Command = "Save"
MMControl1.Command = "close"
MsgBox i
End If
i = i + 1
End If
End Sub

录音程序参照了郭东毅的录音程序。

[东方之珠]

打开音量控制，在属性里面的录音设置中选择立体声混音，并将音量调到最大。如果用话筒录音只选择“话筒”，如果用声卡录音选择“线路输入”，如果搞不清楚就选择“立体声混音”。同时将音量调到最大。

[碧海情天-赵亮]

MMControl可以调节音量。

[GodSeventh007]

[Quote=引用 1 楼 chenjl1031 的回复:]
打开音量控制，在属性里面的录音设置中选择立体声混音，并将音量调到最大。如果用话筒录音只选择“话筒”，如果用声卡录音选择“线路输入”，如果搞不清楚就选择“立体声混音”。同时将音量调到最大。
[/Quote]
已经试过，我用麦克风录音。选择“立体声混音”的时候，可以录到计算机放的音乐，但是人说话的声音却是录不进去。
选择“麦克风”的时候能够录到我说话的声音，就会出现开始说的问题：音量小，杂音很大

[GodSeventh007]

[Quote=引用 2 楼 theforever 的回复:]
MMControl可以调节音量。
[/Quote]谢谢您的提示，我搜一下

[GodSeventh007]

情况我没说清楚
1、选择立体声输入的时候，用这个程序录不到说话的声音，用windows自带的录音机也录不到声音
2、选择麦克风输入的时候，都能录到声音，两者音量差别不大，windows自带的录音机基本听不到杂音，这个程序的杂音就很明显。
请教各位，问题出在哪里呢？

[chinaboyzyq]

猜测windows录音机在录音过程中有声波波形自动处理功能，而MMControl控件可能没有此功能。

[贝隆]

飘过～～～～～～～～～～～～～～～～～～～～～～～～～～～

[GodSeventh007]

[Quote=引用 6 楼 chinaboyzyq 的回复:]
猜测windows录音机在录音过程中有声波波形自动处理功能，而MMControl控件可能没有此功能。
[/Quote]但是不会差别这么大吧，呵呵，噪音很大

[GodSeventh007]

[Quote=引用 9 楼 chenjl1031 的回复:]
录音时，话筒离音箱远一点。
[/Quote]试过啦，基本上没多大影响的。

[东方之珠]

录音时，话筒离音箱远一点。

[luofenghen]

不知道你有没有试过 windows 自带的把麦克风的 麦克风加强 之后 噪音会很大

[赵4老师]

试试在系统的音量控制中将麦克风静音后再录

[bdzwj]

用系统waveAPI 或DirectSound 录音的话都会出现这问题，想没有杂音的话需要做回音处理。

[bdzwj]

顺便说一下 mmcontrol 应该是基于 wave API实现的

[myy168]

路过......