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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 45 21-02-17, 10:58 AM
آخر رد: boofa2015
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 82 18-02-17, 02:19 PM
آخر رد: Amrjamil
  مطلوب كود جمع عدد غياب الموظفين بين تاريخين nmst70 5 122 16-02-17, 10:01 PM
آخر رد: Adrees
  رسالة لم تتم تهيئة خاصية ExecuteNonQuery عباسة 3 85 13-02-17, 10:14 AM
آخر رد: عباسة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 137 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 87 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 11 229 31-01-17, 08:22 PM
آخر رد: محمد بوقزاحة
  ارجوا المساعدة محمد بوقزاحة 2 72 29-01-17, 12:30 AM
آخر رد: محمد بوقزاحة
  تقسيم مصفوفة الى قسمين bidaya 19 302 25-01-17, 09:13 PM
آخر رد: silverlight
  [سؤال] ما هو الخطأ في الكود التالي .. أرجو المساعدة abo_alaa315 0 69 22-01-17, 02:27 PM
آخر رد: abo_alaa315

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


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