[Mohamad Anan]

(10-10-21, 01:25 AM)atefkhalf2004 كتب : هذا هو الملف

PHP كود :

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        REM Dim StudentCount As Integer = CDbl(TextBox1.Text)
        Dim StudentCount As Integer = DataGridView1.RowCount - 1
        Dim GlassCount As Integer = CDbl(TextBox2.Text)
        REM ناتج القسمة عدد صحيح
        Dim GroupCount As Integer = Math.Floor(StudentCount / GlassCount)
        REM باقي القسمة
        Dim ADD As Integer = (StudentCount Mod GlassCount)
        Dim Row As Integer = 0
        REM حلقة بعدد الصفوف
        For I As Integer = 1 To GlassCount
            If ADD > 0 Then
                REM لتوزيع باقي القسمة على الصفوف الاولى
                ADD = ADD - 1
                REM حلقة بعدد طلاب الصف
                For II As Integer = 1 To GroupCount + 1
                    DataGridView1.Rows(Row).Cells(2).Value = I
                    REM الانتقال للسطر التالي بالشبكة
                    Row = Row + 1
                Next
            Else
                REM في حال عدم وجود باقي
                For II As Integer = 1 To GroupCount
                    DataGridView1.Rows(Row).Cells(2).Value = I
                    Row = Row + 1
                Next
            End If
        Next
    End Sub