منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اختيار عدد من العناصر من لست بوكس عشوائيا - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اختيار عدد من العناصر من لست بوكس عشوائيا (/showthread.php?tid=8974)



اختيار عدد من العناصر من لست بوكس عشوائيا - atefkhalf2004 - 21-05-13

السادة الافاضل

لدي عناصر في لستة
ارجو اختيار مجموعة من الاسماء عشوائيا وعرضهم في لستة اخري

استخدمت rnd و int و randomise
لكن واجهتني مشكلة وهي في مرة من المرات لاحظت تكرار العنصر المختار
اي لو اخترت 3 اسماء الاحظ تكرار شخص مرتين في احد الاختيارات \شكرا


اختيار عدد من العناصر من لست بوكس عشوائيا - Sajad - 21-05-13

السلام عليكم

تفضل المثال في المرفقات

موفق ان شاءالله



اختيار عدد من العناصر من لست بوكس عشوائيا - atefkhalf2004 - 21-05-13

شكرا علي سرعة الرد
لكن

الاحظ ان العدد احيانا يقل عن العدد المطلوب ابضا
غالبا بتاع العنصر المتشابه ولكنه حذف


اختيار عدد من العناصر من لست بوكس عشوائيا - Sajad - 21-05-13

السلام عليكم

أخي العزيز استبدل الكود بهذا:

PHP كود :
ListBox2.Items.Clear()
        
Dim l As New List(Of Object)
        For 
Each item As String In ListBox1.Items.ToString()
            
l.Add(item)
        
Next
        Dim x 
As Integer CInt(TextBox1.Text)
        
Dim index As Integer
        Dim s 
As String
        Dim r 
As New Random()
        While (
0)
            
index r.Next(ListBox1.Items.Count)
            
ListBox1.Items(index).ToString()
            If 
Not ListBox2.Items.Contains(sThen
                ListBox2
.Items.Add(s)
                
l.RemoveAt(index)
                
1
            End 
If
        
End While 

موفق ان شاءالله



اختيار عدد من العناصر من لست بوكس عشوائيا - atefkhalf2004 - 21-05-13

شكرا جربت تعؤئة اللستة 1 بالكود ثم تفريغ اللستة 2 ثم التعبئة ونجحت الحمد لله


ولكن لو فيه حلول افضل برجاء الرد


اختيار عدد من العناصر من لست بوكس عشوائيا - @@أبورائد@@ - 21-05-13


السلام عليكم ورحمة الله وبركاته






جرب هذا المثال







السلام عليكم ورحمة الله وبركاته



اختيار عدد من العناصر من لست بوكس عشوائيا - atefkhalf2004 - 22-05-13

واضح انكم عباقرة في الافكار البرمجية

ربنا يزيدكم

كيف يمكن اخنيار عناصر وليس عنصر من اللستة الاولي واضافتها الي اللستة الثانية

وفي حالة وجود عنصر من هذه العناصر في اللستة الثانية لا يتم اضافته

هذا الموضوع مهم جدا لي


اختيار عدد من العناصر من لست بوكس عشوائيا - Sajad - 22-05-13

السلام عليكم

وضح أكثر لو سمحت وبالفصحى لكي يفهم الجميع بارك الله فيك



اختيار عدد من العناصر من لست بوكس عشوائيا - atefkhalf2004 - 22-05-13

هناك اسماء في اللستة الاولي
اريد ان اختار العنصر رقم 2 ، 3 ، 5 ثم اضافتهم الي اللستة 2

وفي حالة وجود اي عنصر من العناصر السابقة في اللستة 2 لا يتم اضافتة

اي تحديث بيانات اللستة 2 من اللستة 1 بشرط عدم التكرار في اللستة 2
شكر
وبرجاء الرد علي تغيير اسم الحقل بالكود


اختيار عدد من العناصر من لست بوكس عشوائيا - Sajad - 22-05-13

السلام عليكم

أخي العزيز استخدم نفس الكود أعلاه فهو يؤدي المطلوب