[AbdoDabak]

السلام عليكم

انا استعمل الكود هاد لتوليد احرف من عدد خانات محدد

Textbox1 يضل فارغ

textbox2 لتحديد عدد الخانات

سيتم حفظ توليد الاحرف في ملف "D:\aTOz.txt"

الكود شغال لكن عندما اريد توليد احرف من 5 خانات او اكثر

يحتاج الى ساعةو نصف لتوليد 5 خانات

كيف ممكن اني اذا فصل جهاز الكمبيوتر اني اكمل من

مكان ما وقف البرنامج

ما يرجع يعيد من البداية

لان البرنامج يقوم بتوليد احرف من a - z

ثم من aa - zz

ثم من aaa - zzz

وهكذا حسب عدد الخانات المطلوبة

محتاج كود اني اخلي البرنامج يبدا من مكان معين

وينتهي في مكان معين

لو افترضنا ان textbox2.text = 3

رح يبدا من  a -zzz

ثم يتوقف

انا محتاج اني اخلي يبدا من stt - xyd

اتمنى تكونو فهمتو قصدي

وهي الكود جربوا عدد خانات 1 و 2 و3 و4 و5

ممكن انو تتقرب الفكرة اكتر

مشكورين

PHP كود :

Imports System.IO
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr() As String = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
        Dim len As Integer = arr.Length
        crack(arr, len)
    End Sub

    Private Sub generate(ByVal arr() As String, ByVal i As Integer, ByVal s As String, ByVal len As Integer)
        If i = 0 Then
            TextBox1.Text += s & vbCrLf
            My.Computer.FileSystem.WriteAllText("D:\aTOz.txt", TextBox1.Text, True)
            TextBox1.Text = Nothing
            Exit Sub
        End If
        If i = (TextBox2.Text + 1) Then
            End
        End If
        For j As Integer = 0 To len - 1
            Dim appended As String = s + arr(j)
            generate(arr, i - 1, appended, len)
        Next
    End Sub

    Private Sub crack(ByVal arr As String(), ByVal len As Integer)
        For i As Integer = 1 To len
            generate(arr, i, "", len)
        Next
    End Sub

End Class