المشاركات : 31
المواضيع 10
الإنتساب : Jul 2016
السمعة :
0
الشكر: 2
تم شكره 16 مرات في 6 مشاركات
بسم الله الرحمن الرحيم
السلام عليكم و رحمة الله و بركاته
ملاحظة: أنا جد مبتدأ، و هذه فكرتي في طريقة برمجة الاختبار، اذا كانت خاطئة الفكرة وجهوني للفكرة السليمة
أحاول صنع برنامج أسئلة امتحانات، (إختيار من متعدد)
قمت بالاتصال بقاعدة البيانات أكسس (الجدول يحتوي أعمدة ID السؤال و 6 إجابات مقترحة)
في الفيجوال، أريد:
لما تكون قيمة Text.ID تشير إلى السؤال 1، فلما يضغط المستخدم على Label الإجابة الصحيحة يتحول لونه إلى الأخضر
و لما يضغط على Label الإجابة الخاطئة يتحول إلى الأحمر، و يظهر الذي أمام الجواب الصحيح بالأخضر.
و هكذا ...
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
06-09-20, 08:17 PM
(آخر تعديل لهذه المشاركة : 06-09-20, 08:19 PM {2} بواسطة عبد الهادي بهاب.)
ممكن هذا السيناريو
في العام نعلن عن مصفوفة اليبالات الخمسة
الان في form_load نضع فيها قائمة الليبلات الخمسة
PHP كود :
lst_labl = {Label1, Label2, Label3, Label4, Label5}
الان في نضيف هذا الحدث الذي يشمل الليبلات الخمسة اي نضع فيها نفس الشرط
PHP كود :
Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click, Label4.Click, Label3.Click, Label2.Click, Label1.Click Dim labclicker As Label = DirectCast(sender, Label)
If labclicker.Text = "bonne_reponse" Then labclicker.BackColor = Color.Green Else labclicker.BackColor = Color.Red For i = 0 To 4 If lst_labl(i).Text = "bonne_reponse" Then lst_labl(i).BackColor = Color.Green End If Next End If End Sub
في الشكل المرافق الليبال هو الذي فيه a2 a3 a4 a5a6 وليس r1 .........الخ
اجعل التكست بوكس للقراءة فقط و eanable = false
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 31
المواضيع 10
الإنتساب : Jul 2016
السمعة :
0
الشكر: 2
تم شكره 16 مرات في 6 مشاركات
06-09-20, 08:35 PM
(آخر تعديل لهذه المشاركة : 06-09-20, 08:45 PM {2} بواسطة HUNTER25.)
جزاك الله خيرا، و نفع بك
سؤال لو سمحت: لكن له علاقة برقم السؤال ؟ يعني عندما يتغير السؤال تتغير الإجابة الصحيحة. كيف السبيل إلى ذلك؟؟
و عذرا على الإكثار
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
(06-09-20, 08:35 PM)HUNTER25 كتب : جزاك الله خيرا، و نفع بك
سؤال لو سمحت: لكن له علاقة برقم السؤال ؟ يعني عندما يتغير السؤال تتغير الإجابة الصحيحة. كيف السبيل إلى ذلك؟؟
و عذرا على الإكثار
من اين مصدر الاجابة ؟ هو ما يجب تغيير في الشرط
يعني لو كانت الاجابة في مصفوفة حدد فقط العنصر
مثلا
reponses = {r1,r2,r3,r
3}
فانت تقارن مع reponse(index)
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 476
المواضيع 33
الإنتساب : Mar 2014
السمعة :
175
الشكر: 366
تم شكره 1393 مرات في 471 مشاركات
06-09-20, 10:29 PM
(آخر تعديل لهذه المشاركة : 06-09-20, 11:00 PM {2} بواسطة Anas Mahmoud.)
يجب ان تضيف عمود اخر في الجدول من نوع Integer يحتوي على Index الاجابة الصحيحة وليكن اسمه Answer
بعد ذلك تقوم بتعريف array تحتوي على الليبلات الخمسة كما اخبرك اخي عبد الهادي بارك الله فيه
وفي حدث الضغط على الليبلات تقوم باحضار الاجابة الصحيحة الحالية واختبار اذا تم الضغط على الليبل المقابل لها ام لا :
كود :
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click,
Label2.Click, Label3.Click, Label4.Click, Label5.Click
Dim lbl As Label = sender
Dim AnswerIndex As Integer = Me.BindingContext(DataSet1, "Table1").Current.Item("Answer")
If lst_labl(AnswerIndex) Is lbl Then
lbl.BackColor = Color.Green
Else
lbl.BackColor = Color.Red
End If
End Sub
المشاركات : 31
المواضيع 10
الإنتساب : Jul 2016
السمعة :
0
الشكر: 2
تم شكره 16 مرات في 6 مشاركات
جاري التجربة، أحسن الله إليكم
المشاركات : 219
المواضيع 53
الإنتساب : Jul 2020
السمعة :
104
الشكر: 260
تم شكره 635 مرات في 218 مشاركات
لماذا هناك زر السابق ........ لما يظهب الى التالي .لماذا يرجع .....اجاب صح او خطا فنحسب النقط .......و يمكن الاستعاضة بزر التالي بتايمر يعرض مباشرة السؤال الموالي دون الحاجة الى زر ...و لا الى الاخير ... انت تضع شرطا في التايمر او معادلة التصحيح ....اي لما يكون عدد الاسئلة هو نفسه عدد طول المصفوفة او عدد 10 مثلا يتوقف التمرين و نعطيه النتيجة
....................................
كما ان هذه الاسئلة تصلح في الاستبيانات و المرجهة السريعة
بالتوفيق
لعل الكلمة التي تنفعني لم أكتبها بعد
عبد الله بن المبارك
المشاركات : 31
المواضيع 10
الإنتساب : Jul 2016
السمعة :
0
الشكر: 2
تم شكره 16 مرات في 6 مشاركات
الحقيقة اردت عمله لمراجعة اختبار التخصص في الطب ... يعني اسمح للطالب يرجع للسؤال السابق في حالة اراد مراجعته او شيء ما
المشاركات : 21
المواضيع 1
الإنتساب : Sep 2020
السمعة :
3
الشكر: 87
تم شكره 68 مرات في 24 مشاركات
في البدايه انت بتقول
(06-09-20, 06:38 PM)HUNTER25 كتب : لما يضغط على Label الإجابة الخاطئة يتحول إلى الأحمر، و يظهر الذي أمام الجواب الصحيح بالأخضر.
هذا مبيزبطش مع قولك الاخير
(07-09-20, 01:31 AM)HUNTER25 كتب : يعني اسمح للطالب يرجع للسؤال السابق في حالة اراد مراجعته او شيء ما
فكيف بعد ما ظهر له اللون بيرجع يراجعه
الا اذا كان هالبرنامج مجرد تعليم وليس تقييم
|