تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مطلوب المساعدة في عمل خاصية ((تقسيم الإمتحان)) إلى فترات
#1
أقوم بعمل برنامج إختبارات الطلاب في جامعة ..
نافذة الإختبار فيها عداد الزمن .. ومجموعة الأسئلة تقوم بالمرور عليهم واحدا تلو الآخر عبر زر ((التالي)) والأسئلة مخزنة في قاعدة بيانات ..
-
بعد الإنتهاء طلبوا مني إضافة خاصية ((تقسيم الإمتحان)) إلى فترات .. مثلا عند إدخال معلومات الإمتحان يقوم المدخل بإدخال الزمن وعدد الأسئلة والفترات .. 
وعندما يقوم بالطالب بالدخول إلى فورم الإمتحان يجد الزمن مقسوم على عدد الفترات .. وكذلك تعرض له الأسئلة مقسمة على فترات .. مثلا لو الأسئلة كلها 20 وعدد الفترات 3 تعرض الفترة الأولى 7 أسئلة والثانية 7 والثالثة 6 ..
-
حاليا مشكلتي في الأرقام التي لا تقبل القسمة .. الزمن مثلا عدد الدقائق لا أريد تقسيمه لكسور وثواني .. وعدد الأسئلة لا يمكن تقسيمه تلقائيا بالطريقة أعلاه ..
-
هل يوجد لدى المبرمجين فكرة ممتازة أطبقها فورا .. لأني بصراحة تعبت وما عرفت كيف أحلها وأي حل جبته حسيته ما يصلح أو غير عملي ..
الرد
تم الشكر بواسطة:
#2
لنفرض عدد الأسئلة في تكست اسمه c1

وعدد الفترات في تكست اسمه c2


مثال لو عدد الأسئلة 9 وعدد الفترات 3 ليس هنا اي مشكلة كل فترة تاخذ 3 أسئلة

طيب لو عدد الأسئلة 10 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 4
الفترة الثانية = 3
الفترة الثالثة = 3

طيب لو عدد الأسئلة 11 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 4
الفترة الثانية = 4
الفترة الثالثة = 3

طيب لو عدد الأسئلة 2 وعدد الفترات 3 هنا تكون العملية كالتالي :
الفترة الأولى = 1
الفترة الثانية = 1
الفترة الثالثة = 0

وهذا هو الكود

كود :
 'عدد الأسئلة في كل فترة
       Dim q As Integer = c1.Text \ c2.Text

       'ضرب عدد الأسئلة الناتج بعد عملية القسمة في عدد الفترات لمعرفة هل عدد الأسئلة الموجود بعد عملية القسمة مطابق لعدد الأسئلة الفعلي
       Dim f As Integer = q * c2.Text

       'معرفة عدد الأسئلة الساقطة بعد عملية القسمة في حالة القسمة لا تقبل
       Dim q2 As Integer = c1.Text - f

       For I As Integer = 1 To c2.Text
           Dim qq As Integer = q

           If (q2 > 0) Then
               MsgBox("الفترة " & I & " = " & qq + 1 & " أسئلة")
           Else
               MsgBox("الفترة " & I & " = " & qq & " أسئلة")
           End If

           q2 = q2 - 1
       Next


اما فيما يخص الوقت لكل فترة فبصراحه ماعندي وقت اعملها ولكن نفس الفكرة طبقها وراح توصل للحل .
الرد
تم الشكر بواسطة: الدريساوي , احمد عبد الحكيم
#3
الله يعطيك ألف ألف عافية يا حبيب وتسلم وما قصرت ..
من جد منتدى رائع وأعضاء أروع ..
الرد
تم الشكر بواسطة: حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة مشروع عن الوزن المثالي Rodi001 7 7,013 13-02-19, 01:08 AM
آخر رد: مها القويفلي
Star مطلوب طرية عمل setup Aziz170020 0 56 11-02-19, 02:23 AM
آخر رد: Aziz170020
Lightbulb [سؤال] ما هي خاصية return sat_abdel 0 62 01-02-19, 04:08 PM
آخر رد: sat_abdel
  مطلوب عرض تفاصيل بيانات داخل Texbox عن طريق ListView ... احتاج كود استعلام mohamedgadain61 9 268 30-01-19, 06:42 AM
آخر رد: حريف برمجة
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 232 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  المساعدة في حل مشكلة الترقيم التسلسلي في الكريستال ريبورت ( حاجة غريبة حصلت معي ) جيولوجي مبتدئ 2 123 27-01-19, 12:09 PM
آخر رد: جيولوجي مبتدئ
  [SQL] مطلوب تعديل كود الاستعلام من جدولين غير مرتبطين فراس الغزي 10 328 18-01-19, 11:05 PM
آخر رد: asemshahen5
  [VB.NET] برجاء المساعدة فى هذا الكود medhat_fouad 0 85 16-01-19, 02:10 PM
آخر رد: medhat_fouad
  ارجو المساعدة كيف يتم الحفظ والحذف لاكثر من جدول باستخدام DATA SET يوجد مشروع للتعديل abdullhadi999 6 263 16-01-19, 12:59 AM
آخر رد: EYADISMAIL
  مامشكلة جملة الإضافة sql أرجو المساعدة Elhatmi 2 172 11-12-18, 10:57 AM
آخر رد: Elhatmi

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم