تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اذا امكن احدكم من مساعدتي اريد مثل الصوره لمنع تكرار الاسم mostafa12 2 149 15-10-19, 05:20 AM
آخر رد: mostafa12
Exclamation [سؤال] اريد انشاء كريستال ريبورت بدون قاعدة بيانات NewUser 3 178 13-09-19, 02:44 AM
آخر رد: Rabeea Qbaha
  منع تكرار البيانات المدخلة على قاعدة البيانات الرائد 11 383 01-09-19, 02:46 PM
آخر رد: الرائد
  محتاج كود او مثال لبرنامج تكرار السطر Mohamed Magdy 7 247 16-08-19, 01:14 AM
آخر رد: Mohamed Magdy
Question كيفية التخلص من تكرار تخزين البيانات الرائد 13 600 14-08-19, 12:25 PM
آخر رد: الرائد
  for loop تكرار الادوات dasktop 3 230 13-07-19, 09:10 PM
آخر رد: ابراهيم ايبو
  [سؤال] برنامج تشفير بدون سيريل habamix 1 241 21-06-19, 06:45 PM
آخر رد: elgokr
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 14 8,520 16-06-19, 01:59 PM
آخر رد: elgokr
  الارقام dasktop 3 224 14-06-19, 02:13 PM
آخر رد: elgokr
  تحميل صفحة انترنت بدون الويب براوزر ابو روضة 0 217 05-05-19, 06:04 PM
آخر رد: ابو روضة

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


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