تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] هل توجد طريقه لتوليد ارقام عشوائيه
#1
السلام عليكم ورحمه الله وبركاته
ممكن كود توليد ارقام والحرف عشوائيه أو مثلا انا ضيفت متغير من نوع نصي واضفتله ارقام وحروف واريد كود بديني مثلا ٤ ارقام او احرف عشوائيه من هذا المتغير 
لو يوجد كود المثاليه يكون افضل وشكرا
الرد }}}
تم الشكر بواسطة:
#2
استخدم هذه الدالة

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)
الرد }}}
تم الشكر بواسطة: منه , منه , حريف برمجة , حريف برمجة
#3
انا جربت الكود وشغال بس ممكن شرح
الرد }}}
تم الشكر بواسطة:
#4
الفكرة بسيطة هي استخدام قاموس من الاحرف والارقم التي يتكون راح تظهر \
ونستخدم كمان طول الاحروف مثلا 5
وكذا استخدمنا Random لاعطاء امثلة عشوائية هذا كل الشرح
الرد }}}
تم الشكر بواسطة:



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


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