منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

(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 


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

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

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

(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

مثال بطريقة أخرى :
[attachment=17643]

[attachment=17644]

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

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

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



المثال :

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