How to pick random number without repeating the same number

[Suprim]

I am using a timer to call a random number range from 1 to 50 and display it in a label. How can i display the number without repeating the number that have been call out?

For example, if number 10 is call out and display in the label. How can i make sure that number 10 wont be call out and display again?

[vb5prgrmr]

Use a collection with both key and text being a number from 1 to 50. Use Rnd with collectionname. count + 1 to select one of those numbers and retrieve the text. Then remove that item from the collection and thus it will never be called again... as an example

Dim C As New Collection, I As Integer
For I = 1 To 50
  C.Add CStr(I), CStr(I)
Next I
I = Int(Rnd * C.Count + 1)
MsgBox C.Item(I)
C.Remove (I)
MsgBox C.Item(I)
 

as you can see from the second message box, a different number appears because the original number has been removed. Don't forget, use the collectionname. count to create your random number so you don't go out of bounds and don't forget to add a check to see if the collection is empty (Count = 0) and if it is to reload the collection with new numbers...

Edit: Also: Use the Randomize statement in form load so it is called only once...

Good Luck

[Suprim]

Sorry, i try that but the numbers is repeating times and again...it really doesn't work but it works for choosing the random numbers only...if any other code are there then please post immediately as soon as possible...but thank you for the above code...

[patjones]

Hi,

I did this in Access VBA (using vb5prgrmr's concept) and it works nicely. It should work essentially the same if you are using Visual Studio or some other environment.

Public C As New Collection
 
Private Sub Form_Open(Cancel As Integer)
 
For j = 1 To 50
  C.Add CStr(j), CStr(j)
Next j
 
Randomize
 
lstRandoms.RowSourceType = "Value List"
lstRandoms.RowSource = ""
 
End Sub
 
Private Sub Form_Timer()
 
Dim k As Integer
 
If C.Count >= 1 Then
    k = Int(Rnd * C.Count + 1)
    lstRandoms.AddItem C(k)
    C.Remove (k)
End If
 
End Sub

Here lstRandoms is the name of my list box control. I set my timer interval at 1000 (1 sec) so that I was not waiting around forever for the sequence to complete, but you might need to run it slower.

Pat

[Guido Geurs]

dear,


I hope this will help (see attachment)
It places the already Randomized numbers in an array and checks the new random with the values in the array.
The list is only for visual checking !
I have only RND from 1 to 10 for fast testing !!

br,

[Guido Geurs]

Sorry, my mistake.
Here it is:

[Rodney Roe]

vb5prgmr your snippet of code is awsome! I was previously doing the same thing with arrays but this cut my code in half. I havn't played with collections very much so thanks for your insight.

[CyberSoftHari]

@suprim: This is not a place to do your homework. You have to try then post your question. Mod. should close this thread (almost done).