تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] سورس كود لعملية لتوليد 3 احرف يبداء من و الى طبقاً لما يتم تحديده.
#1
السلام عليكم ورحمة الله وبركاته

عيد سعيد عليكم جميعاً
وكل عام وانت بخير وسعادة دائماً بامر الله

بناءاً الى احد مواضيع الاعضاء
قمت بانشاء سورس ظيفته توليد مفاتيح متكون من 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)

تم اضافة تحديث فى الرد التالى

تحياتى لكم
وتمنياتى لكم التوفيق


الملفات المرفقة
.zip   صور الموضوع.zip (الحجم : 10.89 ك ب / التحميلات : 5)
.zip   Pro Try Create Key.zip (الحجم : 23.71 ك ب / التحميلات : 10)
.zip   Try Create Key.zip (الحجم : 35.89 ك ب / التحميلات : 9)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
#2
البرمجة لا يكون لها معنى إن لم تكن انت أحد أشخاصها أخى وحبيبى الجوكر...
الرد
تم الشكر بواسطة: elgokr
#3
(22-08-18, 05:02 PM)ابو روضة كتب :
البرمجة لا يكون لها معنى إن لم تكن انت أحد أشخاصها أخى وحبيبى الجوكر...


هذا من اصلك الطيب اخى ابو روضة

فكل عام وانت بخير وعيد سعيد عليك وعلى الجميع

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: ابو روضة
#4
السلام عليكم ورحمة الله وبركاته

اضافة بعض اللمسات لجعل السورس يقوم بتوليد عدد 4 احرف للمفتاح الواحد
كما تم اضافة تقسيم حفظ نتائج المفاتيح فى عدد الملفات التى يتم تحديدها من قبل المستخدم

صورة للبرنامج بعد الاضافات

انا جعلت خصائص الارقام فالحد الاقصي بها 10 يمكنك تعديلها كما تشاء لاى عدد
عند تقسيم عدد المفاتيح على الملفات يجب ان يكون ناتج القسم وهو عدد الملفات على عدد المفاتيح
ان يكون رقم صحيح بدون اى كسور لذلك وضمان ذلك قمت بعمل كود ايضا يقوم بالتحقق وتنبيه بذلك

السورس + برنامج للمعينة بالمرفقات
السورس (2015)

تحياتى للجميع
وتمنياتى لكم التوفيق


الملفات المرفقة صورة/صور
   

.zip   Pro Try Create Key.zip (الحجم : 24.59 ك ب / التحميلات : 4)
.zip   Try Create Key.zip (الحجم : 36.5 ك ب / التحميلات : 6)
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: YousefOkasha , YousefOkasha , princelovelorn
#5
حفظك الله لنا يا استاذنا الجوكر


    Heart ربي زدني علما  Heart

الرد
تم الشكر بواسطة: elgokr
#6
(23-08-18, 06:25 AM)kebboud كتب :
حفظك الله لنا يا استاذنا الجوكر


تسلم اخى kebboud

وعيد سعيد عليك وعلى الجميع يارب

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة:
#7
اخي elgokr ..
حقاً أنا أعتز بصداقتك و مساعدتك للمنتدي الرائعة والجميلة والغالية على قلبي صدقني يا غالي لو قضيت عمري أصف مقدار حبي وأعتزازي بك لما وفيتك حقك  Heart
الرد
تم الشكر بواسطة: ابو روضة , elgokr
#8
كل عام وانت بخير 
وجزاك الله عنا خير الجزاء
لا إله إلا الله وحده لا شريك له له الملك وله الحمد وهو على كل شئ قدير
سبحان الله وبحمده سبحان الله العظيم
سبحان الله والحمد لله ولا إله إلا الله والله أكبر ولا حول ولا قوة إلا بالله العلى العظيم
رب أغفر لي 
الرد
تم الشكر بواسطة: elgokr
#9
(23-08-18, 08:42 AM)YousefOkasha كتب :
اخي elgokr ..
حقاً أنا أعتز بصداقتك و مساعدتك للمنتدي الرائعة والجميلة والغالية على قلبي صدقني يا غالي لو قضيت عمري أصف مقدار حبي وأعتزازي بك لما وفيتك حقك  Heart

اهلاً اخى YousefOkasha
كل عام وانت بخير وعيد سعيد عليك
اسعدنى كلامك كثيراً فشكراً لك واتمنى ان اكون بهذه المحبة دائماً حتى قيام الساعة
لان ما نحتاجه من الدنيا هو شاهد يشهد لنا امام الله بالمحبة

تحياتى لك
وتمنياتى لك التوفيق


(23-08-18, 10:53 AM)princelovelorn كتب : كل عام وانت بخير 
وجزاك الله عنا خير الجزاء


اهلاً اخى princelovelorn

وانت بخير دائماً وعيد سعيد عليك وعلى الجميع
شكراً لك والشكر لله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: YousefOkasha , ابو روضة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [مشروع] سورس بسيط يبين مثال توليد لون عشوائي للفورم واي اداة وجميع خواصها كل ثانية Random وعد مولود 1 119 13-10-18, 09:21 PM
آخر رد: kebboud
  [مشروع] سورس كود برنامج دليل الهاتف الشخصي essawq 10 374 02-10-18, 11:56 PM
آخر رد: essawq
  [مشروع] سورس كود برنامج مبيعات لسه مبتدئ 30 8,301 28-09-18, 05:22 PM
آخر رد: elgokr
  سورس كود برنامج نقاط البيع linksys code3x 10 2,955 17-09-18, 10:22 AM
آخر رد: elgokr
  [مشروع] سورس كود برنامج إدارة كافية المبرمج العبقري 4 1,885 08-09-18, 08:21 AM
آخر رد: alshandodi
  [VB.NET] سورس كود لعملية تعبئة TreeView ببيانات من ثلاث جداول فاكثر elgokr 18 1,280 07-09-18, 12:16 PM
آخر رد: elgokr
Information [مشروع] سورس كود cpu Usage لنسبة استهلاك المعالج وعد مولود 3 274 22-08-18, 07:30 AM
آخر رد: elgokr
  [VB.NET] سورس كود لعملية تفعيل البرنامج مع احتساب عدد مرات الاستخدام elgokr 8 882 13-08-18, 09:04 PM
آخر رد: elgokr
Lightbulb سورس كود برنامج صانع الاكواد asemshahen5 25 3,598 05-08-18, 12:10 AM
آخر رد: ابوثامر الحربي
Bug [VB.NET] سورس كود لبرنامج تشفير النصوص لتحويلها الى ارقام و من ارقام الى نص مجدداً elgokr 11 612 13-07-18, 06:19 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم