The random number function in VB produces the same number every time you restart an application if the conditions are the same. To fix this I use time.
code: Can't Copy and Paste this? Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
'**************************************
' Name: A better random number
' Description:The random number function in VB produces the same number every time you restart an application if the conditions are the same. To fix this I use time.
' By: Brett Johnson
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=43944&lngWId=1'for details.'**************************************
Dim intX as Integer
Dim intTime as Integer
dim intRandomNum as Integer
' uses time to get a better random #
intTime = Hour(Time) + Minute(Time) + Second(Time)
For intX = 1 To intTime
intRandomNum = Int(Rnd)
Next intX
May want to read about the Randomize function and how one should call it before using the Rnd function. (If this comment was disrespectful, please report it.)
Just use this function. It Randomizes the first call then again every 1000 calls thereafter: (Please excuse the formatting)
Private Function Random(Min As Long, Max As Long) As Long Static RandControl As Integer
RandControl = RandControl - 1 If RandControl < 0 Then Randomize Timer RandControl = 999 End If Random = Int(Rnd * ((Max + 1) - Min)) + Min End Function (If this comment was disrespectful, please report it.)
No simple is just copying the function I have defined above then just calling it using "number = Random(1,100)", which will generate a random number between 1 and 100 with a new seed every 1000 calls. (If this comment was disrespectful, please report it.)
Everyone seems to use different methods, mine is also based on time: Int(Rnd * (Second(Time) + Minute(Time)) / Int(10))
It churns out 12 possibilities, but that's as many as I nedded at that time, anyway, you could change the number, "Int()" always sets the result as a whole number. (If this comment was disrespectful, please report it.)
Flash ure the last but not the least comment. I think u re totally right about youre code: short but clean and functional. :) (If this comment was disrespectful, please report it.)
8/31/2004 11:26:06 AM:
all you do is put this:
Randomize: rand = int(num * rnd)
its simple !! (If this comment was disrespectful, please report it.)
12/29/2004 4:57:10 PM:
nice programme code with data base (If this comment was disrespectful, please report it.)
you people dont get it, the whole idea of this function is because the "super duper simple random number" isnt as random as it seems, as it says in the description if the conditions are the same it will give you the same "randomm" number every time. So the simple one may well be good enough for you (as it is for me) but sometimes you need a more random number and so this function does that. (If this comment was disrespectful, please report it.)
Easier method is to do this at program start to set the seed value:
DIM v as Single v=Rnd(-Timer)
Now just call normally:
RandomVal = Rnd
You will get a perfect new randomized value each time program is restarted and every time after that. (If this comment was disrespectful, please report it.)
surely it would be easier to use the randomize function? X = randomize(hour(time) + minute(time) +(second)time (If this comment was disrespectful, please report it.)
Thanks for source code... (If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 5 Users
3/11/2003 10:09:19 PM: 
