تقييم الموضوع :
  • 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] مطلوب مثال لاضافة وحذف وتعديل وبحث وحفظ الصور محمد اسماعيل 1 63 12-12-17, 09:15 PM
آخر رد: zinom
  [VB.NET] المساعدة في تصحيح الكود MySqlConnection dubai.eig 6 113 12-12-17, 12:38 PM
آخر رد: dubai.eig
  الرجاء المساعدة حول ظهور الصور أحمد فتح الرحمن 2 54 11-12-17, 02:11 AM
آخر رد: أحمد فتح الرحمن
  [VB.NET] المساعدة في اضافة وحفظ بيانات الداتا جريد محمد اسماعيل 1 44 10-12-17, 10:16 PM
آخر رد: حريف برمجة
  ارجو المساعدة في طباعة التقرير samawi 6 174 02-12-17, 01:11 AM
آخر رد: samawi
  [سؤال] المساعدة - ارسال رسائل SMS mustafa mohamed 2 115 01-12-17, 11:35 PM
آخر رد: sendbad100
  مطلوب كود يقوم بعملية طرح يوم من التاريخ الحالي (( معرفة تاريخ الامس )) abo.alaa315 2 77 01-12-17, 03:10 PM
آخر رد: alsouf
  ارجو المساعدة امر طارئ عبدالرحمن المكاوي 8 137 27-11-17, 09:14 PM
آخر رد: عبدالرحمن المكاوي
  المساعدة في كود تصدير الجدول الي الاكسيل khaled12345 10 267 26-11-17, 05:50 PM
آخر رد: khaled12345
  [سؤال] ارجو المساعدة في الخطاء VB.NET 3 97 21-11-17, 08:03 PM
آخر رد: ahmedmansour

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


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