المشاركات : 15
المواضيع 8
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم ورحمة الله وبركاته
اعزائي انا اعمل على تصميم برنامج بسيط لعمل اكواد مثل اكواد تفعيل البرامج مثال WZLEB-NXUNL-CNQMO-DHOQQ
لكن مع بعض الميزات ولدي صورة توضيحية
المطلوب هو انني قمت بتعريف قيمة لمتغير بشكل عام حسب الكود :
كود :
Public charset as string =""
وهذه القيمة تتغير بتغير الـ Key options في الأعلى حيث انه اذا كان A-Z يتم اضافة الحروف الانجليزية الكبيرة الى chatset و اذا كان ايضا a-z مفعل يتم اضافة الحروف النجليزية الصغيرة الى charset
وعند عدم التفعيل تحذف حروف القيمة التي توقف تفعيلها أمثلة
إقتباس :A-Z true and 0-9 true but a-z false then
"charset = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
المشاركات : 15
المواضيع 8
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
يعني اخوتي الكرام السؤال صعب ههههههههه
انا اعرف انكم قدها و اكثر لكن اين اللاجابات
بانتظار ردودكم ، ، ، ، ، ، تقبلوا تحياتي
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
كود :
Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
Dim charset As String = ""
If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
If m_numbers_09 Then charset &= "0123456789"
Dim result As String = ""
If charset <> "" Then
Static r As New Random ' Static مهم اختياره
For i = 1 To length
result &= charset(r.Next(0, charset.Length))
Next
End If
Return result
End Function
المشاركات : 15
المواضيع 8
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
(10-12-15, 09:32 PM)hamada558 كتب :
كود :
Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
Dim charset As String = ""
If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
If m_numbers_09 Then charset &= "0123456789"
Dim result As String = ""
If charset <> "" Then
Static r As New Random ' Static مهم اختياره
For i = 1 To length
result &= charset(r.Next(0, charset.Length))
Next
End If
Return result
End Function
مشكور اخي العزيز لكن هل من توضيح لكيفية استخدام هذا الكود ،،، انا قرأت الكود و رأيت فيه الاستفادة لكن اريد طريقة استخدامه ،،،،،،،،،،،، مشكوور مجدداً
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
11-12-15, 07:17 PM
(آخر تعديل لهذه المشاركة : 11-12-15, 07:18 PM {2} بواسطة hamada558.)
طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length
كود :
textBox1.Text = RandomChars(true, true, true, 10);
أو
كود :
textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);
طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length
كود :
textBox1.Text = RandomChars(true, true, true, 10);
أو
كود :
textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);
المشاركات : 15
المواضيع 8
الإنتساب : Feb 2014
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
(11-12-15, 07:17 PM)hamada558 كتب : طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length
كود :
textBox1.Text = RandomChars(true, true, true, 10);
أو
كود :
textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);
طريقة استخدام الكود باستعائة بمارامترات بتحددها ب true أو false لكل من m_CapitalChars_AZ وm_SmallChars_az وm_numbers_09 وتحديد طول الناتج في length
كود :
textBox1.Text = RandomChars(true, true, true, 10);
أو
كود :
textBox1.Text = RandomChars(checkBox1.Checked, checkBox2.Checked, checkBox3.Checked,10);
اخي ما اريده بالضبط هو ان check boxes الموجودة بالفورم هي فقط لتحديد قيمة charset اما باقي الاكواد لتوليد السيريلات جاهزة هل من مثال ابسط و كما وضحت سابقا هو انه اريد فقط تعديل قيمة الcharset بتلك الcheck boxes
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
بدون ما تزعل...
انت قلت عن الكود تبعي "انا قرأت الكود و رأيت فيه الاستفادة لكن اريد طريقة استخدامه"
فكتبتلك "طريقة استخدامه"،
علعموم.... انا مبعرف كودك حتى فيدك...
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
حبيبي ميمو
هاد كامل الكود مع "طريقة الاستخدام" واذا مش واضح خبرني
كود :
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = RandomChars(CheckBox1.Checked, CheckBox2.Checked, CheckBox3.Checked, NumericUpDown1.Value)
End Sub
Shared Function RandomChars(ByVal m_CapitalChars_AZ As Boolean, ByVal m_SmallChars_az As Boolean, ByVal m_numbers_09 As Boolean, ByVal length As Integer) As String
Dim charset As String = ""
If m_CapitalChars_AZ Then charset &= "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
If m_SmallChars_az Then charset &= "abcdefghijklmnopqrstuvwxyz"
If m_numbers_09 Then charset &= "0123456789"
Dim result As String = ""
If charset <> "" Then
Static r As New Random ' Static مهم اختياره
For i = 1 To length
result &= charset(r.Next(0, charset.Length))
Next
End If
Return result
End Function
End Class
المشاركات : 117
المواضيع 0
الإنتساب : Sep 2015
السمعة :
12
الشكر: 2606
تم شكره 3367 مرات في 74 مشاركات
12-12-15, 06:33 PM
(آخر تعديل لهذه المشاركة : 12-12-15, 06:53 PM {2} بواسطة hamada558.)
شو رايك تجرب دالة جاهزة في الفجوال اسمها GUID وهي ممتازة ولا يتكرر الناتج ابداً، ويستخدمها الكثيرون كرقم لنسخة البرنامج
و"طريقة استخدامها"
كود :
TextBox1.Text = Guid.NewGuid().ToString
تفعيل نسخة البرامج
شوف هاد الرابط لمجموعة فيديوهات LicenseSpot فيها طريقة تفعيل نسخة البرامج ممكن تستفيد منه
LicenseSpot
https://vimeo.com/search?q=LicenseSpot
ومنها LicenseSpot - VB.NET Integration
المشاركات : 172
المواضيع 8
الإنتساب : Jun 2014
السمعة :
22
الشكر: 1253
تم شكره 1122 مرات في 128 مشاركات
29-12-15, 01:09 AM
(آخر تعديل لهذه المشاركة : 01-01-16, 10:46 PM {2} بواسطة zinom.)
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
اللهم صلي علي اشرف الخلق نبي الرحمه
وبارك عل اله وصحابته الكرام والتابعين
والحقنا بهم في جنات النعيم
------------
الاخوه الكرام تقبلو تحياتي
طبعا بعد إذن الاخ الكريم
hamada558
--------------------
حضرتك طلبت التحكم يكون عن طريق
checkbox
hamada558 برغم حل الاخ الكريم
بدون ال
checkbox
شوف المثال ده إنشاء الله فيه طلبك فيه طلبك
ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ ـ
انوه علي الاخوه الكرام إرفاق مثال في الموضوع
حتي لا يمل من يريد المساعده
تقبلو فائق احترامي
ـ ـ ـ ـ ـ ـ ـ ـ ـ
ـ ـ ـ ـ ـ ـ ـ ـ
طلب حضرتك في الموضوع ده في قسم الامثله
اللهم صلي علي نبي (الرحمه) محمد رسول الله وبارك علي اله وصحابته والتابعين واحقن دماء امتنا واجعل بأسنا علي اعدائنا يا ارحم الراحمين
[b]امين [/b]
|