كود توزيع التلاميذ على الفصول

[عبد الفتاح كيرة]

السلام عليكم و كل عام و أنتم بخير

لدى حقل لرقم الفصل  وحقل مجموع الطالب فى السنة السابقة

أرغب فى ملء هذا الحقل حسب النمط التالى بالتتابع

حيث يتم ترتيب مجموع التلاميذ تنازليأ و النمط هو

مثلا 5 فصول

1_2_3_4_5

2_3_4_5_1

3_4_5_1_2

4_5_1_2_3

5_1_2_3_4

وهكذا بحيث تتحقق أكبر نسبة من التوازن بين مجموع المجاميع فى الفصول

كيف يمكن كتابة كود لحلقة تكرار تحقق النمط السابق

وفقكم الله

تم تعديل مايو 27, 2018 بواسطه عبد الفتاح كيرة

[عبد الفتاح كيرة]

رائع جدا

أود أن أنبهك إلى أننى طلبت هذا الكود لتطبيق على حقل فى قاعدة بيانات أكسيس 

ويمكن نقل الكود و تعديله ليعمل على أكسيس

وقد توصلت لهذا الكود لكنه لم يختبر بعد

Do until Rs. Eof

For x = 1 to 5

      For y = 1 to 5

               If x = y then goto skipme

Rs.edit

Rs!classn = I

Rs.update

Rs.movenext

Skipme:

Next I

Next x

Loop

[عبد الفتاح كيرة]

لجميع الإخوة

كود التوزيع حسب النمط السابق

مجرب

لكود بعد تطبيقه بنجاح على أكسيس
Private Sub أمر11_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("q_New_Stu_Tawzee3")
rs.MoveFirst
Do Until rs.EOF
   On Error GoTo 1
    For x = 0 To 5
        For i = 1 To Me.tfasl
            If x = i Then GoTo skipeme
            Debug.Print i, x

        rs.Edit
        rs!CurrFasl = i
        rs.Update
        rs.MoveNext
skipeme:
        Next i
    Next x
Loop
    Me.Requery
    Me.Refresh
    Set rs = Nothing
    Set db = Nothing

1:  End Sub

[kanory]

اشكرك اخي الكريم ... بارك الله فيك

[عبد الفتاح كيرة]

31 دقائق مضت, kanory said:

اشكرك اخي الكريم ... بارك الله فيك

عفوا أخى وفقكم الله

[Mohamohabiza]

بارك الله فيك

[Barna]

جزاك الله خير اخي الفاضل

ولكن هل يمكن وضع مثال للفائدة .... اشكرك مقدما 

[عبد الفتاح كيرة]

إن شاء الله أخى أقرب مما تتوقع

[عبد الفتاح كيرة]

السلام عليكم

تفضل أخى الكريم الكود السريع جدا لتوزيع التلاميذ على حسب عدد الفصول التى تريدها( تختار عدد الفصول )

ستجد ملفين لإصدار أكسيس 2003 و 2007

 

Desktop.rar

[حمدى الظابط]

مثال سهل وبسيط ولكنه كبير علما ووفر مجهود ووقت شكرا ولك تحياتى وودى

[عبد الفتاح كيرة]

1 دقيقه مضت, حمدى الظابط said:

مثال سهل وبسيط ولكنه كبير علما ووفر مجهود ووقت شكرا ولك تحياتى وودى

كان بعيد المنال

لكن الله تعالى وفق إليه

[حمدى الظابط]

طول ما فى اصرار فى نجاح ومفيش مستحيل طول مافى امل وانا بتابع موضوعات حضرتك واذا كنت اطمع فى مساعدتك فى موضوع قد قمت به انت مسبقا وهو جدول الحصص ولكن لا اريد ان اخرج عن عنوان هذا موضوع الممتاز قد احسنت تقبل تحياتى

[عبد الفتاح كيرة]

جدول الحصص عنوان كبير فى عالم البرمجة

و له برنامج عالمى معروف

أما جدول الحصص الخاص بى فشأنه شأن آخر

فهو فقط يستخرج جداول من الجدول الرئيس

مثل

جدول مدرس

جدول فصل

جدول إشراف

عدد حصص مدرس

جدول مادة

إلخ

هذا للتصحيح

وأفضل ما رأيت مشابهة للبرنامج العالمى

برنامج جدول الحصص تصميم أستاذنا بقسم الإكسيل خبور خير حفظه الله

[ولد جدة]

جزاك الله خير اخي الفاضل

 

هل يمكن طبيقه بحسب سعه كل قاعه او فصل يتم تحديدها مسبقا ؟

[عبد الفتاح كيرة]

ليه كده بس 

كنت خلاص بدأت أستطيع النوم و الراحة بعد ما توصلنا لهذا الكود )لا أنسى فضل الأستاذ محمد صالح مع أن الكود مختلف )

لكن إن شاء الله نجد معك ما تريد

هل تريد القاعات متوازنة من حيث الضعيف و المتوسط و الممتاز

أم عدد فقط؟

تم تعديل يونيو 4, 2018 بواسطه عبد الفتاح كيرة

[kanory]

أشكرك أخي @عبد الفتاح كيرة توزيع رائع من شخص رائع ..... بارك الله فيه 

[ولد جدة]

27 دقائق مضت, عبد الفتاح كيرة said:

ليه كده بس 

كنت خلاص بدأت أستطيع النوم و الراحة بعد ما توصلنا لهذا الكود )لا أنسى فضل الأستاذ محمد صالح مع أن الكود مختلف )

لكن إن شاء الله نجد معك ما تريد

هل تريد القاعات متوازنة من حيث الضعيف و المتوسط و الممتاز

أم عدد فقط؟

توزيع القاعات بالصف بعض النظر عن التقدير وبحسب معطيات القاعات وسعتها ۔۔

ولك جزيل الشكر ۔۔

[عبد الفتاح كيرة]

21 دقائق مضت, kanory said:

أشكرك أخي @عبد الفتاح كيرة توزيع رائع من شخص رائع ..... بارك الله فيه 

الله يبارك فيك أستاذى kanory@ 

18 دقائق مضت, ولد جدة said:

توزيع القاعات بالصف بعض النظر عن التقدير وبحسب معطيات القاعات وسعتها ۔۔

ولك جزيل الشكر ۔۔

هل عدد القاعات ثابت؟

عدد القاعات و ليس عدد الطلاب بكل قاعة

تم تعديل يونيو 4, 2018 بواسطه عبد الفتاح كيرة

[ولد جدة]

38 دقائق مضت, عبد الفتاح كيرة said:

الله يبارك فيك أستاذى kanory@ 

هل عدد القاعات ثابت؟

عدد القاعات و ليس عدد الطلاب بكل قاعة

عدد القاعات غير ثابت وممكن تعديله في اي وقت واعاده التوزيع 

[حمدى الظابط]

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

ربط جدول بالوحدة النمطية الموجودة بالنموذج

تم تعديل يونيو 4, 2018 بواسطه حمدى الظابط

[عبد الفتاح كيرة]

الحقيقة

لا

4 ساعات مضت, ولد جدة said:

عدد القاعات غير ثابت وممكن تعديله في اي وقت واعاده التوزيع 

إن شاء الله نجد ما تريد

[عبد الفتاح كيرة]

15 ساعات مضت, ولد جدة said:

عدد القاعات غير ثابت وممكن تعديله في اي وقت واعاده التوزيع 

ععد القاعات غير ثابت

لكن لابد أن هناك حدودا لعدد القاعات بالمبنى

أقصى عدد نقول مثلا 6 قاعات

وهذا الكود جاهز لتوزيع الطلاب على أى عدد من القاعات من 1 - 6

سواء كلها أو بعضها

سأرفع الملف إن شاء الله فى موضوع منفرد لعل أحدا يستفيد منه

الكود

Private Sub أمر11_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim n As Integer
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("q_New_Stu_Tawzee3")
rs.MoveFirst
For i = 1 To Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4) + Val(Me.mh5) + Val(Me.mh6)
   Select Case i
        Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4) + Val(Me.mh5)
                n = 6
            rs.Edit
            rs!CurrFasl = n
            rs.Update
        Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3) + Val(Me.mh4)
            n = 5
            rs.Edit
            rs!CurrFasl = n
            rs.Update
        Case Is > Val(Me.mh1) + Val(Me.mh2) + Val(Me.mh3)
            n = 4
            rs.Edit
            rs!CurrFasl = n
            rs.Update
        Case Is > Val(Me.mh1) + Val(Me.mh2)
            n = 3
            rs.Edit
            rs!CurrFasl = n
            rs.Update
        Case Is > Val(Me.mh1)
            n = 2
            rs.Edit
            rs!CurrFasl = n
            rs.Update
        Case Is <= Val(Me.mh1)
            n = 1
            rs.Edit
            rs!CurrFasl = n
            rs.Update
    End Select
        rs.MoveNext
Next i
Set rs = Nothing
Set db = Nothing
  End Sub

 

17 ساعات مضت, ولد جدة said:

توزيع القاعات بالصف بعض النظر عن التقدير وبحسب معطيات القاعات وسعتها ۔۔

ولك جزيل الشكر ۔۔

طلبك هنا