+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] هل توجد طريقه لتوليد ارقام عشوائيه (/showthread.php?tid=35681)
هل توجد طريقه لتوليد ارقام عشوائيه - منه - 16-07-20
السلام عليكم ورحمه الله وبركاته
ممكن كود توليد ارقام والحرف عشوائيه أو مثلا انا ضيفت متغير من نوع نصي واضفتله ارقام وحروف واريد كود بديني مثلا ٤ ارقام او احرف عشوائيه من هذا المتغير
لو يوجد كود المثاليه يكون افضل وشكرا
RE: هل توجد طريقه لتوليد ارقام عشوائيه - قناص المدينة - 16-07-20
استخدم هذه الدالة
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)
RE: هل توجد طريقه لتوليد ارقام عشوائيه - منه - 18-07-20
انا جربت الكود وشغال بس ممكن شرح
RE: هل توجد طريقه لتوليد ارقام عشوائيه - قناص المدينة - 19-07-20
الفكرة بسيطة هي استخدام قاموس من الاحرف والارقم التي يتكون راح تظهر \
ونستخدم كمان طول الاحروف مثلا 5
وكذا استخدمنا Random لاعطاء امثلة عشوائية هذا كل الشرح