Can someone help me? I want to generate random 4 integers (1,2,3 and 4) but I want them each time in a different order. The problem is, when the integer already exists, he should do the function again, and he does that, but in the end, he takes his double values back. My exit function doesn't help so my code. Hope that somebody can help. Thx
Private rand As Random
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(BerekenItem)
MsgBox(BerekenItem)
MsgBox(BerekenItem)
MsgBox(BerekenItem)
End Sub
Private Function BerekenItem()
rand = New Random
Dim i As Integer = rand.Next(0, 4)
For Each Int As Integer In arlRandom
If i = Int Then
BerekenItem()
Exit Function
End If
Next
arlRandom.Add(i)
Return i
End Function
Private rand As Random
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox(BerekenItem)
MsgBox(BerekenItem)
MsgBox(BerekenItem)
MsgBox(BerekenItem)
End Sub
Private Function BerekenItem()
rand = New Random
Dim i As Integer = rand.Next(0, 4)
For Each Int As Integer In arlRandom
If i = Int Then
BerekenItem()
Exit Function
End If
Next
arlRandom.Add(i)
Return i
End Function