Select With Random

[sina.lor.boy]

دوستان سلام . من یه textbox رو split کردم . اگه بخوام یک ایتم رو به صورت راندم بگیرم به ای صورت :


Dim Rna As New Random
Rna.Next(splitedtext.Length)


اما سوالم اینه که اگه بخوایم چنتا ایتم رو بگیریم چطور میشه ؟ مثلا به جای یه ایتم 5 ایتم به صورت راندوم انتخاب شه .

[aliagamon]

5 بار رندوم بزنید و چک کنید با قبلی ها برابر نباشه ... :لبخند:

[sina.lor.boy]

میخوام که اگه 10 تا ایتم داشته باشم اون 5 تا تکراری در نیاد . کد رو لطفا بدید

[aliagamon]

همچین چیزی میشه ...
البته اگه رو دات نت 2 کار میکنین اون تیکه که linq استفاده کردم رو با یه حلقه انجام بدین ..

Dim rnd As Random = New Random()
Dim rand(5) As Integer
For i As Integer = 0 To 4
rand(i) = -1
Next
Dim myrand As Integer
For i As Integer = 0 To 4
myrand = rnd.Next(10)
If (rand.Where(Function(x) x = myrand).ToArray().Length > 0) Then
i = i - 1
Else
rand(i) = myrand
End If


Next