باسم الله الرحمان الرحيم
و الصلاة و السلام على اشرف المرسلين
السلام عليكم
فرضا انه عندي الحروف و الأرقام التالية : @.APW123vatna
أريد أن انشأ ليستة بجميع الحروف و الارقام ووضعها في ملف نصي
أرجو المساعدة
بارك الله فيك أخي على الرد و لكن ليس هذا هو المطلوب
المثال يكتب لك في ملف نصي كل الحروف و الارقام التي كتبتها ، أما المطلوب هو عمل ليستة
فمثلا كلمة من 3 حروف APW كل الإحتمالات لعمل ليسته هي :
APW
AWP
PAW
PWA
WAP
WPA
أريد طريقة لعمل هذه الليسة بكل أتوماتيكي بحيث يكون طول الكلمة غير مهم مثلا كلمة international أو أطول منها و اضعها في ملف نصي
أرجو الإفادة
كانت لدي طريقة لكني فرمت جهاز كمبيوتري
بارك الله فيك و الله الأمر يهمني كثيرا
هل تقصد مثل هذا
[video=youtube;PuNaCkH-mBU]https://www.youtube.com/watch?v=PuNaCkH-mBU[/video]
نعم بارك الله فيك انا اريد ان لا احصر في 1 او 2 او 3 او 4 او حتى 10 حروف او ارقام
اريد ان يكون بحروف معينة انا اختارها و بعدد حروف انا اختارها و بارك الله فيك
كود :
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