17-10-19, 08:56 PM
السلام عليكم
انا استعمل الكود هاد لتوليد احرف من عدد خانات محدد
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
لكل من يقوم بالمساهمة