Need to generate random numbers

[rmoghal]

Hello all,

I need to generate random numbers from 1 to 16. I have 16 buttons on the form and I want to give each of those a different number at startup. In other words every button will have a different number ranging between 1 to 16.

Can someone help me with the code.

Thanks in advance

[GungaDin]

Put a Command Button (Command1) on your form & a list Box (List1)

Add the following code:

Private Sub Command1_Click()
 
    Dim NumbersFoundList As String
    Dim NumbersFound As Integer
    Dim CurrentNumber As Integer
    
    Randomize
    
    List1.Clear
    
    NumbersFound = 0
    NumbersFoundList = ""
    Do While NumbersFound < 16
        CurrentNumber = Int(Rnd() * 16) + 1
        ' If the number isn't already found        
        If InStr(NumbersFoundList, "[" & CurrentNumber & "]") = 0 Then
            NumbersFound = NumbersFound + 1
            NumbersFoundList = NumbersFoundList & "[" & CurrentNumber & "]"
            List1.AddItem CurrentNumber
        End If
    Loop
    
End Sub

You can change this for your text boxes easy enough.

I'm sure there are other ways, but this one works.

Hope this helps,

Nathan

[rmoghal]

Thanks Nathan, that's exactly I was looking for

[GungaDin]

Well, that code basically gives you what you want.

Make a Control array of Command buttons called cmdCaption and the code will be as follows:

Dim NumbersFoundList As String
    Dim NumbersFound As Integer
    Dim CurrentNumber As Integer
    
    Randomize
    
    List1.Clear
    
    NumbersFound = 0
    Do While NumbersFound < 16
        CurrentNumber = Int(Rnd() * 16) + 1
        If InStr(NumbersFoundList, "[" & CurrentNumber & "]") = 0 Then
            cmdCaption(NumbersFound).Caption = CurrentNumber
            NumbersFound = NumbersFound + 1
            NumbersFoundList = NumbersFoundList & "[" & CurrentNumber & "]"
        End If
    Loop

Hope this helps,

Nathan.

[GungaDin]

Man am I confused. I'm sure I just read a message saying that wasn't quite what you wanted.

Hmmm..... Me thinks I best lay off the Metho...

[rmoghal]

Yeah, I just deleted that post because I was replying to the first guy's post. I knew what he was telling me, but as soon as I saw your post I tried and it worked the same way I wanted.

Thanks again man!!!