منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

تقبل الله صيامكم وقيامكم وجعلنا وإياكم من عتقاء رمضان، وبعد:

باختصار:
عندي 50 اسماً أريد بشكل عشوائي أن أضع كل 5 أشخاص في فريق

هذه الصورة توضح ما أريده:
[attachment=21550]

1- الأسماء يجب أن تخرج بشكل عشوائي في كل مرة أنقر فيها على الزر.
2- في حال كان هنالك ياقٍ بعد تقسيم عدد الأسماء في الليستا على (عدد أفراد الفريق) فإننا نهمل الأسماء المتبقية؛ مثلاً:
عدد الأسماء في الليستا هو 25، واحترنا عدد أفراد الفريق 3

25 / 3 = 24 إذن الباقي واحد

وهنا نهمل آخر اسم في الليستا، ويتم تقسيم أول 24 اسم فقط

وذلك بوضع كل 3 أشخاص في فريق

الملف بالمرفقات

قمت بعمل محاولة وهي بالمرفقات...

السلام عليكم ورحمة الله وبركاته اخي السندباد
جزاك الله خيرا على مثالك وجعله في ميزان حسناتك
تقبل احتراماتي وتقييمي
من بعد اذنك احببت ان اضيف الى مثالك تعدبلا بسيطا وهو اننا لو اردنا اعادة التوزيغ مرة اخرى دون ان نعيد التشغيل من جديد
حيث وضعت Buttom باسم Reset للتصفير مهمته اعادة ListName الى ماكانت عليه ونبدأ مرة أخرى توزيعا جديدا
وهذه هي الاكواد المضافة
دمت بكل خير رمضان كريم

كود :

Dim kk As String

    Dim MM() As String

    Sub CopyNameToArr()

        For Each item As String In Me.ListName.Items

            kk += item & "-"

        Next

        MM = kk.Split("-")

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        CopyNameToArr()

    End Sub

    Private Sub Btn_Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Reset.Click

        ListName.Items.Clear()

        For Each itm As String In MM

            ListName.Items.Add(itm)

        Next

    End Sub

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

ضع هذا السطر بين :

كود :

                   If ListName.Items.Count < ComboBoxNum.Text Then Exit For

كود :

 i = 0

                    TextBoxTeam.Text = TextBoxTeam.Text & vbNewLine & vbNewLine & "الفريق" & s + 1

يصبح هكذا :

كود :

i = 0

                    If ListName.Items.Count < ComboBoxNum.Text Then Exit For

                    TextBoxTeam.Text = TextBoxTeam.Text & vbNewLine & vbNewLine & "الفريق" & s + 1

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

الأخ ابراهيم ايبو والأخ حريف البرمجة:

جزاكما الله خيراً على هذه الإضافات الرائعة، وأسأل الله تعالى أن يجعلنا وإياكم من عتقاء الشهر الفضيل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السندبااد

السندبااد

ابراهيم ايبو

حريف برمجة

السندبااد