DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Random color?

•

Join Date: Jan 2007

Posts: 28

Reputation: KalebG is an unknown quantity at this point

Solved Threads: 0

KalebG

Offline

Light Poster

Random color?

Feb 9th, 2007

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?

Boo.

•

Join Date: May 2006

Posts: 3,114

Reputation: WaltP has much to be proud of

Solved Threads: 281

WaltP

Offline

Posting Sensei

Re: Random color?

Feb 10th, 2007

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

The 3 Laws of the Procrastination Society:
1) Never do today that which can be put off until tomorrow
2) Tomorrow never comes

•

Join Date: Feb 2007

Posts: 3

Reputation: muthulakshmil is an unknown quantity at this point

Solved Threads: 1

muthulakshmil muthulakshmil is offline

Offline

Newbie Poster

Re: Random color?

Feb 12th, 2007

•

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

•

Join Date: Feb 2007

Posts: 8

Reputation: waynewilson1 is an unknown quantity at this point

Solved Threads: 0

waynewilson1 waynewilson1 is offline

Offline

Newbie Poster

Re: Random color?

Feb 16th, 2007

'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...

•

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?

•

Join Date: Jun 2009

Posts: 2

Reputation: setcho is an unknown quantity at this point

Solved Threads: 0

setcho

Offline

Newbie Poster

Re: Random color?

Jul 4th, 2009

 Help with Code Tags 
 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

•

Join Date: Jun 2009

Posts: 2

Reputation: setcho is an unknown quantity at this point

Solved Threads: 0

setcho

Offline

Newbie Poster

Re: Random color?

Jul 5th, 2009

And a little bit simpler

 Help with Code Tags 
 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