/ Snippet Library - View Code

Visual Basic / Sound / Disecting WAV Files

Snippet details

ID: 398

Viewed: 1341

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

Disecting WAV Files

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight AllOption Explicit Private Type WaveHeader ' 12 bytes riff As String * 4 bytes As Long wave As String * 4 End Type ' Private Type WaveFormat ' 22 bytes fmt As String * 4 chunkSize As Long formatTag As Integer channels As Integer samplesPerSecond As Long aveBytesPerSecond As Long blockAlign As Integer bitsPerSample As Integer End Type
Code
Highlight AllPrivate Sub ShowWavHeaderDetails(ByVal sWavFileName As String) ' Dim FileNum As Integer Dim wh As WaveHeader Dim wf As WaveFormat FileNum = FreeFile ' If Len(sWavFileName) > 0 Then Open sWavFileName For Binary As FileNum Get #FileNum, , wh Get #FileNum, , wf Close FileNum Debug.Print w.riff Debug.Print "Bytes: " & CStr(wh.bytes + 8) Debug.Print wh.wave Debug.Print wf.fmt Debug.Print CStr(wf.chunkSize) & " (bytes per chunk)" Debug.Print IIf(wf.formatTag = 1, "Uncommpressed", "Compressed") Debug.Print IIf(wf.channels = 1, "Mono", "Stereo") 'can be mutiple channels too (i.e. Quad) Debug.Print "Sampling Rate: " & CStr(wf.samplesPerSecond) Debug.Print "Bytes Per Second: " & CStr(wf.aveBytesPerSecond) Debug.Print "Sample size in bytes: " & CStr(wf.blockAlign) Debug.Print CStr(wf.bitsPerSample) & " Channels" 'not correct for Layer3 WAV Debug.Print CStr((wh.bytes - 26) / wf.aveBytesPerSecond) & " seconds" End If End Sub

No Reviews to show