تقييم الموضوع :
  • 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
الله يعطيك ألف ألف عافية يا حبيب وتسلم وما قصرت ..
من جد منتدى رائع وأعضاء أروع ..
الرد
تم الشكر بواسطة: حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [كود] احتاج فكرة لعمل تقسيم الصنف الى حبة شدة كرتون فراس الغزي 2 48 منذ 11 ساعة مضت
آخر رد: sendbad100
  [VB.NET] مطلوب أداة أو كود لوضع Controlersداخل Listview b4getws 4 62 16-07-18, 06:47 AM
آخر رد: elgokr
  [سؤال] المساعدة بتقرير ReportViewer maram2423 1 69 02-07-18, 03:51 PM
آخر رد: Amir_Alzubidy
  مطلوب التعديل على نموذج البحث ZaerAllail 33 441 30-06-18, 10:09 PM
آخر رد: ZaerAllail
Heart [سؤال] المرجو المساعدة من طرف خبراء برنامج visual basic studio shem3a 1 73 28-06-18, 07:52 AM
آخر رد: elgokr
  [سؤال] المساعدة - في مرحلة استعراض الفواتير فراس الغزي 9 187 13-06-18, 06:47 PM
آخر رد: elgokr
  [VB.NET] مطلوب شرح وافي للعمل برنامج محاسبي محمد مكاوي 3 842 13-06-18, 11:48 AM
آخر رد: elgokr
Smile [سؤال] مميزات الـ SQL Server واي اصدار استخدم رجاء المساعدة Mahmoud Nasser 8 156 08-06-18, 06:39 PM
آخر رد: Mahmoud Nasser
  ارجو المساعدة في هذا الخطاء ibrahimmakhool 1 85 05-06-18, 02:07 AM
آخر رد: mrnooo2000
Exclamation [كود] المساعدة - حول فكرة الاصدارات YousefOkasha 7 298 04-06-18, 03:44 AM
آخر رد: YousefOkasha

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


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