Important alert: (current site time 5/18/2013 7:30:13 PM EDT)
 

winzip icon

A 3D Lesson v4, Advanced

Email
Submitted on: 8/4/2003 12:37:13 PM
By: Peter Wilson  
Level: Advanced
User Rating: By 25 Users
Compatibility: VB 6.0
Views: 14371
author picture
(About the author)
 
     Learn how to program in 3D using only Visual Basic - no OpenGL or DirectX. The major update in version 4 is the synchronization of MIDI music (2001 - A Space Odyssey) and 3D animation. I also wanted to experiment with some opening credits at the beginning. You can press the ESC key to skip the animation. The other major change is the various Camera variables have been cleaned up and placed into their own data type: 'mdr3DCamera'. You might also notice that I've created some additional data types (ie. mdr3DObject, mdrPolyhedron & mdrVertex). This is in anticipation of getting rid of the dots, and creating some lines drawings... should be exciting! Thanks go to everyone that has voted for my previous versions (look them up, they are easier than this one). The votes have helped me continue to improve this 3D application.

 
winzip iconDownload code

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:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. 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...   
  1. 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.
  2. 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.   
  3. You may link to this code from another website, but ONLY if it is not wrapped in a frame. 
  4. You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.


Other 28 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Advanced category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

8/4/2003 1:02:04 PMcoder86

Good!

(If this comment was disrespectful, please report it.)

 
8/4/2003 3:18:49 PMJohannes B

I don't have Mci32.ocx would be cool if you could make an 3D engine with just API calls!
(If this comment was disrespectful, please report it.)

 
8/4/2003 3:28:07 PMFriendly

AMAZING!!! couldnt get a better midi either
(If this comment was disrespectful, please report it.)

 
8/4/2003 4:25:26 PMJohn Ripper

WooW!!!!
(If this comment was disrespectful, please report it.)

 
8/4/2003 4:57:07 PMScythe

I would vote !! GREAT !! if i could.
But one thing.
Every Lesson we see more Points.
How about a simple lession with a Cube of lines or better how to do Colored Sides or something like this.
And calculating how to hide not seen points of this cube.
(If this comment was disrespectful, please report it.)

 
8/5/2003 7:42:42 AMPeter Wilson

Thanks for the comments everyone!

Johannes B: The MMControl is a MultiMedia control used to play MIDI files. You should be able to procure the mci.msm from the net. This was included with VB 6 Enterprise Edition (not sure about other editions).

Scythe: I'm working on polyhedrons and polygons... won't be long now. Dots (or vertices) are easier to use and understand for beginners.
(If this comment was disrespectful, please report it.)

 
8/10/2003 5:04:51 PMAndy H.

Absolutely AMAZING!!! I cannot simply wait to see this engine mature. Once again, this code is absolutely INCREDIBLE!!! It's also VERY well commented (which is very rare these days...) Anyway, I voted 5 globes! You couldn't have done a better job! Keep up the great work!
(If this comment was disrespectful, please report it.)

 
8/10/2003 10:23:29 PMPeter Wilson

Thanks Andy. I appreciate the comments.
(If this comment was disrespectful, please report it.)

 
8/12/2003 4:07:48 PMJoão Fernando Kiewel

WOW!!! Amazing dude! To me that simply don't understand absolutelly nothing about directx, this will be a "Hand on the weel"(a slang that we use here in Brasil, it means that will help, will be good). I just don't understand the concepts of directx, meshes, polygons and all that stuff, it is greek for me.
(If this comment was disrespectful, please report it.)

 
8/18/2003 6:24:33 AMCoding Genius

very well done. I like the idea of synchronising the camera with the MIDI. First time I've ever seen that done in VB. Nicely formatted and commented code aswell - keep up the great work and happy codin.
(If this comment was disrespectful, please report it.)

 
9/8/2003 10:14:13 AM

is very very cool.
excellent, but like to add to effects of light and shade to these objects and to define a texture or image to them.
(If this comment was disrespectful, please report it.)

 
9/20/2003 3:29:11 PMYehia Muhsen

What can I say?
Wonderful? Great? Excellent? Terrific?
Ammazing?
This code is more than to be described by those words. It's the greatest code i've even seen. A real professional work. Thanks Peter for sharing it with us. 5 globes are not enough for this code.
(If this comment was disrespectful, please report it.)

 
9/30/2003 10:45:18 AMPeter Wilson

Thanks for the kind words guys.
(If this comment was disrespectful, please report it.)

 
10/16/2003 10:08:56 PM

i agree with Yehia Mohsen

its Wonderful, Great
Excellent, Terrific
Ammazing.

but it seems that i need alot of time to understand the code.but this is my problem :)
keep up the great work.and thanks for sharing it.
5 big globes.
(If this comment was disrespectful, please report it.)

 
1/2/2004 5:11:21 PM

Hi Peter,
just did a search on your name for the stuff you'd submitted out of interest really seeing as I liked one of the things you did. Might I say I'm glad I did the search, because your stuff is quite inspiring. The syncing with the midi made me smile until my cheeks busted lol.
5 globes...thankyou.
Brommers
(If this comment was disrespectful, please report it.)

 
1/13/2004 6:04:51 AMPeter Wilson

Your welcome. Thank you for the nice comments.
(If this comment was disrespectful, please report it.)

 
2/26/2004 4:46:19 PM

Wow! I couldn't even have guessed that such thing was possible in Visual Basic only; no DX or OpenGL at all!
The first time I saw that I saw it like a film, honestly.
Well done!
Waiting for the next version to be released.
Well, 5 globes because there are no 6...
See you.
(If this comment was disrespectful, please report it.)

 
2/27/2004 7:28:27 AM

wow i give that a 5 out of 5 :D
(If this comment was disrespectful, please report it.)

 
3/15/2004 6:19:38 PMSean Kane

This code is definitely amazing -- there should be a lot more votes for this code. I'm really looking forward to seeing any advancement in this code!
(If this comment was disrespectful, please report it.)

 
3/15/2004 7:59:11 PMPeter Wilson

:-) Thanks Sean. I'm looking forward to developing this much further too. I just have to get some paying projects out of the way first. Cheers.
(If this comment was disrespectful, please report it.)

 
6/12/2004 8:51:21 AMMichael Vainshtein

lol. I wish I will understand it one day.
(If this comment was disrespectful, please report it.)

 
8/20/2004 4:04:45 AMVZ200

Reminds me of blasting Thargoid offspring during an interrupted hyperdrive cruise in Witch space.

Your code is Elite!
(If this comment was disrespectful, please report it.)

 
5/1/2006 10:04:49 AMRizwan Syed

Its is a greate piece of code. Thanks for sharing such thing with us. I have always wanted something like this to do in VB but wasnt sure how. But now I can. I cant wait to see more of this kind on the planet source code.
(If this comment was disrespectful, please report it.)

 
5/2/2006 3:56:25 AMPeter Wilson

Thanks!
(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.)
 

To post feedback, first please login.