[fouadhdfouad]

(29-09-19, 09:58 AM)baha كتب :

(29-09-19, 09:29 AM)AbdoDabak كتب : يعني بدي البرنامج يبدا بكتابة الحرف a لينتهي في الحرف z
ثم يبدا من جديد ب aa .... az
ثم ba ...bz
ثم ca ...az
وهكذا حتى يصل
الى za ...zz
ثم يبدا بثلاثية
ثم رباعية
وهكذا حتى تصبح 10 خانات
وانا محتاجه لاني اعمل على برنامج فك ضغط الملفات المحمية بكلمة سر
بس بدي اكتب لكل عملية شي 7 اسطر ف اذا في كود يكتب لحالو بكون احسن
لانو حسبت شقد بدي عمليات ل 10 خانات بس احرف من a  الى z
طلع 141167095653376 عملية ولكل عملية شي 7 اسطر يعني
صار بدي اكتب 988169669573632 سطر وضليت كتبت بين النصف ساعة والساعة لحتى حسنت اكتب 52 عملية
وشغلتها طويلة كتيييييييييييييييييييييييييييييير
فاذا حدا بيقدر يساعدني وبكون من الشاكرين
وانشاء الله اذا نجح معي البرنامج رح احطو في المنتدى ليستفيد منو الجميع
في كتيير برامج عالنت مقفولة بكلمة سر وما لاقيت طريقة اقدر افكها
بس اجتني فكرة وجربتها على 1 حرف و ارقام نجحت
لانو الارقام بحسن اولدها
بس ضل قدامي الاحرف وبكون البرنامج جاهز باذن الله

---

(29-09-19, 09:24 AM)baha كتب : وعليكم السلام ورحمة الله وبركاته


يمكنك وضع الحروف في مصفوفة والتعامل مع index المصفوفة كما في الكود التالي:

كود :

Dim Array() As String = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "M", "N", "O" & _
           "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"}
       For i As Integer = 0 To Array.Length - 1
           TextBox1.Text = Array(i)
       Next

أو

كود :

For i As Integer = 65 To 65 + 25
           TextBox1.Text = ChrW(i)
       Next

تمنياتي لك وللجميع التوفيق

اشكرك اخي على الرد
بس الكواد ما اشتغلت معي
اولا لانو بولد حرف واحد وانا بدي ياه يكتب الحروف كلها من الحرف الاول للاخير
ثانيا ما عبيكتب غير حرف Z
ما بيكتب اي حرف غيرو

حاليا ليس لدي فكرة عن أكثر من حرف واحد
الألف ميل تبدأ بخطوة, 
 سأحاول معها وسأوافيك بها إن نجحت باذن الله.

تصحيح الكود الكود السابق لحرف واحد

كود :

For i As Integer = 65 To 65 + 25
           TextBox1.Text + = ChrW(i)
       Next

ارجو ان يكون هدا ما طلبت

PHP كود :

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Const ALPH_LETR As String = "abcdefghijklmnopqrstuvwxyz"
        Dim intIndx As Integer
        For intIndx = 1 To Len(ALPH_LETR)
            ListBox1.Items.Add((Mid(ALPH_LETR, intIndx, +10)) & Mid(ALPH_LETR, intIndx, 10))
        Next intIndx

    End Sub
End Class