السلام عليكم ورحمة الله وبركاته
عيد سعيد عليكم جميعاً
وكل عام وانت بخير وسعادة دائماً بامر الله
بناءاً الى احد مواضيع الاعضاء
قمت بانشاء سورس ظيفته توليد مفاتيح متكون من 3 اعرف
يمكن التعديل والتلاعب فى الكود للاستفادة منه فى اشياء كثيرة
كما يمكنك تزويد عدد الاحرف من 3 الى اى عدد تريده فقط كل ما عليك توليد For بداخل For
ايقونة البرنامج
صورة البرنامج عند التشغيل
صورة للبرنامج بعد اتمام توليد الاحرف
طبعاً تم عمل توليد للاحرف الانجليزية فقط فى هذا السورس
لكن يمكنك التعديل وان تجعله احرف عربية وما غير ذلك من خلال التعديل على هذا السطر
كود :
Private abc As String = "abcdefghijklmnopqrstuvwxyz"
كما يمكنك دمج الاحرف العربية والانجليزية معاً وما غير ذلك
فتخيل ان السورس فكرة فما يمكنك انت من تطويره
السورس كود المستخدم فى الفورم كاملاً
كود :
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
اتمنى ان السورس ينال اعجابكم
وان يكون مفيد لمن يريد مثل هذا السورس
السورس + برنامج للمعينة مرفق
السورس (2015)
تم اضافة تحديث فى الرد التالى
تحياتى لكم
وتمنياتى لكم التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
▼ شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية