[sads]

السلام عليكم ورحمة الله وبركاته
كيف الحال إخوتي
 طلب بسيط وهو عبارة عن أكواد لصناعة برنامج لتوليد الحروف بطريق مرتبة وعلى حسب طلبي قد تتكون من حرفين أو أكثر ومن ثم تخزين النواتج في ملف text

مثال

إذا إخترت حرفين تكون النتائج

aa
ac
ad 

وهكذا حتى نصل إلى 

zz

وإذا إخترت 3 أحرف تكون النتائج

aaa
aab
aac

البرمجة بلغة الفيجول
والسلام عليكم

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

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

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

   

المثال :

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

[sads]

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

[sads]

(08-04-18, 12:20 PM)sads كتب : مشكور أخوي عبدالله / مجهود رائع جداً منك ، إستفسار - هل من كود لزيادة سرعة التوليد ، لقد لاحضت أن التوليد بطيئ نوعاً ما. 
سؤال أخر لو انا أردت أن أبدأ من قيمة معينة ومن ثم الكود يستكمل.

ممكن لو سمحتو الرد على الإستفسارات

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

ممكن ولكن أعتذر لإنشغالي 

ممكن تبداء من رقم الـ Index الخاص بالحرف , بدلاً من أن نبداء بالرقم صفر وهو أول حرف (A)
A B  C  D  E  F G
6  5   4   3  2  1  0 

مثلاُ نبداء بالحرف G
وهذا يعني أن أول Index يساوي 6

هذة الفكرة بشكل بسيط

[sads]

[quote pid='117269' dateline='1523219231']
شكراً على الرد أخوي عبد الله وربي يوفقك لم أفهم قصدك جيدا - فقد قمت بمحاولة بأن وضعت TEXTBOX وجعلته هو الذي يتحكم في مخراجات التوليد بدل الكود الذي كان

Dim Letters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray

وقد إستقبلت النتائج في RichTextBox

ومن ثم قمت بعمل كود يقوم بتخزين محتوى RichTextBox إلى ملف تكست

أحتاج إلى فكرة بأن أدخل أخر سطر توقفت عنده و أضعه في TEXTBOX ويستكمل باقي النتائج التي توقفت عندها

مثلا 
AAA  
AAB
AAC

الأن توقفت وحفضت الملف  - من ثم رجعت وفتحت البرنامج أريده أن يستكمل 

AAD
AAE

وهل من طريقة لزيادة سرعة التوليد فلم تجبني على ذلك.

وبارك الله فيك 
 
[/quote]

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

ما هو قصدك من توليد الحروف؟
ماذا تستفيد منها .
ربما هناك حل آخر

[sads]

(09-04-18, 07:50 AM)عبدالله الدوسري كتب : ما هو قصدك من توليد الحروف؟
ماذا تستفيد منها .
ربما هناك حل آخر

أخوي عبدالله شكراُ على الرد علي / أخي أنا طالب أدرس البرمجة ولدينا أستاذ طلب من المجموعة أن تقوم  بعمل تطبيق يشابه إلى أداة تسمى اداة crunch في توليد قواميس كلمات ، والغرض من ذلك لكي نتمكن من فهم برمجة الحلقات جيدا ونقوم بتطبيقها ومن لديه فكرة جديدة لتطبيق هذه الأداة يقدمها هذا ما طلبه منا ، لهذا أنا أكثرت عليك لفهم  طريقة التوليد وفهم عمل الأداة جيداً ، وسؤالي لك الأن هل من كود أسهل وأفضل من for - next لتوليد أسرع.
جزاك الله كل خير.

[silverlight]

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

PHP كود :

       Dim str As String = "ABCDEFG"
        Dim seperator As Char = " "
        Dim result As String = ""
        Dim i As Integer = 0
        While i < str.Length
            Dim nextChar As Integer = AscW(str(i))
            nextChar += 1
            result += str(i).ToString.PadRight(3, ChrW(nextChar))
            result += seperator

            i += 1
        End While
        result = result.TrimEnd(seperator) 


[sads]

(09-04-18, 01:30 PM)silverlight كتب : عليك استخدام الدالة PadRight في توليد الكلمات المطلوبة
الكود التالي سوف يعطيك فكرة لكيفية تنفيذ طلبك

PHP كود :

       Dim str As String = "ABCDEFG"
        Dim seperator As Char = " "
        Dim result As String = ""
        Dim i As Integer = 0
        While i < str.Length
            Dim nextChar As Integer = AscW(str(i))
            nextChar += 1
            result += str(i).ToString.PadRight(3, ChrW(nextChar))
            result += seperator

            i += 1
        End While
        result = result.TrimEnd(seperator) 


مشكور أخي ( silverlight )
لم أستطع فهم عمل الكود أحسست أنه بعيد عن طلبي . ياريت توضيح عملي بكود أخر حسب ماطلبت تماماً. لأرى إذا كانت نفس فكرتي أم لا( توضيح عملي )