Random Order

[khanjan_a2k]

I am making this game where I need to put 26 values in a random order... The problem is that I don't know how to check if the random number generated has already been generated before or not... Even a bigger problem, I don't know how to make the loop so that when all the values are assigned, the do loop is exited...
Any clue on how this could be done...

[Bruce Fox]

Here is a place to start http://vbforums.com/showthread.php?t...&highlight=rnd

[BrendanDavis]

Use this function:

Public Function intRandomBetween(lowerNum As Integer, higherNum As Integer) As Integer
 
    intRandomBetween = Int((higherNum - lowerNum + 1) * Rnd + lowerNum)
 
End Function

With this code:

Dim i, rndm As Integer
Dim gend, nms As String: gend = "": nms = ""
 
Do While i < 26
    rndm = intRandomBetween(1, 26)
        If InStr(gend, "(" & rndm & ")") <= 0 Then
            nms = nms & rndm & ", "
            i = i + 1: gend = gend & "(" & rndm & ")"
        End If
Loop
 
Label1.Caption = Mid$(nms, 1, Len(nms) - 2)

If you put that in a command button, or any object's click event or something of the sort, it'll set a caption to numbers 1 through 26 generated in random order for you, separated by commas.

Obviously, you could modify this accordingly to suit your needs and assign values in whatever order the numbers are generated, of course.