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