دالة تضع رقم عشوائى مكون من 6 أرقام داخل نص

السلام عليكم

جرب التالي :

 Dim rnd As New System.Random()

Me.lblRandom.Text = _
CInt(rnd.Next(1, 11)) 'Random form 1 To 10

ضع بدل الواحد 100000 و بدل الرقم 11 الرقم 899999 و الله أعلم

يمكن كذلك عن طريق الوظيفة . Rnd شاهد التالي:

 lblRandom.Text = CInt(Int((899999 * Rnd()) + 100000))

الفرق بين الدالتين هو ان Rnd تنتهي بالرقم المسند لها كحد, مع شمولية هذا الرقم

يعني لو اننا حددنا لها ان تبدء من 1 الى 10 سيكون الرقم 10 ضمن الارقام العشوائية التي ستختارها الدالة,

بينما System.Random() لا تشمل الرقم المسند لها و تأخذ الذي اصغر منه برقم

مثلاً لو اننا حددنا لها ان تبدء من 1 الى 10 سيكون الرقم عشرة غير متضمن ضمن الارقام العشوائية التي ستختارها الدالة

اي ستختار الدالة من الرقم 1 الى الرقم 9

بالتوفيق إن شاء الله.

شكرا صديقى بل شكرا أخى أنت حقا رائع

يا أجمل منتدى وأجمل أصدقاء ربنا معاكم ومع الامة الإسلامية أمين