[soper]

(06-08-16, 10:35 PM)الكاتب كتب : عفوا لم افهم عليك وضح

---

كيف تجي ياقوم كلام عشوائي هو الي يكتبو ):

مثلا انا عند واحد اسمو كذا واحد تاني اسمو كذا عايز اول مافتح الفورم يديني واحد عشوائي

---

(06-08-16, 03:00 PM)silverlight كتب : يمكنك استخدام الدالة التالية

كود :

 Private Function RandomizeIntegers(items As List(Of Integer)) As List(Of Integer)
       Dim result = items
       Dim r = New Random()
       For i As Integer = items.ToArray.Length To 2 Step -1
           Dim j As Integer = r.Next(i)
           Dim t = result(j)
           result(j) = result(i - 1)
           result(i - 1) = t
       Next
       Return result
   End Function

الكود التالي يوضح كيف تستخدم الدالة لحل مشكلتك و هذا مجرد مثال توضيحي لا غير

كود :

       Label1.Text = ""
       Dim list As List(Of Integer) = New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
       Dim randomize As List(Of Integer) = RandomizeIntegers(list)
       For i As Integer = 0 To randomize.Count - 1
           Dim current As Integer = randomize(i)
           Dim s As String = current.ToString
           Label1.Text += s
       Next

لا افهم كيف استخدم هذه الدالة ولا اعرف كيف اربط الكلس مع  الفورم