Random Numbers

[Arrow_Raider]

i type this:

Private Sub Form_Load()
MsgBox rnd
End Sub

each time i start the program it displays the same exact number. It isn't supposed to do that. And it didn't use to do it either.

[[Digital-X-Treme]]

Try this:

Private Sub Form_Load() 
Randomize Timer
MsgBox rnd 
End Sub

Randomize is a function which initialises VB's random number generator based on an argument (Timer in this case) in some way...

[BuggyProgrammer]

it is the same in debug mode since they want you to be able to test the results on any errors with the same number.

[DaoK]

rnd random a number between 0 and 1 so if you want to have a random number between 7 and 10 you will need to do :

rnd * 3 + 7

That a little tip

[filburt1]

Originally posted by DaoK
rnd random a number between 0 and 1 so if you want to have a random number between 7 and 10 you will need to do :

rnd * 3 + 7

That a little tip

Here's a full function:

Public Function RandInt(lowerbound As Integer, upperbound As Integer)
    RandInt = Int((upperbound - lowerbound + 1) * Rnd + lowerbound
End Function

[DaoK]

You should add Randomize in the Function

[filburt1]

Originally posted by DaoK
You should add Randomize in the Function

Like I said before, you should only call randomize when you start your program, otherwise you get a severe performace hit.

[DaoK]

And it's should be Randomize Time or something like that someone told me to have more change to have a real Random number.

[filburt1]

Timer is the default argument for Randomize, so these two do the same thing. Trust me, I'm right, there was a thread a while back if you search for it.

Randomize
Randomize Timer

[Muds]

how do u do this if you want the no between -0.1 and 0.1

[beachbum]

hi Muds
Rnd returns a number betw 0 and 1 and so u just need to multiply by the required range. U can add or subtract minor decimal roundings as required.
Regards
Stuart

Private Sub Command1_Click()
    Randomize
    Label1 = Format$(Rnd * 0.2 - 0.1, "0.000")
End Sub