اخواني اريد كود لعمل برنامج اسئلة الاختيار المتعدد
بحيث يكون هناك
1- تعزيز للاجابة مثل كتابة اجابة صحيحة
2- اعطاء درجة كنتيجة للاجابة على الاسئلة
2- اخراج جميل
من يعرف كود لكتابة برنامج اسئلة الاختيار المتعدد
مغلق
:o معلش ما فيش حد رد عليك اتكل على الله و شوف موضوع تاني احسن او مش لازم الختيار المتعدد في البرنامج
الأفضل إضافة مثال لتصل بعد التعديل لما تريد
خواني ليس شرطا اختيار متعدد , المهم ان يكون اختبار تعليمي مثل الصح والخطأ او غير ذلك
ستجد الرد هنا
أعطني فرصه للبحث عنه
أخي بالنسبة لطريقة الاختيار المتعدد اولا يجب عليك أن تضع الأسئلة واختياراتها في قاعدة بيانات وأن تضع الأسئلة في حقل وكل اختيار في حقل والاجابة في حقل آخر ثم تستدعيها عن طريق فيجوال بيسك وتعمل لها راندوم بطريقة الأرقام العشوائية أي Rnd وهكذا
أنا الرجل الضرب الذي تعرفونه***خشاش كرأس الحية المتوقد
لوكنت وغلاً في الرجال لضرني**** حسن جرائتي ومقتدي
ارجو ان ترسل لي بوضوح على اي لغة انت تعمل و ان توضح اكثر عن البرنامج
و اذا اردت ان تدردش معي على ماسنجر
عندما تكون على النت ارسل الي رساله على جوال
97059733531
انا عندي اسئلة خيار متعدد قواعد بيانات
محتاج تعمل ثلاثة خيارات
تحمل الاسماء التالية
opta1
opta2
opta3
وخيار رابع وتخليه غير مرئي (مخفي وتسميه
optanswers
وتعمل lableوتسميه lblqu
----------------------------------------------
وتقوم بالاعلان عن قاعدة البيانات وجدولين كالتالي في قسم الاعلانات
dim dbqu as database
dim rsqu as recordset
dim rsans as record set
بعد ذلك في حدث form_load
تكتب الاكواد التالية
Set dbqu = DBEngine.Workspaces(0).OpenDatabase(App.Path & "question.mdb")
Set rsans = dbqu.OpenRecordset("answers", dbOpenTable)
Set rsqu = dbqu.OpenRecordset("question", dbOpenTable)
'نستدعي الاجراء
Call showdataثم بعد ذلك نقوم بعمل الاجراء التالي
Private Sub showdata() 'ááÇäÊÞÇá ááÓÄÇá ÇáÊÇáí rsans.MoveNext rsqu.MoveNext If rsans.EOF Then rsans.MoveFirst End If If rsqu.EOF Then rsqu.MoveFirst End If 'ÇÚØÇÁ ÇáÈíÇäÇÊ ãä ÞÇÚÏÉ ÇáÈíÇäÇÊ lblqu.Caption = rsqu!question optanswer.Caption = rsqu!answer ' åäÇ íÊã ÇÓäÇÏ ÇáÇÌÇÈÉ ÇáÕÍíÍÉ æÊßæä ãÎÝíÉ optA1.Caption = rsans!a1 optA2.Caption = rsans!a2 optA3.Caption = rsans!a3 End Sub
بعد كذا تفتح قاعدة البيانات
وتلاقي فيه جدولين تفتح جدول question وفي حقل answer اكتب الاجابة الصحيحة وفي حقل question اكتب السؤال
ثم افتح الجدول answers وفي الحقو ل a1,a2,a3 اكتب الاجابات الثلاثة ومابينها الاجابة الصحيحة
وفي الحقل aid اكتب ارقام العد التصاعدي
وخلاص من قاعدة البيانات
بعدين ترجع على الفيجوال بيسك وتعمل زر اوامر سميه زي مابدك
واضع فيه هاذا الكود
'ÇæáÇ ÇÐÇ ÇáãÓÊÎÏã áã íÍÏÏ ÇÌÇÈÉ
If optA1.Value = False And optA2.Value = False And optA3.Value = False Then
MsgBox ("ÇäÊ áã ÊÏÎá ÇÌÇÈÉ")
End If
'åÐå ÇáÔÑæØ áãÚÑÝÉ ÇÐÇ ßÇä ÇáÎíÇÑ ÇáÇæá åæ ÇáÕÍíÍ Çæ áÃ
'optansweráíßæä ÕÍíÍ íÌÈ Çä íßæä äÕ ÇáÎíÇÑ ÇáÇæá =äÕ ÇáÎíÇÑ ÇáãÎÝí æåæ
If optA1.Value = True Then
If optA1.Caption = optanswer.Caption Then 'ÇÐÇ ßÇä ÇáÌæÇÈ ÕÍíÍ
msgbox("اجابة صحيح") ' يمكنك تغيير msgbox الى اي شيء ثاني
ElseIf optA1.Caption <> optanswer.Caption Then 'ÇÐÇ áã íßä ÇáÌæÇÈ ÕÍíÍ
msgbox("اجابة خاطئ") 'ÓíÊã ÚÑÖ ÅØÇÑ ááÇÌÇÈÇÊ ÇáÛíÑ ÕÍíÍÉ
End If
End If
'-------------------------------------------
'äÝÓ ááÇæÇãÑ ááÎíÇÑÇáËÇäí
If optA2.Value = True Then
If optA2.Caption = optanswer.Caption Then
msgbox("اجابة صحيحة")
ElseIf optA2.Caption <> optanswer.Caption Then
msgbox("اجابة خاطئة")
End If
End If
'----------------------------------
'äÝÓ ÇáÇæÇãÑ ááÎíÇÑ ÇáËÇáË
If optA3.Value = True Then
If optA3.Caption = optanswer.Caption Then
msgbox("اجابة صحيحة")
ElseIf optA3.Caption <> optanswer.Caption Then
msgbox("اجابة خاطئ")
End If
End If
call showdataلاتنخبص وشوي شوي راح تفهم الكود والقصة صحيح طويلة بس سهلة
تحياتي سلاام
ملاحظة:فكرة العمل انه يتم اختبار الثلاث خيارات اي منها يحمل نفس النص الموجود على الخيار الرابع المخفي وهكذا يتم عرض الاجابة الصحيحة
يجب ايضا ان يكون النص مشابه للنص الموجد على الخيار الرابع بالضبط
هذا الموضوع مغلق.