تقييم الموضوع :
  • 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 10 231 15-10-21, 11:23 PM
آخر رد: خالد كامل1
  هل يوجد كود برمجى او طريقه لعمل هذا فى الداتا جريد فيو خالد كامل1 3 196 08-10-21, 07:04 PM
آخر رد: خالد كامل1
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 228 05-10-21, 11:14 AM
آخر رد: ابو نور الهدى
  [سؤال] طريقه تسريع build started in vb.net 2010 ahmedramzyaish 0 128 23-09-21, 11:49 AM
آخر رد: ahmedramzyaish
  منع المستخدم من ادخال ارقام فى مربع النص في فيجوال بيسك دوت نت ابو نور الهدى 2 261 09-09-21, 06:17 PM
آخر رد: ابو نور الهدى
  طريقه صنع مشغل للقنوات بالفلاش بلاير بالفيجوال بيسك | الرجاء الرد olordhakem20@gmail.com 1 331 28-06-21, 08:00 PM
آخر رد: masport tv
  هل من طريقه بسسيطه لتصدير بيانات فى فورم بالادوات الى PDF خالد كامل1 0 306 19-06-21, 08:20 AM
آخر رد: خالد كامل1
  احبتى اريد طريقه سهله لطباعه لوجو شركه الى جميع تقارير الكريستال ريبورت فى مشروع فيجو خالد كامل1 0 405 19-06-21, 08:11 AM
آخر رد: خالد كامل1
  كود منع ادخال ارقام او حروف داخل التيكست بوكس ابو نور الهدى 2 631 01-05-21, 06:15 AM
آخر رد: أبووسم
  توليد ارقام باركود عشوائية muaamar 1 479 16-03-21, 01:21 AM
آخر رد: Bibo2030

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


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