+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] الارقام العشوائية بدون تكرار (/showthread.php?tid=31738)
الارقام العشوائية بدون تكرار - 3boody - 12-10-19
السلام عليكم ورحمة الله وبركاته
كل المبرمجين تعرف الفئة 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