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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مطلوب مساعدة في برنامج يحدث اخطاء ay.alhaj 16 292 منذ 4 ساعة مضت
آخر رد: rnmr
  [VB.NET] المساعدة باتصال السكانر VB.Net safalo 8 671 07-10-18, 06:08 PM
آخر رد: ALi-Ip
  مطلوب شرح اضافة اداة فى الفيجول بيسك Mohamed Magdy 8 192 05-10-18, 12:26 AM
آخر رد: elgokr
Thumbs Up المرجو المساعدة في كود بحث بين تريخين maxiprintservice 1 65 02-10-18, 11:27 AM
آخر رد: sendbad100
  هل يوجد خاصية للتحكم في عرض الاعمدة بالداتا جريد فيو essawq 7 157 29-09-18, 01:09 PM
آخر رد: essawq
  مطلوب برنامج اعراب جمل عربية المبرمج الممتاز 16 331 28-09-18, 01:18 PM
آخر رد: ابراهيم ايبو
  [كود] مطلوب كود يقوم بحفظ محتوى textbox فى ملف notepad elgokr 7 1,166 13-09-18, 06:27 PM
آخر رد: YousefOkasha
  [VB.NET] ارجو المساعدة في crystal report 0theghost0 5 169 04-09-18, 12:01 AM
آخر رد: elgokr
  [سؤال] ضبط وتعديل معادلة تقسيم ساعات عمل الورديات herofox 8 202 03-09-18, 04:38 PM
آخر رد: herofox
  المساعدة في حل كود استعلام نور الهدى الهدى 24 511 19-08-18, 04:03 PM
آخر رد: elgokr

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


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