in this tut i will show you How to make a sound recorder in VB 2008/2010. this will record sound ur mic hears when started. NOTE(READ THIS)- if you want this to save the sound recording direcly into the c drive like in the code you MUST...MUST....MUST have UAC disabled or use XP-If you dont want to disable UAC then you must change the file to were it saves to your User file folder and also the Audio Play: So Button 2 would be: Button1.Enabled = True Button2.Enabled = False Button3.Enabled = True mciSendString("save recsound c:\Users\Jeff\RECSOUND1.wav", "", 0, 0) mciSendString("close recsound", "", 0, 0) MsgBox("File Created: C:\recsound.wav") Label1.Text = "Stopped..." Label1.Visible = False My.Computer.Audio.Stop() And Button 3 would be: Label1.Text = "Playing..." Label1.Visible = True My.Computer.Audio.Play("c:\Users\Jeff\RECSOUND1.wav", AudioPlayMode.Background) All the code can be downloaded from: www.mediafire.com Or it is right Here :) : Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = False Button2.Enabled = True mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) Label1.Text = "Recording..." Label1 ...
Thursday, 10 January 2013
How to make a sound recorder in VB 2008/2010
How to make a sound recorder in VB 2008/2010 Video Clips. Duration : 6.58 Mins.
in this tut i will show you How to make a sound recorder in VB 2008/2010. this will record sound ur mic hears when started. NOTE(READ THIS)- if you want this to save the sound recording direcly into the c drive like in the code you MUST...MUST....MUST have UAC disabled or use XP-If you dont want to disable UAC then you must change the file to were it saves to your User file folder and also the Audio Play: So Button 2 would be: Button1.Enabled = True Button2.Enabled = False Button3.Enabled = True mciSendString("save recsound c:\Users\Jeff\RECSOUND1.wav", "", 0, 0) mciSendString("close recsound", "", 0, 0) MsgBox("File Created: C:\recsound.wav") Label1.Text = "Stopped..." Label1.Visible = False My.Computer.Audio.Stop() And Button 3 would be: Label1.Text = "Playing..." Label1.Visible = True My.Computer.Audio.Play("c:\Users\Jeff\RECSOUND1.wav", AudioPlayMode.Background) All the code can be downloaded from: www.mediafire.com Or it is right Here :) : Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = False Button2.Enabled = True mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) Label1.Text = "Recording..." Label1 ...
in this tut i will show you How to make a sound recorder in VB 2008/2010. this will record sound ur mic hears when started. NOTE(READ THIS)- if you want this to save the sound recording direcly into the c drive like in the code you MUST...MUST....MUST have UAC disabled or use XP-If you dont want to disable UAC then you must change the file to were it saves to your User file folder and also the Audio Play: So Button 2 would be: Button1.Enabled = True Button2.Enabled = False Button3.Enabled = True mciSendString("save recsound c:\Users\Jeff\RECSOUND1.wav", "", 0, 0) mciSendString("close recsound", "", 0, 0) MsgBox("File Created: C:\recsound.wav") Label1.Text = "Stopped..." Label1.Visible = False My.Computer.Audio.Stop() And Button 3 would be: Label1.Text = "Playing..." Label1.Visible = True My.Computer.Audio.Play("c:\Users\Jeff\RECSOUND1.wav", AudioPlayMode.Background) All the code can be downloaded from: www.mediafire.com Or it is right Here :) : Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button1.Enabled = False Button2.Enabled = True mciSendString("open new Type waveaudio Alias recsound", "", 0, 0) mciSendString("record recsound", "", 0, 0) Label1.Text = "Recording..." Label1 ...
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment