Fixed it! This is the source that will let you make your own CD Player! It uses the Media Control Interface (MCI) via API to play a audio cd. [NOTE: For this class to work on a form you must reference the class eg. (Set Snd = New CDAudio. I already have prepared it in the included zip.)
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
Scan the source code with Minnow's Project Scanner
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
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.
To get rid of the sid effect use the command stop.visible = false put this in the stop button private sub stop_click. this will stop people clicking on the stop button. (If this comment was disrespectful, please report it.)
hey, i put ion the code and everything.. but it sais compile error ambiguous name detected form_load!!!!!!!!!!!! (If this comment was disrespectful, please report it.)
The reason you are getting that error is because you have two form_load subs. If you look through the code you will find the mistake. P.S. Chance, give Mike a break cause he is only 13 years old and programming in VB. When I was 13 I only did Java and JavaScript. I didn't start programming in VB and C++ until I was fourtean. Which was acouple of monts ago. (If this comment was disrespectful, please report it.)
Congratulations ... I learned Vb. along without any person that teach me. I will continue learning Vb. along and thank's for your examples. I'll write you soon. (If this comment was disrespectful, please report it.)
Mike, That is a pretty dam good job man, keep it up. I am only 16 and I am learning 5 languages. I am aready do advanced in computers the computer lab teacher does not like me in her class. And like today I cracked her passwords. Don't worry know what you wanna be whenyou get older, a hacker... Yup Yup I am, and the why you are looking now you will be pretty dam good! hope you get up there with bill gates! (If this comment was disrespectful, please report it.)
Hey i am 14 and i am an intermediate at VB. I started VB when i was 12, but i admit i still kinda suck. I have my own Software CO. and i need lots of help on sprites. I am even learning C++, so i can understand what this kid is going through. CYA (If this comment was disrespectful, please report it.)
Ure one raw kid for 13 and knowin all that. I started at twelve but slacked off during the years and forgot most of what I learned. I got one ques., how can I save something through the code. Like if someone usin my program wanted to save info. so it wont disappear after being shut down. How da hell am i supposed to do that?! (If this comment was disrespectful, please report it.)
I'm getting a 'Compile Error, User-Defined type not defined.'
I pasted the Dim Snd As CDAudio line into the General Declarations section in my form1.
Maybe I pasted the first two functions (the mci stuff) wrong? I created a module and pasted everything. Seemed simple enough. I must be missing something simple.
Thanks for any suggestions. Doug (If this comment was disrespectful, please report it.)
I'm getting a 'Compile Error, User-Defined type not defined.' it doesn't recognize what Cdauido is how do i fix that (If this comment was disrespectful, please report it.)
Phat Phreak Why dont you try using the registry to save your data, so its not lost after you reboot. I would need to know what your doing in order to help you with your problem. Try this as an example. 1st you must create a new key in your system registry, I will email you correct syntax. VB programer for 4 years now 21 started 17 half or 18 , To all you vbprogramers remember greatness comes with time and paience. :)
(If this comment was disrespectful, please report it.)
Hey, can somebody be kind enough to tell me why I can't set my snd as a CDAudio? It gives me an error about component not existing or something like that... If somebody can help me, please answer Eric (If this comment was disrespectful, please report it.)
Yeah, thats awesome that a 13 yr old is doin V.B. I tryed C++ when i was 10, but i didnt quite get it! Im 12 now, and doing V.B (If this comment was disrespectful, please report it.)
Not picking on the little fella but why is this code so shifty? No wonder why the stop click command freezez,it's got a huge loop in it(10000?????) For the code to work as well, the "Dim Snd as CDAudio" at the start of the form and "Set.Snd = New CD" in the form load event has to be ommited Nice try though. (If this comment was disrespectful, please report it.)
I'm not picking on the little guy either but, VB doesn't have a CDAduio choice when Dim-ing. Is there something that has to be with MSCDEX.dll file? please someone email with an answer (If this comment was disrespectful, please report it.)
When I try to run the player it tells me theres an error with the code and it highlights the FastFWD COMAND line. Any solution ideas?? (If this comment was disrespectful, please report it.)
Hi, Good job with the player I just have one error Private Sub Form_Load() Set Snd = New CDAudio<--User-Defined Type not defined Snd.ReadyDevice End Sub (If this comment was disrespectful, please report it.)
To all of yous that are having problems with the source code, please double check everything. If that doesnt work, besure your using a 32bit Visual Basic, vb3.0 and vb4 16bit wont work with this source code. If it still wont work, Email me at: NikeKing23@aol.com and ill try/explain in detail on whats wrong and how to fix it. Thanks everyone! (If this comment was disrespectful, please report it.)
Hi Mike You^r source code is verry good. I^m searched a long time for some simmilar code, but i didn^t find somewehre. I can only say :"Go so on" for your future. But don't forget your school because it's very important if you want later to have a nice job by informatic szene.
I wish you the best , say goodbey and thank you.
with kindly regards Madwin (If this comment was disrespectful, please report it.)
I too am getting a 'User-defined type not defined' message from Form_Load, and no-one seems to have posted a definitive answer to that as yet. Have tried rem'ing the line that defines snd, but as expected that only voids all references to 'snd'.. any ideas? I checked for winmm.dll in my /win/system dir already..
Cheers,
Chris. A 17-year old VB'er who should prolly be able to figure this one out! (If this comment was disrespectful, please report it.)
There is a problem in the function CheckCD() it doesn't return valid data for the varible type (integer) so you have to add right before the end of the function:
CheckCD = 0 If Mid$(s, 1, 4) = "true" Then CheckCD = 1 (If this comment was disrespectful, please report it.)
Hi Mike! Maybe you can help me? I have problems with printing out the contents of a listbox. Can you help me with that? Please help me, I`m desperate!!! (If this comment was disrespectful, please report it.)
A few things about vb... first of all v c++ is a lot nicer once you learn how to use it but Im still using my vb 4 which I've had since 7th grade :) Owell, the cd player is very nice good job (If this comment was disrespectful, please report it.)
I'm a newbie to VB and i have been screwing around w/ it in the past few days. I tried to make that CD Player and followed the directions, but i get the error "compile error, user def...bla bla bla" could someone help me? Thanks (If this comment was disrespectful, please report it.)
I think the major problem with the compile error is the created class is not being named CDAudio. Change the name Class1 to CDAudio. Also I renamed the command button "Stop" to "cmdStop". Stop is a keyword and I don't normally use a keyword for controls. This is a fine job Mike. I only wish they had computers when I was 13. (If this comment was disrespectful, please report it.)
I'm having the same problem as everyone else; I keep getting- "User-Defined Type not defined" I tried to get it to work in Vb 4/32 and Vb 5. No one has posted a real solution. Someone please help me. (If this comment was disrespectful, please report it.)
Didnt have it working at first But instead of pasting the Windows API/Global Declarations in a .BAS I pasted it in a Class Module and named it CDAudio and it works perfect.
Again Good Job.. (If this comment was disrespectful, please report it.)
Yo, PhatPhreak: Saving stuff to reload after a reboot/program restart is easy - use the registry, or slap another file somewhere - root dir's are good for that, or read some environment vars and store it in the windows dir itself. (If this comment was disrespectful, please report it.)
I would like to say very nice job. For a 13 year old you got yourself in the right direction. I mean I only started at 15 now a year later I can program in 5 different languages and can hold my own in all. If ya stick to it ya got a head start on most of us :) Good Luck and Good Job! (If this comment was disrespectful, please report it.)
Mike- It seems that a lot of people have been having problems with your code including myself. I have been programming in VB for about a year and created several programs such as programs that detect trojan horse servers on your computer and an alpha-numeric paging console for my dad's paging company. In all my programming(really not all that long) I've never seen someone as young as you making programs like this, good try but if you wanna really impress me you can tell me how I make the dang thing work. I've run through the code with a fine toothed comb and I can't for the life of me figure out what I'm doing wrong or what you did wrond in your code. Please anyone(especialy Mike) e-mail me with how I can make this thing work in VB 5.0, I'm looking forward to your responses and sorry this is sooo long. Sincerely, Mark Doering CEO Web Design Management (If this comment was disrespectful, please report it.)
For only being 13 We all can see a good programing style emerging from you.. Nicely done code :c).. You should look into assembly language.. I'm sure youll like it and if u stick with it youll be 99% above all the others in the programing feild.... Keep On Programing, And I look Forward to seeing more Code from you in the future, As do most of us :c) (If this comment was disrespectful, please report it.)
Not bad. You are trying to load a bas mod as an instance of a class or object, though; which is throwing the type-not-def err. The easiest fix on this is to leave the module as a bas mod and simply remove any references to Snd or CDAudio; they are excessive. Calling any of the functions in the module by name alone should work. That's the beauty of using any API...most of the device handling work has already been done for you. I would also check out documentation on naming conventions; using ambiguous names will catch up with you sooner or later. Keep up the work and don't be content with what you think you know...there's always more. (If this comment was disrespectful, please report it.)
Yo, I tried using this and it says "user-defined not defined for the Dim Snd as CDAudio. Please help me. (If this comment was disrespectful, please report it.)
im only 12, i started programming in VB 5.0 a couple weeks ago, before that i used QB, and i programmed HTML. Alright, i experimented with it and you have to put the Globals in a Class Module. It should work, just one ?...What does the "Seconds" Text box do?
(If this comment was disrespectful, please report it.)
Great code, except It needs to be able to change the track, which I fixed on mine but you should release it. Anyways, im 11, doin vb, c++, ect (If this comment was disrespectful, please report it.)
I am a newbie and i thought i could just copy and paste this and say "hey i made a cd player." I keep getting indentifier under cuser is not recognized what does that mean. (If this comment was disrespectful, please report it.)
Hey, Great little project for a 13 year old! Heck When I was 13 I was just getting into Assembly on a c64!!
ANyway, I have the major parts of the player working, execpt that I can not get it to sjip ahead or back a track? Or to display the seconds and track number.. Any help from ANYONE onthis is apprecated..
Thanks
(If this comment was disrespectful, please report it.)
Um thats all great n nice, but not everyone is mommy or daddys little rich kid to have a computer since 10 or whenever. (If this comment was disrespectful, please report it.)
13 eh? i can't imagine doing anything like this at that age... i mean, i'm only 18, and i've only been working with vb for a couple of weeks, but still... good job... (If this comment was disrespectful, please report it.)
That is pretty good for 13...although im 13 too and I know about 7 programming languages...all versions of VB....DirectX...MSVCPP...HTML...Java Script...Java...and im learing Shockwave...What upsets me the most about these source codes on this site is that there are so many people with controls for their source code..i mean come on...isn't the control enough source code...like an MP3 player control...Codec will make it work without a control...Whoops off topic again..well kid keep up the good work!!! (If this comment was disrespectful, please report it.)
Wow, great job for a 13 year old! I'm only 13 and i'm just getting into Visual Basic programming. One problem though, I'm having trouble with the Snd and CDAudio thingies, can anyone help? (If this comment was disrespectful, please report it.)
I'm 14years old. Good Job Mike.. I started VB programming when I was 9 in VB2, At 11 went to VB4 Now have VB5 I am about Int. in VB and am stuck. Can't get the next step...
Person. (If this comment was disrespectful, please report it.)
I have just go into VB programming and am starting out making a CD player. I've used the MCI control but I can only seem to do a few things with it.
I have 2 CD-rom drives for mixing and want to play both at once. I've seen some programs that let you choose the drive in a combo box and control the drive (Super Sonic for instance) without stopping the other. (Unlike Windows Cd player).
Does anyone know how to control both drives. I would be grateful to any help that anyone can give me
Cheers.
Austin UK 17. (If this comment was disrespectful, please report it.)
6/14/1999 4:33:00 AM:
Iam the youngest of all U ( I think = 12 uyear old )I need the answer to an question... WHAT NAME WILL THE MODULE/BAS HAVE TO BE?? (If this comment was disrespectful, please report it.)
6/14/1999 4:33:00 AM:
ICQ 32334832 (If this comment was disrespectful, please report it.)
Since everyone is bragging about how young they are (or were) when they started programming vb (or whatever) I decided I would too. I learned my first language BASIC in 7th grade and started learning other languages sortly after that. I began with Vb when I was in 10th grade. I am 17 now and still love VB! By the way, nice job on the CD player!! (If this comment was disrespectful, please report it.)
For all of you getting that problem- ambigious Form_Load, look over the code before you copy it, and notice that it has two form_loads, just dont copy one of them, other than that, dont just copy peoples code, try to understand it, so that you can fix your problems yourself.
(If this comment was disrespectful, please report it.)
Why is everyone bragging about how young they were, who cares, besides, if you know programming, it shouldnt matter how young you are. I went for a job at 17 knowing java, assemblers and vb, but i didnt get the job cause i was too young, so bugger it, the closer you are to respectable age, the more chance you have of getting a decent job. Anyway nice code, shame most of it is bad and could be improved. But what the hell youre only 13 after all
(If this comment was disrespectful, please report it.)
Great Work. Just one tip for latter programs Mike, It has been taught to me that it is always good to have 1/3 of your code as documentation. (' Bla bla bla). It helps you debug your code at a latter date and it helps other people that have a look at your code to understand what is going on and, fix any errors in the code.
It's just a suggestion but I think it is a good habit for you to get into.
Adam (If this comment was disrespectful, please report it.)
If you think that writing some code at a young age is impressive then you are not only toung in age but young in real world experience. Don't miss undeerstand me, I think it's great that young people are getting involved, but in the real world; Shutting a customer down because you can't debug your own code or not complying with real time data issues can cost you a lot more than a few hit's on novice code. Don't get too full of yourself because you got something to work!. The real challenge beyond functioning code is Support, migration, upgrade, compliance monitoring, customer growth, etc. Good Luck! (If this comment was disrespectful, please report it.)
Well, I'll say that I started to really get into VB 2 months ago, and I'm really starting to like it. I'm 14 by the way. If anyone wants to get VB6, you can get it on ebay.com for less than $60. You get it for the academic price. (If this comment was disrespectful, please report it.)
Anyone know how to control the volume (Left/Right) as well, also has anyone figured out how to rip a cd using Digital Audio (AudioGrabber) (If this comment was disrespectful, please report it.)
I had some trouble getting this to work..but I think I finally got it...anyway..I learned my first prgraming language in 3rd grade..Turtle..then in 4rth I learned basic and have been programming ever since..well good job Mike... (If this comment was disrespectful, please report it.)
honestly, i think that he's a great programmer. yeah, everyone's impressed that a 13 year old can do sucha thing. but you don't have to over do-it! anyways, i'm not bitching.. great coding mike. i'm a young programmer too. you should try the old basic too (GW-Basic, QBasic, etc..) it's kinda cool as well, but a little more difficult... but makes nice viruses :-) bye.heresy (If this comment was disrespectful, please report it.)
Hi, I'm a new computing student. I have some question, where I can't print my record in VB. I've browsing so many books in library. But no one of them explain to me how to to print record in VB with header and diffrent orientation (Portrait/Landscape)same like in access. So if you don't mind please tell me how to print record in VB. Thank You Very Much for your help. Rofiq (If this comment was disrespectful, please report it.)
Hey,i keep gettin errors on the 'CDAudio' part cuz i dont think there is a fuction.Did you leave somethin out or anything? (If this comment was disrespectful, please report it.)
Since everyone is saying how old they are, im 14 and have seen simmilar functions/codes, but putting them into the acual form and getting it to werk was difficult. Thanx for the kode =] (If this comment was disrespectful, please report it.)
TO ALL OF YOU BRAGGERS: I am now 12 (today is Augast 31, 1999) and know c++, visual c++, c, Java, xml, Basic, Visual Basic, acess, and oracle. now all of you people bragging either top this, or remove your freaking comments. (If this comment was disrespectful, please report it.)
Just for you do better than me braggers, my dad is a programmer and he's the best. He taught me lots of stuff and I can code in ANY langauge. :p (If this comment was disrespectful, please report it.)
Can somebody mail me the code for an Unpause button for the cd player? I would be very greatfull, and will add you to my credits list. (If this comment was disrespectful, please report it.)
You people braggin on this message board, you are all immature. I hope nobody thinks what you are saying is even close to the truth. This isn't a forum about "Hey look at me, I am 4 and can code in 14 different languages, ooh look at me". Stop the BS, it's annoying. (If this comment was disrespectful, please report it.)
The problem ambiguous name...Solution: U Have to form_load subs, You have to change the name of one of them as form_unload(cancel as integer)
Problem: User-defined type not defined Solution: You have to call the ClassModule as CDAudio. Thats it. Well now My problem: Bad DLL calling convention If you can help me. I would apreciate it: Henryra@hotmail.com (If this comment was disrespectful, please report it.)
Hey I'm 12 years old and I know these languages: Java,Javascript,CGI/PERL,Visual Basic,C+/C++,Access,xml,HTML(Not really a language) and more.... so beat that Austin Agarwal (If this comment was disrespectful, please report it.)
So what, I am 14 and I am Microsoft Certified in Microsoft C++, DJGPP, Visual C++, Microsoft Assembler, Microsoft QuickBasic, Microsoft GW-Basic, Microsoft Word, Microsoft Access, and Microsoft Project. hehe...I never thought VB would be this much different than C++ and QuickBasic, you can't even use assembly routines. Anywayz, stop bragging, we are all here to help each other, and that can be a good thing if we let it :-) So don't brag about your programming skills if you can't use them for anything but to show off!!! (If this comment was disrespectful, please report it.)
I am 13 too... I have learned rwx,java,javascript,c,c++,basic,visual basic, and html I also teach some of those lanuages. P.S. just cant spell very well lol (If this comment was disrespectful, please report it.)
Ahhhh..y'all are freaks ;o), 13 and doing programming already..hehe..don't mind me, i'm just a little bit jealous ;o)..I don't have that chance like you guys have, learning English is a great task for me already ;o).. Anyway, very nice coding Mike...blah blah blah.. (If this comment was disrespectful, please report it.)
Hey,everyone I got the code to work but there is one problem. Specifically that each time itI hit the "Stop" button my computer freezes. Any chance that this has happen to anyone else. Or does my computer suck? (If this comment was disrespectful, please report it.)
Not a bad piece of code, I was wonderingIf there has been any work on audio-equilizer code, or led display (like on winamp)code. Any links to this type of code would be a big help. (If this comment was disrespectful, please report it.)
Not a bad piece of code, I was wondering if anyone had done any work on adding an eq(equilizer)and/or a led display like on winamp? Any suggestions or links to that type of code would be appreciated. :) (If this comment was disrespectful, please report it.)
Hey im getten a runtime error'424':object required,then highlights wat im tryen to do.so if i click the play button the error puts up then highlights Snd.SeekCDtoX Val(tracknumber)in yellow.someone please email me wat i should do ppppleeeease (If this comment was disrespectful, please report it.)
God Dang Everyone Brags on this board, Anyway I figured this out in 2min and to fix the "user-defined type not defined Snd As CDAudio" error Just rename the Class Module To CDAudio
See Ya. -Randy
(If this comment was disrespectful, please report it.)
Why are u guys so amazed at a 13yr old VB programmer but not a 14yr old who does multiple languages? this 13 year old is probably just a few days away from his 14th birthday (because the person at the top of this board said the person who made this prog was 13 and that he was 14 and they were both in the same year at school, so go figure)
to be honest if i had to rate this program it would give a good if taking age into consideration, but ignoring the age factor this program, to be honest, can't even be run without being altered by the user, and the coding could be better. (If this comment was disrespectful, please report it.)
ps) i am disgraced at how many people have turned this message board into garbage by rambling on about how young you were when you started VB and how many languages you do... who cares?
and for the record i am only 14 myself and i will not tell you what languages i program in or when i started like some other lamer did, having the nerve to critisise others and telling them not to brag while he himself stated everything about him.
the person who made this cd player wants ideas, not a biography on you. (If this comment was disrespectful, please report it.)
Nice work. I am 13, and i have been programming VB for about 2 years. I have also just started C++.. For those of you that dont know, you need to rename the Class file to CDaudio.. also, i added a volume control and track controls, and i made a simple playlist. You should post that, or maybe if i get time i will.. anyways good work! (If this comment was disrespectful, please report it.)
Hey again, (i am Zerosk8er). Just thought i would tell you that to get the stop command, erase what he has for the code under Stop_Click.. and just put snd.stopplay that should work, and its alot easier than what he had. (If this comment was disrespectful, please report it.)
nothing original 2 say. kewl code, your 13 bla bla bla etc etc. Well I'm 2 and a half, and I wrote the bible so fu all. (If this comment was disrespectful, please report it.)
Hewwo I am 4 yearz old, and I can code in SuperSonicVisual Z++ and XYZHTML, bead that! one prob, I zeem to get alot of syntacks errrors, ne1 know why ??? helllp! (If this comment was disrespectful, please report it.)
Hewwo every1, I am 4 years old, and I can programme in SuperDuperSonice Visual Z++, and xyzHTML, I wrote and sold Office 20000 to microsoved, and I am working on missile guidance systems for the United Common wealth of the North Pole for Santa.. only one prodblemm, I zeem to gett lots of zyntacks errrors and I cant under stand why? any help is unappreciated!
thanks a gazillion! (If this comment was disrespectful, please report it.)
Please E-mail me back soon, I have A realy urgent question for you. How can I play one track and when the track has finist playing stop the player??? (If this comment was disrespectful, please report it.)
Hi, i am 13 and i know these languages: VB(some), cgi, html, asp, php, java, and QBasic.
I am having a problem with this program. When i hit stop while playing a cd, it makes the program freeze, if you know why it does this, please help. Oh and the close tray command doesnt work. (If this comment was disrespectful, please report it.)
Hey guys I enabled you to be bale to close and open the cd tray with ONE button instead of two. Change the caption on the close tray button to close/open tray and add the following code under the private sub closetray_click() if snd.closecd=true then snd.ejectcd if snd.ejectcd=true then snd.closecd Easy huh? (If this comment was disrespectful, please report it.)
To all the people freakin' out about the ambigious name detected: Form_Load, it's becuz u have 2 form load subz and the one u copied form this should go in the REAL form_load that comez with the form, do not put the dang form_load sub he gave in the declerations. anywayz, this is pretty nice!
-Feet (If this comment was disrespectful, please report it.)
Hey Mike, i have a question about the cd-player at psc that you posted.
All of the cd-player is nice, but it gives me a type-mismatch error for the GetNumTracks function. It highlights the GetNumTracks = cint(Mid$(s, 1, 2)) or cind, whatever. Why is this?
Thanx, Feet (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 3 Users
Download code
4/14/1999 10:59:00 AM: 
