+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : برنامج لتوليد الحروف (/showthread.php?tid=24456)
الصفحات:
1
2
برنامج لتوليد الحروف - sads - 07-04-18
السلام عليكم ورحمة الله وبركاته
كيف الحال إخوتي
طلب بسيط وهو عبارة عن أكواد لصناعة برنامج لتوليد الحروف بطريق مرتبة وعلى حسب طلبي قد تتكون من حرفين أو أكثر ومن ثم تخزين النواتج في ملف text
مثال
إذا إخترت حرفين تكون النتائج
aa
ac
ad
وهكذا حتى نصل إلى
zz
وإذا إخترت 3 أحرف تكون النتائج
aaa
aab
aac
البرمجة بلغة الفيجول
والسلام عليكم
RE: برنامج لتوليد الحروف - عبدالله الدوسري - 07-04-18
وعليكم السلام ورحمة الله وبركاتة
حرفين (26 * 26) يعني 676 إحتمال
3 أحرف ستكون (26 * 26 * 26) يعني 17,576 إحتمال
[attachment=17608]
المثال :
[attachment=17609]
RE: برنامج لتوليد الحروف - sads - 08-04-18
مشكور أخوي عبدالله / مجهود رائع جداً منك ، إستفسار - هل من كود لزيادة سرعة التوليد ، لقد لاحضت أن التوليد بطيئ نوعاً ما.
سؤال أخر لو انا أردت أن أبدأ من قيمة معينة ومن ثم الكود يستكمل.
RE: برنامج لتوليد الحروف - sads - 08-04-18
(08-04-18, 12:20 PM)sads كتب : مشكور أخوي عبدالله / مجهود رائع جداً منك ، إستفسار - هل من كود لزيادة سرعة التوليد ، لقد لاحضت أن التوليد بطيئ نوعاً ما.ممكن لو سمحتو الرد على الإستفسارات
سؤال أخر لو انا أردت أن أبدأ من قيمة معينة ومن ثم الكود يستكمل.
RE: برنامج لتوليد الحروف - عبدالله الدوسري - 09-04-18
ممكن ولكن أعتذر لإنشغالي
ممكن تبداء من رقم الـ Index الخاص بالحرف , بدلاً من أن نبداء بالرقم صفر وهو أول حرف (A)
A B C D E F G
6 5 4 3 2 1 0
مثلاُ نبداء بالحرف G
وهذا يعني أن أول Index يساوي 6
هذة الفكرة بشكل بسيط
RE: برنامج لتوليد الحروف - sads - 09-04-18
[quote pid='117269' dateline='1523219231']
شكراً على الرد أخوي عبد الله وربي يوفقك لم أفهم قصدك جيدا - فقد قمت بمحاولة بأن وضعت TEXTBOX وجعلته هو الذي يتحكم في مخراجات التوليد بدل الكود الذي كان
Dim Letters As Char() = "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray
وقد إستقبلت النتائج في RichTextBox
ومن ثم قمت بعمل كود يقوم بتخزين محتوى RichTextBox إلى ملف تكست
أحتاج إلى فكرة بأن أدخل أخر سطر توقفت عنده و أضعه في TEXTBOX ويستكمل باقي النتائج التي توقفت عندها
مثلا
AAA
AAB
AAC
الأن توقفت وحفضت الملف - من ثم رجعت وفتحت البرنامج أريده أن يستكمل
AAD
AAE
وهل من طريقة لزيادة سرعة التوليد فلم تجبني على ذلك.
وبارك الله فيك
[/quote]
RE: برنامج لتوليد الحروف - عبدالله الدوسري - 09-04-18
ما هو قصدك من توليد الحروف؟
ماذا تستفيد منها .
ربما هناك حل آخر
RE: برنامج لتوليد الحروف - sads - 09-04-18
(09-04-18, 07:50 AM)عبدالله الدوسري كتب : ما هو قصدك من توليد الحروف؟
ماذا تستفيد منها .
ربما هناك حل آخر
أخوي عبدالله شكراُ على الرد علي / أخي أنا طالب أدرس البرمجة ولدينا أستاذ طلب من المجموعة أن تقوم بعمل تطبيق يشابه إلى أداة تسمى اداة crunch في توليد قواميس كلمات ، والغرض من ذلك لكي نتمكن من فهم برمجة الحلقات جيدا ونقوم بتطبيقها ومن لديه فكرة جديدة لتطبيق هذه الأداة يقدمها هذا ما طلبه منا ، لهذا أنا أكثرت عليك لفهم طريقة التوليد وفهم عمل الأداة جيداً ، وسؤالي لك الأن هل من كود أسهل وأفضل من for - next لتوليد أسرع.
جزاك الله كل خير.
RE: برنامج لتوليد الحروف - silverlight - 09-04-18
عليك استخدام الدالة 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)
RE: برنامج لتوليد الحروف - sads - 09-04-18
(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 )
لم أستطع فهم عمل الكود أحسست أنه بعيد عن طلبي . ياريت توضيح عملي بكود أخر حسب ماطلبت تماماً. لأرى إذا كانت نفس فكرتي أم لا( توضيح عملي )