تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود في الليبول
#1
 السلام عليكم عندي سوال في اداة الليبول
عايز كود يخلي الليبول يكتب ارقام من واحد لعشرة عشوائي افهموني انا مش عايزو يعد من واحد لعشرة لا انا عايزو يكتب رقم من الواحد الي العشرة

يا ريت الحل بسرعة ^_^
: )
الرد }}}}
تم الشكر بواسطة:
#2
يمكنك استخدام الدالة التالية

كود :
 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
الرد }}}}
تم الشكر بواسطة:
#3
(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 
شكرا اخواني لكن انا الان احتجها يظهر كلام عشوائي انا الاكتبو
: )
الرد }}}}
تم الشكر بواسطة:
#4
(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
لا افهم كيف استخدم هذه الدالة ولا اعرف كيف اربط الكلس مع  الفورم  Smile
: )
الرد }}}}
تم الشكر بواسطة:
#5
بشكل مبدئي عذرا لكلامي هذا
دعني أصدقك القول انا غالبا عندما أرد علي سؤال لأي عضو انظر الي تصنيفه اولا قبل أن اكتب له الحل ..... لذلك أجد أنه شئ غريب أن يكون تصنيفك في الموقع هو انك عضو مبدع و مع ذلك لا تعلم كيف تستخدم الكود

عموما أن قمت بالتعديل علي الدالة حتي تصلح للإستخدام مع الأرقام و مع الكلمات أو الأسماء

نفذ الخطوات التالية في مشروع منفصل حتي تتضج لك فكرة الكود

افتح مشروع جديد و في الفورم رقم 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 موجود علي سطح الفورم

و اتمني تكون الفكرة وضحت بالنسبة لك
الرد }}}}
تم الشكر بواسطة: khodor1985 , soper
#6
شكرا اخي وان شاء الله اسبت ان جدير بلقب عضو مبدع وتعلمت اخي التعديل علي ربط الكلاس بالفورم
: )
الرد }}}}
تم الشكر بواسطة:
#7
علي ما يبدو أنك غاضب من كلامي .لكن لتثق تماما أنني أحترم الجميع الصغير قبل الكبير و كلنا هنا إخوة
ومجرد ردي عليكي او علي اي عضو أخر فهو يمثل نوعا من الإحترام لك و لأسئلتك
فالفكرة في المنتدي هي أن يتعلم الجميع و ليس أنت فقط

عموما أرجو ان لا تثبت لي شيئا لأنه لا ضرر و لا ضرار لي في أن تكون أعظم مبرمج في العالم ......... عليك ان تثبت لنفسك أنت فقط انك تستحق

ولا تخجل من قلة المعرفة ..... فأنا لا أخجل منها و لعلمك أنا لا أفقه في قواعد البيانات اي شئ و هذا ليس عيبا و السبب هو أنني لا استسيغها و لا أحبها
الرد }}}}
تم الشكر بواسطة:
#8
(07-08-16, 05:38 PM)silverlight كتب : علي ما يبدو أنك غاضب من كلامي .لكن لتثق تماما أنني أحترم الجميع الصغير قبل الكبير و كلنا هنا إخوة
ومجرد ردي عليكي او علي اي عضو أخر فهو يمثل نوعا من الإحترام لك و لأسئلتك
فالفكرة في المنتدي هي أن يتعلم الجميع و ليس أنت فقط

عموما أرجو ان لا تثبت لي شيئا لأنه لا ضرر و لا ضرار لي في أن تكون أعظم مبرمج في العالم ......... عليك ان تثبت لنفسك أنت فقط انك تستحق

ولا تخجل من قلة المعرفة ..... فأنا لا أخجل منها و لعلمك أنا لا أفقه في قواعد البيانات اي شئ و هذا ليس عيبا و السبب هو أنني لا استسيغها و لا أحبها

شكرا لك ولي دعمك الراع
: )
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم