[VB.NET] سورس كود لعملية لتوليد 3 احرف يبداء من و الى طبقاً لما يتم تحديده.

كود :
Public Class Form1

    Private i, ii As Integer

    Private abc As String = "abcdefghijklmnopqrstuvwxyz"



    Private Sub TextBox_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress, TextBox2.KeyPress

        REM الكود هنا لجعل الكتابة احرف فقط

        If Not (Asc(e.KeyChar) = 8) Then

            Dim allowedChars As String = abc

            If Not allowedChars.Contains(e.KeyChar.ToString.ToLower) Then

                e.KeyChar = ChrW(0)

                e.Handled = True

            End If

        End If

    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        REM كود التحقق بعدد احرف النص

        If TextBox1.TextLength < 3 OrElse TextBox2.TextLength < 3 Then

            MsgBox("The Minimum Number Of Characters is 3 Letters.")

            Exit Sub

        End If



        REM القيم الافتراضية عند اتمام توليد المفاتيح

        i = 0

        ii = 0

        ProgressBar1.Minimum = 0

        ProgressBar1.Maximum = Val(abc.Length * abc.Length * abc.Length)

        ProgressBar1.Value = 0

        Label6.Text = 0

        Button1.Enabled = False

        TextBox3.Text = Nothing

        Label3.Text = "Not Finished"

        Label3.ForeColor = Color.Red

        Button2.Enabled = False



        REM رسالة تاكيد باتمام بدء عملية توليد المفاتيح

        Dim result As Integer = MessageBox.Show("Do you want to start the process of generating keys?", "Confirm The Start Process...", MessageBoxButtons.OKCancel)

        REM التحقق بالموافقة على الرسالة او الغاء الامر

        If result = DialogResult.Cancel Then

            Button1.Enabled = True

            Label3.Text = "Ready"

            Label3.ForeColor = Color.Blue

            Exit Sub

        End If



        REM كود توليد المفاتيح المكون من 3 احرف

        For Each ch1 In abc.ToCharArray()

            For Each ch2 In abc.ToCharArray()

                For Each ch3 In abc.ToCharArray()

                    ProgressBar1.Value += +1

                    If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox1.Text Then i = 1

                    If i = 1 Then

                        TextBox3.Text += (ch1.ToString() & ch2.ToString() & ch3.ToString()) & ", "

                        ii += 1

                        If (ch1.ToString() & ch2.ToString() & ch3.ToString()) = TextBox2.Text Then i = 0

                    End If

                Next

            Next



            REM التحقق من اتمام توليد اجمالى 3 احرف كاملاً

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Button1.Enabled = True

                Label3.Text = "Finished"

                Label3.ForeColor = Color.Green

                Button2.Enabled = True

            End If

        Next



        REM اجمالى عدد المفاتيح التى تم انشائها فعلياً

        Label6.Text = ii

    End Sub



    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        REM كود استبدال الفاصلة بسطر جديد تم انشاء الفكرة ليمكنك استخدامها مستقبلياً

        Dim SaveText As String = TextBox3.Text.Replace(", ", vbNewLine)

        REM تحديد مسار واسم الملف المطلوب حفظه

        Dim SelectPath As New SaveFileDialog()

        SelectPath.Filter = "Text Files (*.txt)|*.txt"

        SelectPath.FileName = ""

        SelectPath.FilterIndex = 2

        SelectPath.RestoreDirectory = True

        REM كود التحقق بتحديد المسار لاتمام حفظ واستخراج المفاتيح بالملف

        If SelectPath.ShowDialog() = DialogResult.OK Then

            My.Computer.FileSystem.WriteAllText(SelectPath.FileName, SaveText, True)

        End If

    End Sub

End Class