Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 7420

Feb 9th, 2007

Random color?

Expand Post »

ME and a freind of mine have a vB class. We are using the schools outdated microsoft visual basic 2003. We in are spare time are trying to make a "Siezure" program. The point of this program is to simply have the user click a button and the background begin to flash Random colors. We could easily use a timer with a set of colors but we want to use random colors so they are unpredictable. We have tried multiple sets of code but can't seem to get anything to work. Could anyone tell me the code for making the background color of a forum flash with random colors?

Similar Threads

Projects for the Beginner in Python
Java applets in Java
Please Please Help. Computer Crashing... seemingly random intervals. in Windows NT / 2000 / XP
trouble with long output string, plz help in PHP
how to manipulate characters in strings in PHP

KalebG

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Jan 2007

Permalink

Feb 10th, 2007

Re: Random color?

Generate a random number from 0 thru 16777215 (hex FFFFFF) and load the background color property.

WaltP

Moderator

Reputation Points: 3278

Solved Threads: 892

Posting Sage

Offline

7,718 posts
since May 2006

Permalink

Feb 12th, 2007

Re: Random color?

Click to Expand / Collapse Quote originally posted by KalebG ...

ME and a freind of mine have a vB class. We are using the schools outdated microsoft visual basic 2003. We in are spare time are trying to make a "Siezure" program. The point of this program is to simply have the user click a button and the background begin to flash Random colors. We could easily use a timer with a set of colors but we want to use random colors so they are unpredictable. We have tried multiple sets of code but can't seem to get anything to work. Could anyone tell me the code for making the background color of a forum flash with random colors?

RGB color value is 0 to 255. so use the for loop and generate number from 0 to 255. and then set the value of for loop to RGB value.

otherwise generate random number

Randomize()

int r=rnd()*10

muthulakshmil

Reputation Points: 10

Solved Threads: 1

Newbie Poster

Offline

3 posts
since Feb 2007

Permalink

Feb 16th, 2007

Re: Random color?

'this is a script i used the other day, it randomizes the backcolor of the form

'code begins

Private Sub Command1_Click()
Text1.Text = Randomize("-1", "256")
Text2.Text = Randomize("-1", "256")
Text3.Text = Randomize("-1", "256")
Text4 = Text1 + Val(Text2) + Val(Text3)
Me.BackColor = Text4.Text
End Sub

Function Randomize(Lowerbound As Long, Upperbound As Long)
Randomize = Int(Rnd * Upperbound) + Lowerbound
End Function

Private Sub Form_Load()
Text1.Text = Randomize("-1", "256")
Text2.Text = Randomize("-1", "256")
Text3.Text = Randomize("-1", "256")
Text4 = Text1 + Val(Text2) + Val(Text3)
Me.BackColor = Text4.Text
End Sub

'code ends
'its a verry small code, so it shouldnt be tht hard
'right now it only cycles through the red colors, if you are able to get it to go any other colors please let me know, thnx
'if your using tht script try to keep the +val(text)'s in there
'im pretty sure it requires tht...
'it will keep comeing up with errors every 4 clicks and end your prog if you take out...

Click to Expand / Collapse Quote originally posted by KalebG ...

ME and a freind of mine have a vB class. We are using the schools outdated microsoft visual basic 2003. We in are spare time are trying to make a "Siezure" program. The point of this program is to simply have the user click a button and the background begin to flash Random colors. We could easily use a timer with a set of colors but we want to use random colors so they are unpredictable. We have tried multiple sets of code but can't seem to get anything to work. Could anyone tell me the code for making the background color of a forum flash with random colors?

waynewilson1

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

8 posts
since Feb 2007

Permalink

Jul 4th, 2009

Re: Random color?

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Form_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
a = randomise(0, 255)
b = randomise(0, 255)
c = randomise(0, 255)
 
d = a * b * c
 
Form1.BackColor = d
End Sub
 
Function randomise(lowerbound As Long, upperbound As Long)
 randomise = Int(Rnd * upperbound) + lowerbound
End Function
Private Sub Form_Click()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
a = randomise(0, 255)
b = randomise(0, 255)
c = randomise(0, 255)

d = a * b * c

Form1.BackColor = d
End Sub

Function randomise(lowerbound As Long, upperbound As Long)
 randomise = Int(Rnd * upperbound) + lowerbound
End Function

This is the actual code and it works

setcho

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jun 2009

Permalink

Jul 5th, 2009

Re: Random color?

And a little bit simpler

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Option Explicit
 
Private Sub Form_Click()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
Option Explicit

Private Sub Form_Click()
Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub

setcho

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

2 posts
since Jun 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Printing in VB

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Please help me

DaniWeb Message

Cancel Changes

User Name
Password