تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اختيار عدد من العناصر من لست بوكس عشوائيا
#1
السادة الافاضل

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

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

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

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


الملفات المرفقة
.rar   RandomCoiceFromList.rar (الحجم : 40.51 ك ب / التحميلات : 26)
الرد }}}}
تم الشكر بواسطة:
#3
شكرا علي سرعة الرد
لكن

الاحظ ان العدد احيانا يقل عن العدد المطلوب ابضا
غالبا بتاع العنصر المتشابه ولكنه حذف
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

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

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 

موفق ان شاءالله
الرد }}}}
تم الشكر بواسطة:
#5
شكرا جربت تعؤئة اللستة 1 بالكود ثم تفريغ اللستة 2 ثم التعبئة ونجحت الحمد لله


ولكن لو فيه حلول افضل برجاء الرد
الرد }}}}
تم الشكر بواسطة:
#6

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






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







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


الملفات المرفقة
.rar   Range Random-01.rar (الحجم : 84.79 ك ب / التحميلات : 21)
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#7
واضح انكم عباقرة في الافكار البرمجية

ربنا يزيدكم

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

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

هذا الموضوع مهم جدا لي
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

وضح أكثر لو سمحت وبالفصحى لكي يفهم الجميع بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#9
هناك اسماء في اللستة الاولي
اريد ان اختار العنصر رقم 2 ، 3 ، 5 ثم اضافتهم الي اللستة 2

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

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

أخي العزيز استخدم نفس الكود أعلاه فهو يؤدي المطلوب
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اداة اختيار الملفات محمد بن عطية 2 65 12-01-17, 06:01 PM
آخر رد: مساعدة
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 137 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 409 04-01-17, 01:12 AM
آخر رد: Namer
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 139 31-12-16, 07:35 PM
آخر رد: مساعدة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,311 27-12-16, 01:25 PM
آخر رد: Basil Abdallah
  [كود] كود وضع رابط WebBrowser في التكيست بوكس hassan 2 511 21-12-16, 02:00 PM
آخر رد: Basil Abdallah
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 240 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
  الحذف من قاعدة البيانات بدلات تشيك بوكس في داتا جريدفيو makky 2 137 08-12-16, 11:16 AM
آخر رد: superwoofer
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 15 293 07-12-16, 09:50 PM
آخر رد: ابراهيم النعيمي
  ازاى اما اكتب قيمة فى التكست بوكس يتاكد انها مش موجودة فى الداتا جريدفيو araxis 1 116 07-12-16, 11:22 AM
آخر رد: ممدوح الخطيب

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


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