
	ASP Shopping Cart, Forum & BBS - all for $20 from CodeToad Plus!

Home || ASP | ASP.Net | C++/C# | DHTML | HTML | Java | Javascript | Perl | VB | XML || CodeToad Plus! || Forums || RAM

Search Site:

Home » Visual Basic » Article

Visual Basic Rainbow Generator

Article by:

Thaha Hussain (10/12/2002)

	Add to Favourites
	Tell a friend

Summary:

This is an extremly simple Rainbow Generator. See how a rainbow is generated with the varaitions in the values of primary colors - Red, Green and Blue. No APIs used.

Viewed: 16480 times

Rating (13 votes):

4.2 out of 5

Rate this Article

Read Comments

Post Comments

Visual Basic Rainbow Generator

This is an extremly simple Rainbow Generator. See how a rainbow is generated with the varaitions in the values of primary colors - Red, Green and Blue. No APIs used.

To use, simply copy the code below into your VB Project:

Select All Code

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbTwips
Me.Caption = "Rainbow Generator by " & _
                   "K. O. Thaha Hussain"
'MsgBox "Resize the window to resize the Rainbow", , _
'             "Thaha Hussain's Rainbow Generator"
End Sub

Private Sub Form_Resize()
Call Rainbow
End Sub

Private Sub Rainbow()
On Error Resume Next

Dim Position As Integer, Red As Integer, Green As _
                         Integer, Blue As Integer

Dim ScaleFactor As Double, Length As Integer

ScaleFactor = Me.ScaleWidth / (255 * 6)
Length = Int(ScaleFactor * 255)

Position = 0
Red = 255
Blue = 1

'Purposfully avoided nested loops
 '------------- 1
 For Green = 1 To Length
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                  RGB(Red, Green \ ScaleFactor, Blue)
   Position = Position + 1
 Next Green

'--------------- 2

For Red = Length To 1 Step -1
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                    RGB(Red \ ScaleFactor, Green, Blue)
   Position = Position + 1
 Next Red
'---------------- 3
For Blue = 0 To Length
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                   RGB(Red, Green, Blue \ ScaleFactor)
   Position = Position + 1
 Next Blue
 
 '----------------- 4
For Green = Length To 1 Step -1
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                    RGB(Red, Green \ ScaleFactor, Blue)
   Position = Position + 1
 Next Green
 
 '------------------ 5
 For Red = 1 To Length
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                   RGB(Red \ ScaleFactor, Green, Blue)
   Position = Position + 1
 Next Red

'------------------- 6
For Blue = Length To 1 Step -1
   Me.Line (Position, 0)-(Position, Me.ScaleHeight), _
                    RGB(Red, Green, Blue \ ScaleFactor)
   Position = Position + 1
 Next Blue

End Sub

Useful Links

Fat Cow Hosting

FatCow Review

Advertise here

CodeToad Experts

Can't find the answer?
Our Site experts are answering questions for free in the CodeToad forums

Rate this article: Poor Excellent

View highlighted Comments

User Comments on 'Visual Basic Rainbow Generator'

Posted by : Archive Import (Thaha Hussain(Author)) at 11:14 on Wednesday, June 04, 2003

Have some queries?

Contact me.

Regs,
Thaha Hussain

thaha_ko(a)yahoo.com

To post comments you need to become a member. If you are already a member, please log in .

RELATED ARTICLES
Generate License Keys (such as CD keys on Microsoft software) by Brian Gillham This class allows you to generate license keys, such as the CD keys on the case of most Microsoft software

Communicating with the Database (Using ADO) by Chaudhary Pradeep K. Roy Using ADO to get connected with the database.

Visual Basic Read and Modify the Registry by Kenneth Ives Perform the four basic functions to the Windows registry. Add, change, delete, and query. Allows you to to read registry values, and modify both keys and values.

Generate an Array of Unique Random Numbers by Brian Gillham This function will generate an ARRAY of TRULY random numbers.

Beginning Resource Files in Visual Basic by Kenneth Ives Have you ever wanted to use graphics, such as icons, bitmaps, cursors, and AVI files? How about sound or even message box text? This can be an enormous amount of overhead. These are all examples of more files to keep track of when you distribute an application, DLL, or OCX. Lets find out how resource files can help....

Visual Basic Compact/Repair Access Database Utility by Kenneth Ives This utility will compact and repair the access database you select. It is actually more convenient to use this utility than do the same task with Access, because you don't have to save the database with a different name and then delete the old database when you are done: here, a temporary copy of the database is automatically created and deleted.

Creating a watermark in Excel with VBA by Kenneth Ives Adding a watermark to an Excel spreadsheet using VBA.

Change Cursor to Hour Glass by Brian Gillham A simple script to change the cursor to an hour glass.

Generate your own Random Numbers by Thaha Hussain This simple program generates random numbers using the basic mathematical methods.

Analog Clock by Thaha Hussain This program demonstrates Thaha Hussain's Clock Work Formula to paint an Analogue Clock.

Recent Forum Threads

•	C++
•	Re: refresh parent after closing pop up window
•	Dynamic Insertion
•	Date and Time function around the world???
•	Significant Factors
•	Perl array access
•	Re: huffman encoding and decoding in C++...
•	Perl One Liner: Replace {(
•	Re: html including php, accessing the functions

Recent Articles

	ASP GetTempName
	Decode and Encode UTF-8
	ASP GetFile
	ASP FolderExists
	ASP FileExists
	ASP OpenTextFile
	ASP FilesystemObject
	ASP CreateFolder
	ASP CreateTextFile
	Javascript Get Selected Text

submit a link - privacy - contact - advertise - hot links - link to us - submit your article