[silverlight]

انا هدفي توضيح الفكرة
و فيه اساليب كثيرة لتنفيذ الفكرة منها مثلا الاسلوب التالي
مثلا ده loop للحرف الأول فقط

PHP كود :

       Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim i As Integer = 0
        Dim values As String() = New String(str.Length - 1) {}
        While i < str.Length
            Dim s As String = New String(str, 0, 1)
            s += s
            s += str(i).ToString

            values(i) = s
            i += 1
        End While

        For Each value As String In values
            ListBox1.Items.Add(value)
        Next 


عليك ان تدرس الفكرة و تكتب بقية الكود بنفسك
غير ذلك لن تتعلم شيئا

[sads]

(09-04-18, 08:13 PM)silverlight كتب : انا هدفي توضيح الفكرة
و فيه اساليب كثيرة لتنفيذ الفكرة منها مثلا الاسلوب التالي
مثلا ده loop للحرف الأول فقط

PHP كود :

       Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim i As Integer = 0
        Dim values As String() = New String(str.Length - 1) {}
        While i < str.Length
            Dim s As String = New String(str, 0, 1)
            s += s
            s += str(i).ToString

            values(i) = s
            i += 1
        End While

        For Each value As String In values
            ListBox1.Items.Add(value)
        Next 


عليك ان تدرس الفكرة و تكتب بقية الكود بنفسك
غير ذلك لن تتعلم شيئا

الله يجزاك الخير يا رب ويكثر من امثالك , بارك الله فيك , في الحقيقة واضح أن فكرة الكود هي الفكرة التي أريدها ولاكن ياريت تشرح لي الكود ولو بشيئ من البساطة لأتمكن من الإستمرار والتعديل في كتابة الكود  في الحقيقة واجهت بعض الصعوبه في فهمه.

[silverlight]

ده مثال أخر عبارة عن Loop لكل الحروف
ايضا تستطيع تحديد عدد مرات تكرار الحرف الأول التي تريدها 

PHP كود :

       Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim i As Integer = 0
        ' عدد مرات تكرار الحرف الأول
        Dim count As Integer = 3
        Dim values As String() = New String(str.Length - 1) {}
        While i < str.Length
            Dim s As String = New String(str, i, 1)
            s = New String(s, count)
            values(i) = s
            i += 1
        End While

        For Each value As String In values
            For j = 0 To values.Length - 1
                ListBox1.Items.Add(value + str(j).ToString)
            Next

        Next 


[sads]

(09-04-18, 09:26 PM)silverlight كتب : ده مثال أخر عبارة عن Loop لكل الحروف
ايضا تستطيع تحديد عدد مرات تكرار الحرف الأول التي تريدها 

PHP كود :

       Dim str As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
        Dim i As Integer = 0
        ' عدد مرات تكرار الحرف الأول
        Dim count As Integer = 3
        Dim values As String() = New String(str.Length - 1) {}
        While i < str.Length
            Dim s As String = New String(str, i, 1)
            s = New String(s, count)
            values(i) = s
            i += 1
        End While

        For Each value As String In values
            For j = 0 To values.Length - 1
                ListBox1.Items.Add(value + str(j).ToString)
            Next

        Next 


ياريت توضيح بسيط كيف أعمل لوب للحرف الثاني بعد مايستكمل الأول وكيف النتائج تكون مرتبة أي تكون بهذا الشكل aaa  aab aac  حتى aaz من ثم تبدأ الخانه الثانية aba  abb  abc وهكذا  حتى أحر خيار وهوا zzz

[sads]

مشكور لكل شخص قدم لي المساعدة في هذا المنتدى الرائع فا ياريت لو حد عنده برمجية جاهزة يقدمها ويشرحها فله مني كل الشكر والتقدير

حقيقة الأكواد السابقة واجهت فيها الصعوبة في إستكمالها ولم أجد من يشرحها لي لأكمل برمجتها

لو شخص حاب يساعد في شرحها أو أن يستكمل عليها بعض الشيئ له مني كل جزيل الشكر

والسلام عليكم ورحمة الله وبركاته

[عبدالله الدوسري]

مثال بطريقة أخرى :
   


  WindowsApp1.rar (الحجم : 184.75 ك ب / التحميلات : 63)

[sads]

مشكور أخي [b]عبدالله الدوسري[/b]  ولك كل الشكر 

[محمد ايمن]

(07-04-18, 11:57 PM)عبدالله الدوسري كتب : وعليكم السلام ورحمة الله وبركاتة

حرفين (26 * 26) يعني 676 إحتمال
3 أحرف ستكون (26 * 26 * 26) يعني 17,576 إحتمال



المثال :

ممكن تولي لو عيز البرنمج يعمل 6حروف بدل3 اعمل اه

[DK-x]

جرب البروجكت هذا


  ListCreator.zip (الحجم : 54.01 ك ب / التحميلات : 21)