求助wave文件格式!

2006-09-07 11:57:57 247 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

图解Kafka：Kafka架构演化与升级！数据分片存储是一种将大量数据分散存储在多个不同位置或设备上的技术。在数据量庞大的情况下，为了提高数据的存储效率、访问性能和可扩展性，将数据分割成较小的片段，然后分别存储在不同的节点或存储设备中。提高性能：通过将数据分散存储，可以并行地处理数据请求，从而加快数据的读取和写入速度。例如，在一个分布式数据库中，不同的分片可以同时响应查询，减少了总体的响应时间。增强可扩展性：当数据量不断增长时，可以方便地添加更多的分片来扩展存储容量，而无需对整个系统进行大规模的重构。避免单点性能瓶颈。阅读详情

各位好，哪位有详细的wav文件格式，请帮忙提供一下。
我读取了wav文件的前8字节，分别为 “RIFF”与一个整型数，按照一些资料上说，
整型数为文件长度-8，可是我得到的确是文件长度-58，不知为何，请高手指点，谢谢!

...全文

MOS 管驱动设计细节,波形分析一般认为MOSFET是电压驱动的，不需要驱动电流。然而，在MOS的G S两级之间有结电容存在，这个电容会让驱动MOS变的不那么简单。如果不考虑纹波和EMI等要求的话，MOS管开关速度越快越好，因为开关时间越短，开关损耗越小，而在开关电源中开关损耗占总损耗的很大一部分，因此MOS管驱动电路的好坏直接决定了电源的效率。对于一个MOS管，如果把GS之间的电压从0拉到管子的开启电压所用的时间越短，那么MOS管开启的速度就会越快。与此类似，如果把MOS管的GS电压从开启电压降到0V的时间越短，那么MOS管关断的阅读详情

vc_dreamver

多媒体 807 成员 8,274 内容

+ 关注 + 加入社区

切换为时间正序

vc_dreamver 2006-09-11

打赏
举报

谢谢

happy_sea 2006-09-09

打赏
举报

给你一段不完整的读wav文件的代码，你仔细分析一下应该对你有所帮助：

Dim yLec As Long, ydate As Date, ysg As Single
Dim yint As Integer, ybt As Byte
Dim LenData As Long, InData As Long
Dim Nbits As Integer, StMo As String
Me.Caption = "Waveform View - " & "(" & FName & ")"
Label1.Caption = "File: " & FName

Open FName For Binary Access Read As #1
Label2.Caption = "Size: " & LOF(1) & " Bytes"
Label3.Left = Label1.Left + Label1.Width + 500
Label3.Caption = "Last modified: " & FileDateTime(FName)
Label4.Caption = 0 'IniPlay of present Zoom
Label17.Caption = 0 '= selected Samples
For n = 1 To 100
X$ = Input(4, #1)
If n = 2 Then HOLDER$ = X$ ' Hold This for Saving a New Wav
If X$ = "fmt " Then Exit For 'Ignore everything else till this
Next n
'Get the Wave File Header Info
Get #1, , yLec ' 16
Get #1, , yint 'Compression Type (1=PCM)
Get #1, , yint 'is Channels, 1 if mono and 2 if stereo

If yint = 2 Then
Label9.Caption = "Stereo"
ElseIf yint = 1 Then
Label9.Caption = "Mono"
Else
Label9.Caption = "Error!"
GoTo Errhandler
End If
Get #1, , yLec 'is the Sampling frequency of the file

Label8.Caption = yLec
Get #1, , yLec 'is a multiple of the sample frequency

Get #1, , yint 'is the divisor of the number of bytes of
'data which gives the number of Samples in the .wav
yDiv = yint
Label12.Caption = yDiv
Get #1, , yint 'is the number of bits (8 or 16)

If yint = 8 Or yint = 16 Then
Label10.Caption = yint & " bits"
Else
Label10.Caption = "Error"
GoTo Errhandler
End If
GotTheData:
For n = 1 To 100
Y$ = Input(1, #1)

If Y$ = "d" Then Exit For ' Seek for start of Wav Data

Next n
Z$ = Input(3, #1)
If Z$ <> "ata" Then 'Wav Data Starts here
If n > 90 Then GoTo Errhandler
Temp = Seek(1)
Seek #1, Temp - 3
GoTo GotTheData
End If
Get #1, , yLec '= num of bytes of data, start reading data here.

Label13.Caption = yLec
LenData = yLec / yDiv
Label6(0).Caption = LenData
Label6(1).Caption = LenData
LenTemp = LenData / (Label8.Caption)
Extemp = (Int(LenTemp * 1000)) / 1000
If LenTemp - Extemp >= 0.0005 Then
Extemp = Extemp + 0.001
End If
Label14.Caption = "Length: " & Extemp & " seconds"
Label15(0).Caption = LenTemp
Label15(1).Caption = LenTemp
FimPlay = Int(LenTemp * 1000)
InData = Seek(1) 'Loc(1) + 1 is the number of the first sound data byte of the file.
Label11.Caption = InData
StMo = Label9.Caption
Nbits = Val(Label10.Caption)
MousePointer = vbHourglass 'Busy
Call GraphWave(InData, LenData, Nbits, StMo)
Close #1
Call DrawTickMarks
MousePointer = 0 ' Arrow
PlayControls = True
If Label9.Caption = "Stereo" Then
Frame2.Visible = True
Frame1.Height = 1815
Else
Frame2.Visible = False
Frame1.Height = 800
End If
MousePointer = 0
Exit Sub
Errhandler:
MsgBox "Error!!", vbOKOnly
Close #1

求助wave文件格式!

相关推荐