+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=21718)
تقسيم الطلاب الي مجموعات - atefkhalf2004 - 15-09-17
السادة الافاضل
لو عندي داتا جريد بها اسماء
م الاسم المحموعة
عايز اقسمهم الي عدد مجموعات بحيث يكون النقص في اخر مجموعة
مثلا
لو العدد 17 وارغب في تقسيمهم الي 3 مجموعات
يكونوا
6 6 5
اي يكون الرقم الظاهر في عمود المجموعة الرقم 1 يظهر امام اول 6 افراد
ثم الرقم 2 امام 6 التالي
ثم الرقم 3 امام اخر 5
شكرا
RE: تقسيم الطلاب الي مجموعات - WAEL ABED - 16-09-17
هتستخدم mod وده بدوره هيجبلك فرق القسمة الى هيكون المجموعه الاخيرة
وشكرا
RE: تقسيم الطلاب الي مجموعات - أبو نوره - 16-09-17
مرحبا اخى
تفضل داله ترسل لها عدد الطلاب وعدد المجموعات وتعيد لك مصفوفه بعدد المجموعات في كل منها عدد طلبتها
PHP كود :
Function Calc(ByVal a As Integer, ByVal b As Integer) As Integer()
Dim c As Integer = a \ b
Dim d As Integer = a Mod b
Dim r(b - 1) As Integer
For i = 0 To b - 1
r(i) = c
Next
For i = 0 To d - 1
r(i) = r(i) + 1
Next
Return r
End Function
PHP كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim rowCount As Integer = Me.DataGridView1.Rows.Count - If(Me.DataGridView1.AllowUserToAddRows, 1, 0)
Dim z = Calc(Val(TextBox1.Text), rowCount)
For i = 0 To z.Count - 1
Me.DataGridView1.Item(2, i).Value = z(i)
Next
End Sub
[attachment=15456]