+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] فرز أسماء من ليستا إلى مربع نص (/showthread.php?tid=29679)
فرز أسماء من ليستا إلى مربع نص - السندبااد - 24-05-19
السلام عليكم ورحمة الله وبركاته
تقبل الله صيامكم وقيامكم وجعلنا وإياكم من عتقاء رمضان، وبعد:
باختصار:
عندي 50 اسماً أريد بشكل عشوائي أن أضع كل 5 أشخاص في فريق
هذه الصورة توضح ما أريده:
[attachment=21550]
1- الأسماء يجب أن تخرج بشكل عشوائي في كل مرة أنقر فيها على الزر.
2- في حال كان هنالك ياقٍ بعد تقسيم عدد الأسماء في الليستا على (عدد أفراد الفريق) فإننا نهمل الأسماء المتبقية؛ مثلاً:
عدد الأسماء في الليستا هو 25، واحترنا عدد أفراد الفريق 3
تقبل الله صيامكم وقيامكم وجعلنا وإياكم من عتقاء رمضان، وبعد:
باختصار:
عندي 50 اسماً أريد بشكل عشوائي أن أضع كل 5 أشخاص في فريق
هذه الصورة توضح ما أريده:
[attachment=21550]
1- الأسماء يجب أن تخرج بشكل عشوائي في كل مرة أنقر فيها على الزر.
2- في حال كان هنالك ياقٍ بعد تقسيم عدد الأسماء في الليستا على (عدد أفراد الفريق) فإننا نهمل الأسماء المتبقية؛ مثلاً:
عدد الأسماء في الليستا هو 25، واحترنا عدد أفراد الفريق 3
25 / 3 = 24 إذن الباقي واحد
وهنا نهمل آخر اسم في الليستا، ويتم تقسيم أول 24 اسم فقط
وذلك بوضع كل 3 أشخاص في فريق
الملف بالمرفقات
الملف بالمرفقات
RE: فرز أسماء من ليستا إلى مربع نص - السندبااد - 25-05-19
قمت بعمل محاولة وهي بالمرفقات...
RE: فرز أسماء من ليستا إلى مربع نص - ابراهيم ايبو - 25-05-19
السلام عليكم ورحمة الله وبركاته اخي السندباد
جزاك الله خيرا على مثالك وجعله في ميزان حسناتك
تقبل احتراماتي وتقييمي
من بعد اذنك احببت ان اضيف الى مثالك تعدبلا بسيطا وهو اننا لو اردنا اعادة التوزيغ مرة اخرى دون ان نعيد التشغيل من جديد
حيث وضعت 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 SubRE: فرز أسماء من ليستا إلى مربع نص - حريف برمجة - 25-05-19
وعليكم السلام ورحمة الله وبركاته
ضع هذا السطر بين :
كود :
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 + 1RE: فرز أسماء من ليستا إلى مربع نص - السندبااد - 25-05-19
وعليكم السلام ورحمة الله وبركاته
الأخ ابراهيم ايبو والأخ حريف البرمجة:
جزاكما الله خيراً على هذه الإضافات الرائعة، وأسأل الله تعالى أن يجعلنا وإياكم من عتقاء الشهر الفضيل