المشاركات : 230
المواضيع 111
الإنتساب : Mar 2020
السمعة :
0
الشكر: 71
تم شكره 73 مرات في 58 مشاركات
السلام عليكم ورحمه الله وبركاته
ممكن كود توليد ارقام والحرف عشوائيه أو مثلا انا ضيفت متغير من نوع نصي واضفتله ارقام وحروف واريد كود بديني مثلا ٤ ارقام او احرف عشوائيه من هذا المتغير
لو يوجد كود المثاليه يكون افضل وشكرا
المشاركات : 125
المواضيع 12
الإنتساب : Sep 2013
السمعة :
7
الشكر: 87
تم شكره 209 مرات في 61 مشاركات
استخدم هذه الدالة
Public Shared Function RandomNumStr(ByVal intStrLength As Integer) As String
Dim chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Dim intLength As Integer = intStrLength - 1
Dim stringChars = New Char(intLength) {}
Dim random = New Random()
For i As Integer = 0 To stringChars.Length - 1
stringChars(i) = chars(random.[Next](chars.Length))
Next
Dim finalString = New [String](stringChars)
Return finalString
End Function
وفى اى حدث ضع هذا الكود
TextBox1.Text = RandomNumStr(5)
المشاركات : 230
المواضيع 111
الإنتساب : Mar 2020
السمعة :
0
الشكر: 71
تم شكره 73 مرات في 58 مشاركات
انا جربت الكود وشغال بس ممكن شرح
المشاركات : 125
المواضيع 12
الإنتساب : Sep 2013
السمعة :
7
الشكر: 87
تم شكره 209 مرات في 61 مشاركات
الفكرة بسيطة هي استخدام قاموس من الاحرف والارقم التي يتكون راح تظهر \
ونستخدم كمان طول الاحروف مثلا 5
وكذا استخدمنا Random لاعطاء امثلة عشوائية هذا كل الشرح