500 POINTS, Please help me as soon as possible.

Posted on 2006-07-02
Last Modified: 2012-08-13
I asked this question, but I must say that I'm not satisfied with the answer.
How to record from Microphone ~~>Save in to file and process.
Buy component, look Example CaptureSound, and another solution that too old, required directx7 or too difficult Solution,
I"m not an experts at all.

The best answer is that: if you can modify this code?  It seems work, but it automatically save this file in "C:\test.wav"
Can't here anything. Please help me. If this code is good, I can easily use this by call. "MyVar.StartRecord()" for example.
Please checked it carefully for me?
Thanks a lot.

Here is the code:

Imports Microsoft.VisualBasic
Imports System
Imports Microsoft.DirectX.DirectSound
Imports System.Windows.Forms
Imports Buffer = Microsoft.DirectX.DirectSound.Buffer
Imports System.IO
Imports System.Collections

Namespace DirectSoundRecording
    ''' <summary>
    ''' Class used to handle the sound capture qualities of the program
    ''' </summary>
    Public Class SoundRec
        Private devices As CaptureDevicesCollection = New CaptureDevicesCollection
        Private MyCapture As Capture = New Capture(devices(0).DriverGuid)  ' Am I right to choose this device?
        Private MySndBuf As CaptureBuffer
        ''' <summary>
        ''' Sets a default format capture buffer with no effects; 22KHz 8bit/sample, mono
        ''' </summary>
        Public Sub New()
            Dim MySBufDesc As CaptureBufferDescription = New CaptureBufferDescription()
            'setting the default wave capture format for use
            'by the buffer descriptor
            Dim DefaultFormat As WaveFormat = New WaveFormat()
            DefaultFormat.SamplesPerSecond = 22000 'default freq 22khz
            DefaultFormat.Channels = 1
            DefaultFormat.BitsPerSample = 8
            DefaultFormat.AverageBytesPerSecond = 22000
            DefaultFormat.BlockAlign = 1

            'setting the buffer descriptor to tell the capture buffer object how the
            'buffer should perform            
            MySBufDesc.Format = DefaultFormat
            MySBufDesc.BufferBytes = 2000000
            MySBufDesc.ControlEffects = False
            MySBufDesc.WaveMapped = True

            MySndBuf = New CaptureBuffer(MySBufDesc, MyCapture)
        End Sub

        ''' <summary>
        ''' Constructor that sets format and buffersize, as well as enables
        ''' echo cancellation and noise suppression effects
        ''' </summary>
        ''' <param name="MyFormat"></param>
        ''' <param name="bufsize"></param>
        Public Sub New(ByVal MyFormat As WaveFormat, ByVal bufsize As Integer)
            Dim MySBufDesc As CaptureBufferDescription = New CaptureBufferDescription()
            'Format has been defined in MainForm
            MySBufDesc.Format = MyFormat
            MySBufDesc.BufferBytes = bufsize
            MySBufDesc.ControlEffects = True
            MySBufDesc.WaveMapped = True

            '            CaptureAcousticEchoCancellationEffect AECEffect;
            '            MySBufDesc.CaptureEffectDescription = new CaptureEffectDescription[1];
            '            MySBufDesc.CaptureEffectDescription[0].LocateInSoftware = true;
            '            MySBufDesc.CaptureEffectDescription[0].GuidEffectsClass = DSoundHelper.CaptureEffectsMsAcousticEchoCancellation;
            '            MySBufDesc.CaptureEffectDescription[0].GuidEffectsInstance = DSoundHelper.InterfaceCaptureEffectsAcousticEchoCancellation;
            '            MySBufDesc.CaptureEffectDescription[1].LocateInSoftware = true;
            '            MySBufDesc.CaptureEffectDescription[1].GuidEffectsClass = DSoundHelper.CaptureEffectsMsNoiseSuppression;

                'Create the CaptureBuffer
                MySndBuf = New CaptureBuffer(MySBufDesc, MyCapture)
            Catch se As SoundException
                MessageBox.Show("There is a " & se.ErrorString & " sound exception", "DirectSound Error")
            End Try
        End Sub
        ''' <summary>
        ''' Starts the capture from the capture device
        ''' </summary>
        Public Sub StartRecord()
        End Sub

        ''' <summary>
        ''' Stops the recording of sound.
        ''' </summary>
        Public Sub StopRecord()
        End Sub

        ''' <summary>
        ''' Saves the data in the capture buffer into a wave file
        ''' </summary>
        Public Sub ReadData()
            Dim readposition, writeposition As Integer
            Dim byteArrayList As ArrayList = New ArrayList()
            Dim ascii As System.Text.ASCIIEncoding = New System.Text.ASCIIEncoding()

            'Create a new wav file to store the capture buffer data.
            'if already exists will overwrite filename is test.wav
            Dim path As String = "c:\test.wav"
            Dim MemStream As Stream = New MemoryStream()
            MySndBuf.GetCurrentPosition(writeposition, readposition)
            MySndBuf.Read(0, MemStream, writeposition, LockFlag.None)
            Dim MyStream As Stream = New FileStream(path, FileMode.Create)
            'begin to write the wave file header. for more details
            'Search for "wave formats"
            'RIFF header

                byteArrayList.AddRange(ToBytes(36 + CInt(Fix(MemStream.Length)), 4))

                'fmt  chunk
                byteArrayList.AddRange(ascii.GetBytes("fmt "))
                'length of fmt chunk (never changes)
                byteArrayList.AddRange(ToBytes(16, 4))
                '"1" for pcm encoding
                byteArrayList.AddRange(ToBytes(1, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.Channels, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.SamplesPerSecond, 4))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.AverageBytesPerSecond, 4))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.BlockAlign, 2))
                byteArrayList.AddRange(ToBytes(MySndBuf.Format.BitsPerSample, 2))

                'the data chunk
                byteArrayList.AddRange(ToBytes(CInt(Fix(MemStream.Length)), 4))
                Dim buffer As Byte() = New Byte(MemStream.Length - 1) {}
                MemStream.Read(buffer, 0, CInt(Fix(MemStream.Length)))
                buffer = New Byte(byteArrayList.Count - 1) {}
                MyStream.Write(buffer, 0, buffer.Length)
            Catch ae As ArgumentException
                MessageBox.Show("Argument Exception with Message:" & Constants.vbLf + Constants.vbTab + ae.Message)
            End Try

        End Sub

        ''' <summary>
        ''' returns capture status (boolean)
        ''' </summary>
        ''' <returns></returns>
        Public Function Capturing() As Boolean
            Return MySndBuf.Capturing
        End Function

        ''' <summary>
        ''' Recursive method that returns a target number in the form
        ''' of an ArrayList of bytes with designated number of bytes. If not enough
        ''' bytes to hold the targetnumber, will throw argumentexception.
        ''' Should be used in a try-catch clause
        ''' </summary>
        ''' <param name="targetnumber">the value intended to convert</param>
        ''' <param name="numofbytes">number of bytes needed</param>
        ''' <returns></returns>
        Private Function ToBytes(ByVal targetnumber As Integer, ByVal numofbytes As Short) As ArrayList
            Dim remainder, result As Integer
            Dim returningarray As ArrayList

            Dim wrongnumofbytes As ArgumentException = New ArgumentException("Not enough bytes to represent number", "numofbytes")
            result = Math.DivRem(targetnumber, 256, remainder)

            'if not enough bytes specified to represent target number
            If targetnumber >= Math.Pow(256, CDbl(numofbytes)) Then
                Throw wrongnumofbytes
            End If

            'if there are higher significant hexadecima, run a recursion
            If result >= 1 Then
                returningarray = ToBytes(result, CShort(Fix(numofbytes - 1)))
                returningarray.Insert(0, Convert.ToByte(remainder))
                Return returningarray

            Else 'if (result < 1) recursion terminating condition
                returningarray = New ArrayList(numofbytes)
                Dim i As Integer = 0
                Do While i < numofbytes - 1
                    returningarray.Add(Convert.ToByte(0)) 'fill up most significant hexadecima with 0's
                    i += 1
                Return returningarray
            End If
        End Function
    End Class 'end class

End Namespace
Question by:cutoi
  • 3

Author Comment

ID: 17027186
Please help me.

Author Comment

ID: 17027249
OK, My purpose is very simple.
Instead of chosing a lot of choice to record.
I just want to record:
- from Microphone
-saved to "c:\test.wav"

please help me.

Accepted Solution

jrscherer earned 500 total points
ID: 17027330

Author Comment

ID: 17027530
Oh, I'm doing with it, But I don't want all the Form, What I need is not a form, It has 2 button:
StartRecording and StopRecording(and save file in C:\test.wav) - 44100,16bit,stereo.
To read all code and translate is too difficult for me. I've just learn VB and need it to do my work. That's all.
Please help me.

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Spacing between controls 4 30
VB.Net How to Exit Sub - Exit Form??? 5 48
Help with Syntax 9 26
Show/Hide ASP.NET controls with JQuery best practices 3 14
Introduction As chip makers focus on adding processor cores over increasing clock speed, developers need to utilize the features of modern CPUs.  One of the ways we can do this is by implementing parallel algorithms in our software.   One recent…
Parsing a CSV file is a task that we are confronted with regularly, and although there are a vast number of means to do this, as a newbie, the field can be confusing and the tools can seem complex. A simple solution to parsing a customized CSV fi…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Windows 10 is mostly good. However the one thing that annoys me is how many clicks you have to do to dial a VPN connection. You have to go to settings from the start menu, (2 clicks), Network and Internet (1 click), Click VPN (another click) then fi…

912 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now