• Home
 · 
• Miscellaneous
 · 
• Record a WAV (.wav) file

Record a WAV (.wav) file

Finally, the RECORD source code for WAV files is here. Very easy, yet getting this (and all MCI commands) from Microsoft is like pulling teeth. We need simple code, so I brought this to you. Enjoy. I believe that I will start a website very soon, that will contain the entire listing and usage of the MCI Commands for the ordinary programmer like ourselves.

Assumes
Create a form (Form1). Add 3 command buttons to the form (Command1 Command2 Command3).

Returns
Creates a WAV file

API Declarations
'Included in the code below. Nothing here...(don't copy)

Rate Record a WAV (.wav) file

• 1
• 2
• 3
• 4
• 5

(5(5 Vote))

Private Declare Function mciSendString Lib "winmm.dll" Alias _
     "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
     lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
     hwndCallback As Long) As Long


Private Sub Command1_Click()
i = mciSendString("open new type waveaudio alias capture", 0&, 0, 0)
  
i = mciSendString("set capture bitspersample 8", 0&, 0, 0)
i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)
  
i = mciSendString("set capture channels 1", 0&, 0, 0)
  
i = mciSendString("record capture", 0&, 0, 0)

'bitspersample can be:
'  8
'  16
'
'samplespersec can be:
'  11025
'  22050
'  44100
'
'channels can be:
' 1 = mono
' 2 = stereo
End Sub

Private Sub Command2_Click()
  i = mciSendString("stop capture", 0&, 0, 0)
  i = mciSendString("save capture c:\NewWave.wav", 0&, 0, 0)
'  i = mciSendString("close capture", 0&, 0, 0)
End Sub

Private Sub Command3_Click()
i = mciSendString("play capture from 0", 0&, 0, 0)
End Sub
Private Sub Form_Load()
Me.Caption = "WAVE RECORDER"
Command1.Caption = "Record"
Command2.Caption = "Stop"
Command3.Caption = "Play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
i = mciSendString("close capture", 0&, 0, 0)
End Sub