تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Random من listbox
#1
اريد انشاء Random list من listbox بدون تكرار نفس item هذا هو الكود لاكن لايعمل يتم التكرار
كود :
       Dim r As New Random
       For i = 0 To 10
           If Not ListBox3.Items.Contains((ListBox2.Items(r.Next(0, ListBox2.Items.Count)) Then
               ListBox3.Items.Add(ListBox2.Items(r.Next(0, ListBox2.Items.Count)))
           End If
       Next
الرد
تم الشكر بواسطة:
#2

.rar   WindowsApplication1.rar (الحجم : 65.22 ك ب / التحميلات : 34)
الرد
تم الشكر بواسطة: Mohamed20 , Mohamed20
#3
سؤال هل يمكن العمل على الفئات مثل يوجد هذه المجموعة

vb4arb2
vb4arb5
vb4arb+5%
vb1
vb2
vb3
vb4
vv1
vv2
vv3
هنا يوجد ثلاث مجموعات المشكلة انى اريد ان يدف من كل مجموعة حاجة وحدة بمعنى انه لا يضيف فى random من نفس المجموعة غير مرة واحدة

الناتج
vb4arb5
vb4
vv1

وليس
vb4arb5
vb4
vb4arb1
vv1
vb1
الرد
تم الشكر بواسطة:
#4
السلام عليكم

المثال غير مفهوم،
ياليت تراجع بنفسك المثال التي أنت وضعته من حيث العناصر الأساسية وعناصر النتيجة.
الرد
تم الشكر بواسطة: Mohamed20
#5

.rar   WindowsApplication1.rar (الحجم : 65.79 ك ب / التحميلات : 26)
لو كانت المجموعات مرتبة، وتعرف بداية و نهاية كل مجموعة ممكن ينفع معاك البرنامج ده
الرد
تم الشكر بواسطة: Mohamed20
#6
(31-01-17, 10:05 AM)مساعدة كتب : السلام عليكم

المثال غير مفهوم،
ياليت تراجع بنفسك المثال التي أنت وضعته من حيث العناصر الأساسية وعناصر النتيجة.

(31-01-17, 12:13 PM)noway كتب : لو كانت المجموعات مرتبة، وتعرف بداية و نهاية كل مجموعة ممكن ينفع معاك البرنامج ده
فى بعد الوقت يتم اضافة نفس item مرتين
هذا مثال عن كيف اضافة المجوعات


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 64.16 ك ب / التحميلات : 32)
الرد
تم الشكر بواسطة:
#7
ما المقصود بالمجموعة؟

أرجو التوضيح لإيجاد الكود المناسب
الرد
تم الشكر بواسطة:
#8
(31-01-17, 02:52 PM)Mohamed20 كتب :
(31-01-17, 10:05 AM)مساعدة كتب : السلام عليكم

المثال غير مفهوم،
ياليت تراجع بنفسك المثال التي أنت وضعته من حيث العناصر الأساسية وعناصر النتيجة.

(31-01-17, 12:13 PM)noway كتب : لو كانت المجموعات مرتبة، وتعرف بداية و نهاية كل مجموعة ممكن ينفع معاك البرنامج ده
فى بعد الوقت يتم اضافة نفس item مرتين
هذا مثال عن كيف اضافة المجوعات
انت معدلتش على بداية و نهاية كل مجموعة
بداية و نهاية كل مجموعة انت المفروض بتغيرها على حسب مجموعتك
التكرار نتج عن عدم تعديلك لبداية و نهاية كل مجموعة اللى هما (a,b) على حسب list item

.rar   WindowsApplication1.rar (الحجم : 76.11 ك ب / التحميلات : 29) تم تعديلها على حسب بيانات list اللى انت بعتها
الرد
تم الشكر بواسطة: Mohamed20
#9
جربي الكود التالي في المشروع المرفق في المشاركة رقم 6#
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

   ' افراغ أداة النتائج
   ListBox2.Items.Clear()

   ' قراءة جميع العناصر
   Dim arr() As String = (From x As String In ListBox1.Items Distinct).ToArray

   ' قراءة انواع المجموعات
   Dim grps() As String = (From x As String In arr Select x.Split(".")(1) Distinct).ToArray

   Dim rnd As New Random ' استخدام كلاس العشوائيات
   ' التقاط عنصر عشوائي واحد من كل مجموعة وعرضها في أداة النتائج
   For Each itm In grps

       ' قراءة عناصر المجموعة
       Dim grp() As String = (From x As String In arr Where x.Split(".")(1).Equals(itm)).ToArray

       ' التقاط عنصر عشوائي واحد من المجموعة
       Dim v As String = grp(rnd.Next(0, grp.Length))

       ' إضافة العنصر في أداة النتائج
       ListBox2.Items.Add(v)

   Next

End Sub

حسب ما فهمته من المشروع المرفق في المشاركة رقم 6# أن المجموعة هي ما بعد النقطة لكل عنصر فتكون المجموعات:
Fs
Ee
Ae
De
الرد
تم الشكر بواسطة: noway
#10
(31-01-17, 03:28 PM)noway كتب :
(31-01-17, 02:52 PM)Mohamed20 كتب :
(31-01-17, 10:05 AM)مساعدة كتب : السلام عليكم

المثال غير مفهوم،
ياليت تراجع بنفسك المثال التي أنت وضعته من حيث العناصر الأساسية وعناصر النتيجة.

(31-01-17, 12:13 PM)noway كتب : لو كانت المجموعات مرتبة، وتعرف بداية و نهاية كل مجموعة ممكن ينفع معاك البرنامج ده
فى بعد الوقت يتم اضافة نفس item مرتين
هذا مثال عن كيف اضافة المجوعات
انت معدلتش على بداية و نهاية كل مجموعة
بداية و نهاية كل مجموعة انت المفروض بتغيرها على حسب مجموعتك
التكرار نتج عن عدم تعديلك لبداية و نهاية كل مجموعة اللى هما (a,b) على حسب list item
تم تعديلها على حسب بيانات list اللى انت بعتها
جزاك الله خير
(31-01-17, 04:18 PM)مساعدة كتب : جربي الكود التالي في المشروع المرفق في المشاركة رقم 6#
كود :
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

   ' افراغ أداة النتائج
   ListBox2.Items.Clear()

   ' قراءة جميع العناصر
   Dim arr() As String = (From x As String In ListBox1.Items Distinct).ToArray

   ' قراءة انواع المجموعات
   Dim grps() As String = (From x As String In arr Select x.Split(".")(1) Distinct).ToArray

   Dim rnd As New Random ' استخدام كلاس العشوائيات
   ' التقاط عنصر عشوائي واحد من كل مجموعة وعرضها في أداة النتائج
   For Each itm In grps

       ' قراءة عناصر المجموعة
       Dim grp() As String = (From x As String In arr Where x.Split(".")(1).Equals(itm)).ToArray

       ' التقاط عنصر عشوائي واحد من المجموعة
       Dim v As String = grp(rnd.Next(0, grp.Length))

       ' إضافة العنصر في أداة النتائج
       ListBox2.Items.Add(v)

   Next

End Sub

حسب ما فهمته من المشروع المرفق في المشاركة رقم 6# أن المجموعة هي ما بعد النقطة لكل عنصر فتكون المجموعات:
Fs
Ee
Ae
De

جزاك الله خير
تمام الكود يعمل تمام اذا كانت المجموعة كلاتى لاكن عن اضافة هذه المجموعة
1L.Water+1%
2L.Water+5%
3L.Water+15%
لم يعمل يتم اضافة نفس المجموعة كاملة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile [VB.NET] مشكلتي مع البحث في listbox rizakflash8 9 174 24-09-18, 02:13 PM
آخر رد: elgokr
  [سؤال] كيفيه عمل split لملف من نوع تيكست وتصديره داخل LISTBOX dametucorazon 5 92 02-09-18, 10:24 AM
آخر رد: elgokr
  طريقة حساب عدد الاسماء الموجودة في listbox ahmedmansour 1 90 30-07-18, 11:33 PM
آخر رد: elgokr
  كود تحويل ما في ListBox ل TextBox YousefOkasha 6 228 24-07-18, 02:49 PM
آخر رد: معاذ العامري
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 151 08-07-18, 03:05 AM
آخر رد: elgokr
  [مثال] كيفيه عمل Random Text للفورم YousefOkasha 5 188 21-06-18, 02:32 PM
آخر رد: YousefOkasha
  التكرار في Listbox عن طريق Regex aftfm 22 2,919 03-06-18, 06:14 PM
آخر رد: mrnooo2000
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 3 192 06-05-18, 12:53 PM
آخر رد: viv
  طلب بخصوص حساب عدد الصفوف في listbox ahmedfa71 2 221 08-03-18, 05:11 PM
آخر رد: ahmedfa71
  [VB.NET] كيف انقل محتويات listbox ...... e-coder 1 102 27-02-18, 09:20 AM
آخر رد: e-coder

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


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