20-08-18, 10:37 PM
مشكور جداً أخي على المساعدة ، في الحقيقة كود رائع
Dim values As List(Of String) = New List(Of String)()
For Each ch1 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
For Each ch2 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
For Each ch3 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
Next
Next
Next
lstCombinations.DataSource = values
lblCombinations.Text = values.Count & " combinations"
لدي بعض التسؤولات البسيطة التي لاتصعب عليكم
1-هل من طريقة لحفظ الكود مباشرة داخل ملف txt ,وهل من طريقة لإيقاف وإستكمال الكود
2-تعديل الكود ليبدأ من قيمة وينتهي عند قيمة محددة مثل البدء من afb aac
3-كود بسيط لمعرفة النسبه المؤوية للعملية الجارية.
شاكر حسن تعاونكم ولكم كل الشكر.
Dim values As List(Of String) = New List(Of String)()
For Each ch1 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
For Each ch2 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
For Each ch3 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
Next
Next
Next
lstCombinations.DataSource = values
lblCombinations.Text = values.Count & " combinations"
لدي بعض التسؤولات البسيطة التي لاتصعب عليكم
1-هل من طريقة لحفظ الكود مباشرة داخل ملف txt ,وهل من طريقة لإيقاف وإستكمال الكود
2-تعديل الكود ليبدأ من قيمة وينتهي عند قيمة محددة مثل البدء من afb aac
3-كود بسيط لمعرفة النسبه المؤوية للعملية الجارية.
شاكر حسن تعاونكم ولكم كل الشكر.
