16972.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 26 行

HTML
26 行
字号 
<html>
  <head>
    <title>为何老是录出8位元单音？</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>为何老是录出8位元单音？</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:ijung@ms1.hinet.net">榕树</a> on August 10, 1999 at 09:22:06:<p>
      cmdStr = "Open New type WaveAudio alias wave"<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If optBit(0).Value Then<br>        cmdStr = "set wave bitspersample 8"<br>      Else<br>        cmdStr = "set wave bitspersample 16"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If optRat(0).Value Then<br>        cmdStr = "set wave samplespersec 11025"<br>      ElseIf optRat(1).Value Then<br>        cmdStr = "set wave samplespersec 22050"<br>      Else<br>        cmdStr = "set wave samplespersec 44100"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      If RetValue <> 0 Then MsgBox "wrong"<br>      If optCha(0).Value Then<br>        cmdStr = "set wave channels 1"<br>      Else<br>        cmdStr = "set wave channels 2"<br>      End If<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>      cmdStr = "record wave"<br>      RetValue = mciSendString(cmdStr, returnString, 256, 0)<br>为何以上不管怎么设定，老是录出8位元单音？
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16972-->
<!--top: 17027--><li><a href="17027.html">Re: 为何老是录出8位元单音？</a> <b>Sun Jack</b> <i>23:25:34 8/10/99</i>
(<!--responses: 17027-->0)
<ul><!--insert: 17027-->
</ul><!--end: 17027-->
</ul><!--end: 16972-->
<br><hr size=7 width=75%><p>

</body></html>

16972.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 16972.html 源码文件，采用 HTML 编程语言编写，共 26 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?