📄 4750.html
字号:
<html>
<head>
<title>Re: recording wave file</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: recording wave file</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:honey0@tcts1.seed.net.tw">Honey</a> on August 14, 1998 at 21:56:11:<p>
In Reply to: <a href="4670.html">recording wave file</a> posted by Tony LIN on August 13, 1998 at 03:14:38:<p>
: vb6-pro win95 请问如何设定录 wave 档之格式 44.1k 16bits stereo<p>基本上 录音程式是以判断<br>档头的方式 分析声档录音方式<br>在8月7号 "教教我吧 要如何声音的绘出波形"中<br>有比较完整的档头资料<br>有空可以参考一下喔<p>若是一笔新开启的档案<br>用VB录音 就得先写入档头<br>当成是编辑一笔已存在的档案<br>通常是用以下程式码填入<p>Dim Tatle(1 To 11) As Long<br>Dim IntCost As Integer<br>Dim IntCost1 As Integer<br>Dim LngCost As Long<br>Dim i As Long<p>'/*以下是标准 16bit 44.1KHz 立体音_<br>声档的档头资料<br>Tatle(1) = 1179011410<br>Tatle(2) = 36<br>Tatle(3) = 1163280727<br>Tatle(4) = 544501094<br>Tatle(5) = 16<br>Tatle(6) = 131073<br>Tatle(7) = 44100<br>Tatle(8) = 176400<br>Tatle(9) = 1048580<br>Tatle(10) = 1635017060<br>Tatle(11) = 0<br>'*/<p>Dim StrFileName As String<br>StrFileName = "C:\h.wav"<br>'/*设定开启档案*/<br>If Dir(StrFileName) = "" Then<br>'/*如果档案是要新开启的 _<br>就需要填入档头*/<br> Open StrFileName For Random As #1 Len = 4<br> For i = 1 To 11<br> Put #1, i, Tatle(i) '/*填入档头*/<br> Next<br> Close #1<br>End If<p>'/*设定声档 bit <br>Open StrFileName For Random As #2 Len = 2<br>IntCost = 16 '/*16位元*/<br>'/*若IntCost= 8 表 8 bit _<br>若IntCost= 16 表16 bit*/<br>Put #2, 18, IntCost<p>Close #2 '*/<p>'/*设定取样数<br>Open StrFileName For Random As #3 Len = 4<br>LngCost = 44.1 '/*44.1kHz*/<br>'/*若LngCost= 22.1表 22.1 kHz _<br>若IntCost=44.1 表44.1 kHz*/<br>LngCost = LngCost * 1000<br>Put #3, 7, LngCost<br>Close #3 '*/<p><br>之后 就可以将档案开启<br>做录音的工作了<br>另外Visual Basic 专业版以上 <br>有 Multimedia MCI 控制项 <br>(在 Mci32.ocx中)<br>操作上~比较简单<br>嗯 简单介绍一下吧<p>档头写完后 加入以下程式<p>MMControl1.Notify = False<br>MMControl1.Wait = True<br>MMControl1.Shareable = False<br>MMControl1.DeviceType = "WaveAudio"<br>MMControl1.filename = StrFileName'/*之前设定的档名*/<br>'开启 MCI WaveAudio 周边设备。<br>MMControl1.Command = "Open"<p><p>在最后别忘了加入以下程式<br>Private Sub Form_Unload(Cancel As Integer)<br> MMControl1.Command = "Save" '/*储存档案*/<br> MMControl1.Command = "Close"<br>End Sub
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 4750-->
</ul><!--end: 4750-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -