# 为何老是录出8位元单音？

Posted by 榕树 on August 10, 1999 at 09:22:06:

cmdStr = "Open New type WaveAudio alias wave"
RetValue = mciSendString(cmdStr, returnString, 256, 0)
If optBit(0).Value Then
cmdStr = "set wave bitspersample 8"
Else
cmdStr = "set wave bitspersample 16"
End If
RetValue = mciSendString(cmdStr, returnString, 256, 0)
If optRat(0).Value Then
cmdStr = "set wave samplespersec 11025"
ElseIf optRat(1).Value Then
cmdStr = "set wave samplespersec 22050"
Else
cmdStr = "set wave samplespersec 44100"
End If
RetValue = mciSendString(cmdStr, returnString, 256, 0)
If RetValue <> 0 Then MsgBox "wrong"
If optCha(0).Value Then
cmdStr = "set wave channels 1"
Else
cmdStr = "set wave channels 2"
End If
RetValue = mciSendString(cmdStr, returnString, 256, 0)
cmdStr = "record wave"
RetValue = mciSendString(cmdStr, returnString, 256, 0)
为何以上不管怎么设定，老是录出8位元单音？

Follow Ups:

- Re: 为何老是录出8位元单音？ Sun Jack 23:25:34 8/10/99 (0)