[Taha Okla]

في البداية عليك معرفة عدة عناصر  :

عدد المجموعات  - أو قدد عناصر كل مجموعة :
إذا كنت تريد تقسيمه بحسب عدد المجموعات 

فيكون لديك عدة متغيرات 

(مجموع العناصر الكلي) تقسيم (عدد عناصر المجموعة الواحدة)  =  عدد المجموعات.
في التقسيم هنا نستخدم الاشارة (BackSlash)  لأنها تعطي نتيجة صحيحة بدون فواصل  يعني الاشارة (\).

بعد ذلك تحسب الباقي وذلك من خلال الدالة (Mod) ..
(مجموع العناصر الكلي) Mod (عدد عناصر المجموعة الواحدة)  =  باقي القسمة .
فهذه تعطيك الرقم الصحيح أيضاً والذي لا يقبل القسمة على الرقم المقسوم عليه ..

=========================================

وإذا كان لديك عدد عناصر المجموعة الواحدة معلوم استخدم الكود التالي : 

كود :

       ListBox2.Items.Clear()

       '  Val(TextBox2.Text)    هي عدد عناصر المجموعة الواحدة

       Dim N1 As Integer = ListBox1.Items.Count \ Val(TextBox2.Text)  ' عدد المجموعات
       Dim M1 As Integer = ListBox1.Items.Count Mod Val(TextBox2.Text)

       For i = 1 To N1
           ListBox2.Items.Add(TextBox2.Text)
       Next
       ListBox2.Items.Add(M1)

إذا كان لديك عدد المجموعات معلوم استخدم التالي  لمعرفة عدد عناصر كل مجموعة :

كود :

       ListBox2.Items.Clear()

       '  Val(TextBox2.Text)    هي عدد المجموعات

       Dim N1 As Integer = ListBox1.Items.Count \ Val(TextBox2.Text)  ' عدد عناصر المجموعة الواحدة
       Dim M1 As Integer = ListBox1.Items.Count Mod N1

       For i = 1 To Val(TextBox2.Text)
           ListBox2.Items.Add(N1)
       Next
       ListBox2.Items.Add(M1)

الباقي عليك و هو فرز المجموعات بحسب الحلقة والتي بات معلوم لديك قيمة عناصرها..