تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
توزيع اشخاص علي فرق بشكل عشوائي - مهم جدا
#1
[COLOR="#696969"]السلام عليكم ورحمة الله وبركاته

اخواني انا عندي مشروعي لازم اسلمه يوم السبت القادم وهو برنامج يوزع اللاعبين على الفرق الان انا عندي الاعضاء وموجودين في اداة ليست فيو
الان اريد توزيعهم علي الفرق ،،، يعني مثلا ،،
الدفاع 32 شخص اريد توزيعه على 8 فرق .... اذا كل فرقه تاخذ 4 اشخاص ،،،، وهذه صور توضيحيه للمشروع

[ATTACH=CONFIG]1809[/ATTACH]

[ATTACH=CONFIG]1810[/ATTACH]

بما ان المرفقات الصور فيه غير واضحه فهذا روابط لها اخرى

http://im31.gulfup.com/yW1L3.png

http://im31.gulfup.com/JvtTM.png



[b]الان تحميل المشروع كامل من المرفقات
[/COLOR]
[/b]


الملفات المرفقة صورة/صور
       

.zip   FootBall School.zip (الحجم : 2.62 م ب / التحميلات : 109)
الرد }}}
تم الشكر بواسطة:
#2
هل من رد ؟
الرد }}}
تم الشكر بواسطة:
#3
Up up up up
الرد }}}
تم الشكر بواسطة:
#4
يا اخوان وين الدعم Sad
الرد }}}
تم الشكر بواسطة:
#5
اخواني وجدت كود نقل من ListView الى ListView اخر ممكن يساعدنا لكن اريده عندما ينقل ليس ل ListView واحدة فقط بل اكثر من وحده بشكل عشوائي
فمثلا انا املك ثمانية من اداة ListView وعندي 32 اسم اريد توزيعه على الثمانية يصبح لكل اداة اربعة اسماء وبشكل عشوائي كيف ذلك ؟؟

كود :
Dim Items(ListView1.Items.Count - 1) As ListViewItem
        For i As Integer = 0 To ListView1.Items.Count - 1
            Items(i) = CType(ListView1.Items(i).Clone, ListViewItem)
        Next
        ListView2.Items.AddRange(Items)
الرد }}}
تم الشكر بواسطة:
#6
[COLOR="#800000"]السلام عليكم

اخي الكريم كفكرة اقترح عليك ان تجعل الاسماء في مصفوفة ومن ثم استخدم كائن الRandom لاخذ 4index بشكل عشوائي ومن المصفوفة ومن ثم توزيع قيم كل 4Index الى listview[/COLOR]
الرد }}}
تم الشكر بواسطة:
#7
تفضل اخى الكريم
كود :
Dim lstgrup As List(Of ListView) = {ListView1, ListView2, ListView3, ListView4, ListView5, ListView6, ListView7, ListView8}.ToList
        Dim Items(ListView9.Items.Count - 1) As ListViewItem
        Dim b As Integer = 0
        Do
            For s As Integer = 0 To lstgrup.Count - 1
                Items(b) = CType(ListView9.Items(b).Clone, ListViewItem)
                lstgrup(s).Items.Add(Items(b))
                b += 1
            Next
        Loop Until b = ListView9.Items.Count
الرد }}}
تم الشكر بواسطة:
#8
[b][COLOR="#FF0000"]صراحة تحطمت انه لم احد يرد على الموضوع ..
تسلم ويعطيك الف الف الف عافية ما قصرت .. :o[/COLOR]
[/b]

لكن في شئ محيرني كيف قدرت تخليه يقسم على اربعه؟ لاني اريد تقسيم خانة الهجوم لكل ليست بوك لاعبين فقط .. مافهمت الكود ؟
الرد }}}
تم الشكر بواسطة:
#9
؟؟؟؟؟؟؟؟؟؟؟
الرد }}}
تم الشكر بواسطة:
#10
السلام عليكم ورحمة الله وبركاته


في المرفقات مثال بطريقتين:
1: توزيع عشوائي آلي.
2: توزيع يدوي (بالسحب والاسقاط).

مع امكانية نقل اللاعبين بين الفرق بالسحب والاسقاط في كلا الطريقتين.

وأترك لك كيفية حفظ الفرق في قاعدة البيانات.




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


الملفات المرفقة
.rar   FootBall School-02.rar (الحجم : 849.31 ك ب / التحميلات : 163)
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart اقدم لكم هدية تصفح منتدى vb4arb.com بشكل أفضل من قبل مع ( vb4arb Code Highlighter ) عبدالله الدوسري 5 1,718 24-01-24, 10:31 PM
آخر رد: annagui
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
  [سؤال] توزيع الارقام على أكثر من تكست بوكس أبووسم 11 692 17-11-23, 12:04 AM
آخر رد: أبووسم
Rainbow [كود] معرفه حجم كل المجلدات في القرص C بشكل واضح محمد مسافر 7 409 10-09-23, 01:56 AM
آخر رد: أبو خالد الشكري
  هل ممكن اجعل عناصر ال LISTBOX بشكل افقي ismaeel 0 380 01-05-23, 11:26 PM
آخر رد: ismaeel
Rainbow [كود] قراءه العدد بشكل صحيح من قاعده البيانات اكسس محمد مسافر 13 1,166 27-03-23, 10:48 PM
آخر رد: sanyor77
  [vb6.0] مساعدة في تثبت الفيجول بيسك بشكل صحيح ودمجه مع الكريستل ريبورت نورالدين محمد الغذيفي 0 384 14-03-23, 07:29 PM
آخر رد: نورالدين محمد الغذيفي
  [سؤال] الخصم من راتب الموظف بشكل تلقائي نهاية كل شهر ... Aisha fa 1 522 09-11-22, 10:30 PM
آخر رد: Amir_Alzubidy
Wink التعديل على كود استدعاء بيانات الصنف بشكل متسلسل momani33 3 740 12-09-22, 09:00 PM
آخر رد: Taha Okla
  [سؤال] * [تم الحل] * المحاولة الثانية و اللتي باءت بالفشل حول تقسيم ملف بشكل دقيق سعود 8 1,031 27-08-22, 07:41 AM
آخر رد: سعود

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


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