منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
إنشاء ليستة في ملف بحروف و أرقام معينة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=6792)

إنشاء ليستة في ملف بحروف و أرقام معينة - magginito2022 - 01-11-12

باسم الله الرحمان الرحيم
و الصلاة و السلام على اشرف المرسلين
السلام عليكم

فرضا انه عندي الحروف و الأرقام التالية : @.APW123vatna
أريد أن انشأ ليستة بجميع الحروف و الارقام ووضعها في ملف نصي
أرجو المساعدة


إنشاء ليستة في ملف بحروف و أرقام معينة - amgadtamer - 01-11-12

انظر هذا المثال

إنشاء ليستة في ملف بحروف و أرقام معينة - magginito2022 - 01-11-12

بارك الله فيك أخي على الرد و لكن ليس هذا هو المطلوب
المثال يكتب لك في ملف نصي كل الحروف و الارقام التي كتبتها ، أما المطلوب هو عمل ليستة
فمثلا كلمة من 3 حروف APW كل الإحتمالات لعمل ليسته هي :
APW
AWP
PAW
PWA
WAP
WPA

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

أرجو الإفادة

إنشاء ليستة في ملف بحروف و أرقام معينة - elta - 01-11-12

كانت لدي طريقة لكني فرمت جهاز كمبيوتري

إنشاء ليستة في ملف بحروف و أرقام معينة - magginito2022 - 01-11-12

بارك الله فيك و الله الأمر يهمني كثيرا

إنشاء ليستة في ملف بحروف و أرقام معينة - SaLoOoMX - 02-11-12

هل تقصد مثل هذا
[video=youtube;PuNaCkH-mBU]https://www.youtube.com/watch?v=PuNaCkH-mBU[/video]

إنشاء ليستة في ملف بحروف و أرقام معينة - magginito2022 - 02-11-12

نعم بارك الله فيك انا اريد ان لا احصر في 1 او 2 او 3 او 4 او حتى 10 حروف او ارقام
اريد ان يكون بحروف معينة انا اختارها و بعدد حروف انا اختارها و بارك الله فيك

إنشاء ليستة في ملف بحروف و أرقام معينة - amgadtamer - 02-11-12

أطلع على هذا المثال

إنشاء ليستة في ملف بحروف و أرقام معينة - SaLoOoMX - 02-11-12

كود :
Dim Random = New Random
        Dim Rand As String = ""
        Do Until Val(Rand.Length) >= 2
            Rand &= ChrW(Random.Next(Asc("A"), Asc("Z")))
            TextBox1.Text = Rand
        Loop

تستطيع ان تزيد عدد الاحرف باستبدال الرقم 2 الى اي رقم تريد


اذا اردت ان يصنع لك لسته بعدد الاحرف ضع هذا الكود في timer