Random Function?

[Pbcrazy]

Ok i was wondering if there is a function or how to make a function where itll pick a random number between a predetermined high and low number?

so like youd call

Code:

Rand(3 'High num, 1 'Low num)

[seraphelic]

I'm unfamiliar with all the math functions in vb, but I'm good with theory.

I think it should be something like

function RandRange(ByVal Low As Long,ByVal High As Long) As Long
Rand = int((High - Low + 1) * "random number") + Low
end function

somethin like that. look up the random function and replace "random number" with it.

[Dragoons Master]

Code:

Dim MyValue
MyValue = Int((6 * Rnd) + 1)   ' Generate random value between 1 and 6.

[seraphelic]

Code:

Dim MyValue
MyValue = Int((6 * Rnd) + 1)   ' Generate random value between 1 and 6.

That wouldn't work. if Rnd turned out to be .9, then MyValue would equal 7.

Here's a working function.
Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

[Pbcrazy]

sweet thanks asrrin (woot i spelled it right ), dragoons master's kinda worked. you could have a high but there wouldnt be a low number to put into it.

thanks everyone

[Dragoons Master]

Code:

Dim MyValue
MyValue = Int((6 * Rnd) + 1)   ' Generate random value between 1 and 6.

That wouldn't work. if Rnd turned out to be .9, then MyValue would equal 7.

Here's a working function.
Function Rand(ByVal Low As Long, ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Actualy... no, Int(6*0,9)+1 = 6
I got that example from MSDN, so it actually can't be wrong...
But for any range:
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
Also got it from MSDN.
I miss read the first example.

[seraphelic]

My fault, I misinterpreted Int().

[Dragoons Master]

No return type?

[GIAKEN]

Function Random(Lowerbound As Integer, Upperbound As Integer) as Integer

No return type?

?

[Dragoons Master]

Function Random(Lowerbound As Integer, Upperbound As Integer) as Integer

No return type?

?

Not this one:

Code:

A six second google returned this:

Code: Select all
    Function Random(Lowerbound As Long, Upperbound As Long)
    Randomize
    Random = Int(Rnd * Upperbound) + Lowerbound
    End Function

[Pbcrazy]

hmmm mk. well im not using MS. but it works and thats good enough for me. at least for now.