السلام عليكم عندي سوال في اداة الليبول
عايز كود يخلي الليبول يكتب ارقام من واحد لعشرة عشوائي افهموني انا مش عايزو يعد من واحد لعشرة لا انا عايزو يكتب رقم من الواحد الي العشرة
يا ريت الحل بسرعة ^_^
يمكنك استخدام الدالة التالية
كود :
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
(06-08-16, 03:05 PM)الكاتب كتب : [ -> ]PHP كود :
Dim intrand As Object
Dim intstep As Object
Dim strname As Object
Dim intnamelength As Object
Dim intlength As Object
Dim strlnputstring As Object
strlnputstring = "0123456789" ' >>>>>>>>>> لا يتجاوز السلسله
intlength = Len(strlnputstring)
intnamelength = 10 '>>>>>>> يتم الاختيار ارقام عشوائية اقصى حد
Randomize()
strname = "0" ' >>>> ختم السلسلة لضمان عدم تداخل الارقام
For intstep = 1 To intnamelength
intrand = Int(intlength * Rnd()) + 1
strname = strname & Mid(strlnputstring, intrand, 1)
Next
Label1.Text = strname
شكرا اخواني لكن انا الان احتجها يظهر كلام عشوائي انا الاكتبو
(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
لا افهم كيف استخدم هذه الدالة ولا اعرف كيف اربط الكلس مع الفورم
بشكل مبدئي عذرا لكلامي هذا
دعني أصدقك القول انا غالبا عندما أرد علي سؤال لأي عضو انظر الي تصنيفه اولا قبل أن اكتب له الحل ..... لذلك أجد أنه شئ غريب أن يكون تصنيفك في الموقع هو انك عضو مبدع و مع ذلك لا تعلم كيف تستخدم الكود
عموما أن قمت بالتعديل علي الدالة حتي تصلح للإستخدام مع الأرقام و مع الكلمات أو الأسماء
نفذ الخطوات التالية في مشروع منفصل حتي تتضج لك فكرة الكود
افتح مشروع جديد و في الفورم رقم 1 ضع باتون و عدد إثنان Label
انا كتبت لك الحل في الحدث Click الخاص بالباتون الموجود علي سطح الفورم لتوضيح الفكرة لا غير
اكتب الكود كالتالي
كود :
Public Class Form1
Private Function Randomize(Of T)(items As List(Of T)) As List(Of T)
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 item = result(j)
result(j) = result(i - 1)
result(i - 1) = item
Next
Return result
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Label1.Text = ""
Label2.Text = ""
' تطبيق للمثال الأول مع الأسماء
Dim names As List(Of String) = New List(Of String) From {"Ahmed", "Mohmed", "Ali", "Mostafa", "Omar", "Basem"}
names = Randomize(Of String)(names)
Me.Label1.Text = names(0)
' تطبيق للمثال الثاني مع الأرقام
Dim numbers As List(Of Integer) = New List(Of Integer) From {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
numbers = Randomize(Of Integer)(numbers)
For i As Integer = 0 To numbers.Count - 1
Dim current As Integer = numbers(i)
Dim s As String = current.ToString
Label2.Text += s
Next
End Sub
End Class
وقم بتشغيل و تجربة المشروع و حاول هنا أن تضغط علي الباتون اكثر من مرة و انظر ماذا سيحدث للبيانات الموجودة في كل Label موجود علي سطح الفورم
و اتمني تكون الفكرة وضحت بالنسبة لك
شكرا اخي وان شاء الله اسبت ان جدير بلقب عضو مبدع وتعلمت اخي التعديل علي ربط الكلاس بالفورم
علي ما يبدو أنك غاضب من كلامي .لكن لتثق تماما أنني أحترم الجميع الصغير قبل الكبير و كلنا هنا إخوة
ومجرد ردي عليكي او علي اي عضو أخر فهو يمثل نوعا من الإحترام لك و لأسئلتك
فالفكرة في المنتدي هي أن يتعلم الجميع و ليس أنت فقط
عموما أرجو ان لا تثبت لي شيئا لأنه لا ضرر و لا ضرار لي في أن تكون أعظم مبرمج في العالم ......... عليك ان تثبت لنفسك أنت فقط انك تستحق
ولا تخجل من قلة المعرفة ..... فأنا لا أخجل منها و لعلمك أنا لا أفقه في قواعد البيانات اي شئ و هذا ليس عيبا و السبب هو أنني لا استسيغها و لا أحبها