[السندبااد]

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

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

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

هذه الصورة توضح ما أريده:
   

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

[السندبااد]

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

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

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