3D Tubes in Visual Basic 6

Environment: Visual Basic 6.0

My purpose for writing this program is to present a visual demo or screen saver-type program. This program, however, is not a a screen saver. It will not be acknowledged by your computer as a screen saver when it is runn, but could be used as the basis for one.

This program presents colors that are shaded with my own sub procedure, which I came up with a while back. I use randoms for the sake of true variety in movement.The following are a few of the random figures generateed in this program.



Click here for larger image



Click here for larger image



Click here for larger image

This is a later version of my original Tube program which had one tube moving around. I have provided comments within the program that I believe are sufficient to explain how it functions. The sub procedures that do not have comment lines should be self-explanatory.

I have not found any bugs or had any problems with this finished version. It has run correctly on my computer using Windows ME Windows. Please feel free to use this program at your own risk. I hope you enjoy watching this.

Editors note: Works on Windows XP as well.

Chris Diemer
Gyrolinc@cs.com

Downloads

Download source code - 5Kb


Comments

  • Thank You!

    Posted by Phuc on 04/13/2012 06:09am

    Great your code. I have been viewed your code example about 3D in vb6. But i don't known do it. Can you help me example how to call *3ds file in to vb6? more times thank you very much!

    Reply
  • Thanks for the posting this material

    Posted by hbmarar on 08/16/2004 02:07am

    I need example codes to learn,and got the one i was looking. let mee try and hope it would be nice stuff.

    Reply
Leave a Comment
  • Your email address will not be published. All fields are required.

Top White Papers and Webcasts

  • Agile methodologies give development and test teams the ability to build software at a faster rate than ever before. Combining DevOps with hybrid cloud architectures give teams not just the principles, but also the technology necessary to achieve their goals. By combining hybrid cloud and DevOps: IT departments maintain control, visibility, and security Dev/test teams remain agile and collaborative Organizational barriers are broken down Innovation and automation can thrive Download this white paper to …

  • On-demand Event Event Date: September 10, 2014 Modern mobile applications connect systems-of-engagement (mobile apps) with systems-of-record (traditional IT) to deliver new and innovative business value. But the lifecycle for development of mobile apps is also new and different. Emerging trends in mobile development call for faster delivery of incremental features, coupled with feedback from the users of the app "in the wild." This loop of continuous delivery and continuous feedback is how the best mobile …

Most Popular Programming Stories

More for Developers

Latest Developer Headlines

RSS Feeds