Record sound from CD (Track1, Track2...) to a WAV file.
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: Record sound CD (track) to WAV file.
' Description:Record sound from CD (Track1, Track2...) to a WAV file.
' By: Damjan
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=2091&lngWId=1'for details.'**************************************
'This control use MCI to control CD
Public Sub RecordWave(TrackNum As Integer, Filename As String)
' TrackNum: track to record
' Filename: file to save wave as
On Local Error Resume Next
Dim i As Long
Dim RS As String
Dim cb As Long
Dim t
RS = Space$(128)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
Kill Filename
RS = Space$(128)
i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb)
i = mciSendString("open cdaudio", RS, 128, cb)
i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb)
i = mciSendString("play cdaudio", RS, 128, cb)
i = mciSendString("open new type waveaudio alias capture", RS, 128, cb)
i = mciSendString("record capture", RS, 128, cb)
t# = Timer + 1: Do Until Timer > t#: DoEvents: Loop
i = mciSendString("save capture " & Filename, RS, 128, cb)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)
End Sub
I am new to sound recording and the MCI control and I was wondering if you could explain how the code works. Thanks. (If this comment was disrespectful, please report it.)
Actually, i am looking for capturing voice using microphone and storing it in .wav format Any help/suggestion/codes ? Thanks (If this comment was disrespectful, please report it.)
Man this process is slow. Does anybody have a more efficent way of ripping a cd other than catching whatever goes through the mci? Like just transfering sectors over from the cd and saving it as a .wav file??? (If this comment was disrespectful, please report it.)
This code doesn't appear to DIRECTLY 'pull' the data trac off the cd-audio disc. It looks like it's recording thru the mixer and audio cable that connects the cd-rom drive to the sound card. This doesn't do a bit extract.... Am I wrong? -Thanks (If this comment was disrespectful, please report it.)
i need help...because i cant get this program to work, it plays 2 seconds of this song and then stops and then doesnt even create a file! can anyone help?
please, thanks (If this comment was disrespectful, please report it.)
7/20/1999 12:45:00 PM:
???? (If this comment was disrespectful, please report it.)
This program is equivalent to the one submitted on 8/30/98 by jacob alberty. Jacob should get the award instead! (If this comment was disrespectful, please report it.)
I am a Programmer from Sri lanka. This is my first access to "http://www.planet-source-code.com/vb/" I want to know more about visual basic. thanks for your web site. (If this comment was disrespectful, please report it.)
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long (If this comment was disrespectful, please report it.)
I wonder how the judges of this site determine the superior code for a month - by looking at the description or the code? I don't believe that they have try the programs out! (If this comment was disrespectful, please report it.)
Shaun - Corret, this is not a bit, or byte, ripper such as "AudioGrabber" or NaRc's MPEG Workshop ;) use. They are created in C/C++ for speed and since VB cannot modify a byte directly you wold have to use an addon or OCX such as "Dialog-Medien ACD Control (www.dialog-medien.de)" to implement a byte ripper into a VB program. (If this comment was disrespectful, please report it.)
PLEASE HELP (URGENT)- I am new to VB. I am using vb6, so when I copy the code, where do I paste it. Please mail me. Very urgent. Thank you. (If this comment was disrespectful, please report it.)
I'd like to produce a program on CD that will automatically execute whenever the CDROM is placed inside the drive. Any suggestion? (If this comment was disrespectful, please report it.)
THIS CODE stinks, sure it works but you have to fix it first!, How the judges pick these! All you did was make some links to dll files, and u did the WRONG! (If this comment was disrespectful, please report it.)
Are you fool? This code is best it can be. Do you know what a DLL is used for when you blame this code and his creator? and for others. First read the comments be4 asking a question - someone may have asked it be4 you. And the others, do NOT be lame. First explore all the secrets of your VB and THEN come here to get code. These aren't for the VERY starters. (If this comment was disrespectful, please report it.)
I am trying to work put how to set my CD Rom to rip at 4x it is capable of it and does it with audiograbber, anyone care to enlighten me? Tanks... (If this comment was disrespectful, please report it.)
Asyoung, you can make a cd automatically start up by placing a file called autorun on your cd, not sure the parameters you have to pass this file, been a while since i used it. Look in your VB help for autorun, may be there. (If this comment was disrespectful, please report it.)
if you are having problem with the .wav file it might be cuz you need to close the capture after your done recording. i = mciSendString("close capture", 0&, 0, 0) (If this comment was disrespectful, please report it.)
I need help getting it to work. So far I coped it to the form (code) HELP!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! (If this comment was disrespectful, please report it.)
ok this code works... at first it didn't, but, when modified it does... all you "Cut And Paste" programmers run to these sights and expect the gracious programmers who dedicate this code to you people to write your programs for you, and if they sent you something wrong, you jump all over them and say they suck... grow up and learn to program before you make pointless comments...and to the programmers dedicating this source, thank you very much for your time... -mouse (If this comment was disrespectful, please report it.)
Anyone know how to turn a .wav file into a list of numbers representing the amplitude at each sample - i.e. a text file like sound is stored in unix (If this comment was disrespectful, please report it.)
nouw t werkt niej hoor... mci nogwat is niet defined (If this comment was disrespectful, please report it.)
7/4/2005 10:32:08 AM:
Does anyone have vb code that can playback a CD, Wav file or MP3 file at 1/2 speed 1/4 speed etc. ? Any help would be greatly appreciated.
my email is cheol00@hitel.net (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 102 Users
6/15/1999 7:51:00 PM: 
