تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الارقام العشوائية بدون تكرار
#1
السلام عليكم ورحمة الله وبركاته

كل المبرمجين تعرف الفئة Random التي تتيح عمل ارقام عشوائية حسب الاختيار ولكن هل يمكن حصر الارقام وبدون تكرار طبعا انا اقصد لسرعة الاداة وليس مجرد كود كما في مثالي الذي عملته
حيث قمت بتصميم الكود يضيف رقم عشوائي غير مكرر على اللست بوكس
لكن المشكلة هي المسج بوكس الي في النهاية الكود شغال بدون مشكلة لكن الارقام الي تتكرر تبطئ العملية اكيد السرعة مو ملاحظه لكن عند افضل اداة للبرنامج تفرق السرعة لدي حتى لو كانت اجزاء من الثانية

وشكرا



كود :
Public Class Form1

   Dim rand As New Random
   Dim Nr As Integer = 0

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Nr = 0
       Do Until ListBox1.Items.Count = 1000
           Dim n As Integer = rand.Next(0, 1001)
           If Not ListBox1.Items.Contains(n) Then
               ListBox1.Items.Add(n)
           Else
               Nr += 1
           End If
       Loop
       MsgBox(Nr & " عدد مرات تكرار الارقام")
   End Sub
End Class
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  الارقام بالعربي سمير1404 9 176 02-05-20, 01:20 AM
آخر رد: سمير1404
  تشغيل قاعدة بيانات sql مع vb.net بدون تحميل برنامج SQL SERVER DR.YASER 7 193 30-04-20, 10:39 PM
آخر رد: aljzazy
  جلب الارقام بالترتيب فى الليست بوكس ابو روضة 5 199 15-04-20, 03:54 AM
آخر رد: ابراهيم ايبو
  [VB.NET] عدم تكرار بيانات كومبوبوكس داخل الداتا جريد فيو عاشق الرسول 3 170 13-04-20, 09:09 AM
آخر رد: عاشق الرسول
  [VB.NET] هل يمكن طباعة rdlc بدون استخدام dataadapter tarek 0 102 18-03-20, 07:41 AM
آخر رد: tarek
  تكرار خانة في قاعدة البيانات SABER_ZINOUBI 0 118 16-03-20, 02:26 PM
آخر رد: SABER_ZINOUBI
  [سؤال] برنامج تشفير بدون سيريل habamix 2 498 12-03-20, 05:39 PM
آخر رد: fafasf
  سؤال حول إستخراج نوع صورة فقط بدون الإسم : مثال (JPG.) Al Wilaya 3 356 02-02-20, 05:49 PM
آخر رد: alsalamoni
  التعامل مع الارقام في الكرستال ريبورت DOX.1 1 241 14-01-20, 02:37 AM
آخر رد: DOX.1
  ماهي طريقة الطباعة مباشرة من الكريستال ريبورت بدون فتحه جيولوجي مبتدئ 2 280 10-01-20, 01:47 AM
آخر رد: جيولوجي مبتدئ

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


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