wavefile.bas

来自「显示wav文件波形图,用于wav文件分析研究.」· BAS 代码 · 共 30 行

Attribute VB_Name = "WaveFile"
Type RIFFHead
    ID0 As String * 4
    ChunkSize As Long
    ID1 As String * 4
    ID2 As String * 4
    WaveHeadSize As Long
End Type
Type WAVEHead
    FormatTag As Integer
    Channels As Integer
    SamplesPerSec As Long
    AvgBytesPerSec As Long
    BlockAlign As Integer
    BitsPerSample As Integer
    ID3 As String * 4
    DataSize As Long
End Type
Type WAVEHeadEx
    FormatTag As Integer
    Channels As Integer
    SamplesPerSec As Long
    AvgBytesPerSec As Long
    BlockAlign As Integer
    BitsPerSample As Integer
    Empty As Integer
    ID3 As String * 4
    DataSize As Long
End Type