How to Create a Sound Recorder
Posted: Thu Mar 03, 2011 9:36 pm
Hello,
In this tutorial, we are going to learn how to create a sound recorder. Now, note this: this WILL NOT be a professional sound recording application, just a simple Record/Stop/Play recorder. Credits for me learning this: YouTube (forgot which video :? maybe someone else can find it)
Let's Go!
OK, start up Visual Basic. Title your program anything you want, but I will name mine "Sound Recorder".
Controls:
Object = Label, Name = Label1, Text = Ready..., Font = Default w/ Bold
Object = Button, Name = Button1, Text = Start
Object = Button, Name = Button2, Text = Stop
Object = Button, Name = Button3, Text = Play
Object = BackgroundWorker, Name = BackgroundWorker1
I organized my controls like in the picture below:
Code:
Go into the code, and add this right under Public Class Form1:
Go into the code for your Start button click event, and add this code:
I did not explain the code, because it is heavily commented. This should be good enough to learn this, as I commented it well, I think. Please +rep if you liked this!
~GoodGuy17
In this tutorial, we are going to learn how to create a sound recorder. Now, note this: this WILL NOT be a professional sound recording application, just a simple Record/Stop/Play recorder. Credits for me learning this: YouTube (forgot which video :? maybe someone else can find it)
Let's Go!
OK, start up Visual Basic. Title your program anything you want, but I will name mine "Sound Recorder".
Controls:
Object = Label, Name = Label1, Text = Ready..., Font = Default w/ Bold
Object = Button, Name = Button1, Text = Start
Object = Button, Name = Button2, Text = Stop
Object = Button, Name = Button3, Text = Play
Object = BackgroundWorker, Name = BackgroundWorker1
I organized my controls like in the picture below:
Code:
Go into the code, and add this right under Public Class Form1:
Code: Select all
This code is calling the DLL called winmm so we can use it.Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstyCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
Go into the code for your Start button click event, and add this code:
Code: Select all
Go into the code for the Stop button click event, and add this code: 'Enable Stop button
Button2.Enabled = True
'Disable Play button
Button3.Enabled = False
'Disable Start button
Button1.Enabled = False
'Start recording
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)
'Show status
Label1.Text = "Recording..."
Code: Select all
Go into the code for the Play button click event, and add this code: 'Enable Start button
Button1.Enabled = True
'Enable Play button
Button3.Enabled = True
'Disable Stop button
Button2.Enabled = False
'Save recording
mciSendString("save recsound C:\record.wav", "", 0, 0)
mciSendString("close recsound", "", 0, 0)
'Show status
Label1.Text = "Finished"
Code: Select all
Go into the code for the BackgroundWorker dowork event, and add this code: 'Show status
Label1.Text = "Playing..."
'Disable Play button
Button3.Enabled = False
'Disable Stop button
Button2.Enabled = False
'Disable Start button
Button1.Enabled = False
'Play recording
Me.BackgroundWorker1.RunWorkerAsync()
Code: Select all
Go into the code for the BackgroundWorker runworkercompleted event, and add this code: 'Play audio
My.Computer.Audio.Play("C:\record.wav", AudioPlayMode.WaitToComplete)
'Enable Start button
Button1.Enabled = True
'Disable Stop button
Button2.Enabled = False
'Enable Play button
Button3.Enabled = True
'Threading.Thread.Sleep
Threading.Thread.Sleep(250)
Code: Select all
About: 'Show status
Me.Label1.Text = "Done"
I did not explain the code, because it is heavily commented. This should be good enough to learn this, as I commented it well, I think. Please +rep if you liked this!
~GoodGuy17
