اقتباس:
المشاركة الأصلية كتبت بواسطة الاستاذ خليل
السلام عليكم
مثل ما وعدناكم هذا درس الدرس الرابع عشر عمل مسابقة اختيار متعدد متكاملة اجاباتها على هيئة نصوص مثل ما طلبتم
استغرق شرحه وقت طويل الله يعينكم عليه
هنا الشرح بالصوت و الصورة
و هذا كود المسابقة
كود:
private declare function playsound lib "winmm.dll" alias "playsounda" (byval lpszname as string, byval hmodule as long, byval dwflags as long) as long
dim trueq, falseq as long
dim q, a1, a2, a3, a4 as string
dim a as integer
dim l1, l2, l3, l4, t1, t2, t3, t4 as integer
private sub comfalse_click()
comfalse.enabled = false
comtrue.enabled = false
if jawab = false then
trueq = trueq + 1
else
falseq = falseq + 1
end if
natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq
end sub
private sub com1_click()
com1.enabled = false
com2.enabled = false
com3.enabled = false
com4.enabled = false
trueq = trueq + 1
com1.backcolor = &hff00&
natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq
labeltruefalse.caption = "الاجابة صحيحة"
playsound application.activepresentation.path & "\true.wav", 0, &h1
labeltruefalse.visible = true
dim start as long
start = timer
do while timer < start + 3 'a 3 second delay (change to any numer you want)
doevents ' yield to other processes.
Loop
comsoal_click
labeltruefalse.visible = false
end sub
private sub com2_click()
com1.enabled = false
com2.enabled = false
com3.enabled = false
com4.enabled = false
com1.backcolor = &hff00&
com2.backcolor = &hff&
falseq = falseq + 1
natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq
labeltruefalse.caption = "الاجابة خاطئة"
playsound application.activepresentation.path & "\no.wav", 0, &h1
labeltruefalse.visible = true
dim start as long
start = timer
do while timer < start + 3 'a 3 second delay (change to any numer you want)
doevents ' yield to other processes.
Loop
comsoal_click
labeltruefalse.visible = false
end sub
private sub com3_click()
com1.enabled = false
com2.enabled = false
com3.enabled = false
com4.enabled = false
com1.backcolor = &hff00&
com3.backcolor = &hff&
falseq = falseq + 1
natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq
labeltruefalse.caption = "الاجابة خاطئة"
playsound application.activepresentation.path & "\no.wav", 0, &h1
labeltruefalse.visible = true
dim start as long
start = timer
do while timer < start + 3 'a 3 second delay (change to any numer you want)
doevents ' yield to other processes.
Loop
comsoal_click
labeltruefalse.visible = false
end sub
private sub com4_click()
com1.enabled = false
com2.enabled = false
com3.enabled = false
com4.enabled = false
com1.backcolor = &hff00&
com4.backcolor = &hff&
falseq = falseq + 1
natija.caption = "النتيجة : " & trueq & " / " & trueq + falseq
labeltruefalse.caption = "الاجابة خاطئة"
playsound application.activepresentation.path & "\no.wav", 0, &h1
labeltruefalse.visible = true
dim start as long
start = timer
do while timer < start + 3 'a 3 second delay (change to any numer you want)
doevents ' yield to other processes.
Loop
comsoal_click
labeltruefalse.visible = false
end sub
private sub comsoal_click()
if trueq + falseq = 10 then
comsoal.visible = true
msgbox "انتهت الاسئلة شكرا لاستخدامك البرنامج", vbokonly, "رسالة البرنامج"
a = 0
falseq = 0
trueq = 0
soal = "السؤال"
natija = "النتيجة"
com1.caption = "الاجابة"
com2.caption = "الاجابة"
com3.caption = "الاجابة"
com4.caption = "الاجابة"
com1.enabled = false
com2.enabled = false
com3.enabled = false
com4.enabled = false
com1.backcolor = &h8000000f
com2.backcolor = &h8000000f
com3.backcolor = &h8000000f
com4.backcolor = &h8000000f
exit sub
end if
com1.backcolor = &h8000000f
com2.backcolor = &h8000000f
com3.backcolor = &h8000000f
com4.backcolor = &h8000000f
comsoal.visible = false
com1.visible = false
com2.visible = false
com3.visible = false
com4.visible = false
a = a + 1
if a = 1 then
q = "من أول الخلفاء الراشدين"
a1 = "أبو بكر الصديق"
a2 = "عمر بن الخطاب"
a3 = "عثمان بن عفان"
a4 = "علي بن ابي طالب"
elseif a = 2 then
q = "شخصية حاولت هدم بيت الله الحرام"
a1 = "ابرهة الحبشي"
a2 = "يزيد بن معاوية"
a3 = "ابو لؤلؤة المجوسي"
a4 = "الاسكندر المقدوني"
elseif a = 3 then
q = "نبي ولد من غير أب"
a1 = "النبي عيسى"
a2 = "النبي موسى"
a3 = "النبي محمد"
a4 = "النبي زكريا"
elseif a = 4 then
q = "خاتم الأنبياء"
a1 = "النبي محمد"
a2 = "النبي موسى"
a3 = "النبي عيسى"
a4 = "النبي زكريا"
elseif a = 5 then
q = "يخرج آخر الزمان يملألأرض قسطا و عدلا"
a1 = "المهدي"
a2 = "النبي موسى"
a3 = "النبي محمد"
a4 = "النبي زكريا"
elseif a = 6 then
q = "كان يتعبد فيه الرسول محمد (ص)قبل الاسلام"
a1 = "غار حراء"
a2 = "غار ثور"
a3 = "جوف الكعبة"
a4 = "منزله"
elseif a = 7 then
q = "ثالث المجموعة الشمسية هو كوكب"
a1 = "الارض"
a2 = "الزهرة"
a3 = "المريخ"
a4 = "عطارد"
elseif a = 8 then
q = "ما هو أكثر حيوان معمر؟"
a1 = "السلحفاة"
a2 = "الفيل"
a3 = "الحصان"
a4 = "الحوت الأزرق"
elseif a = 9 then
q = "كم يوم يعيش ذكر الذباب؟"
a1 = "16 يوم"
a2 = "3 أيام"
a3 = "50 يوم"
a4 = "7 أيام"
elseif a = 10 then
q = "ما هي سرعة دوران الأرض حول الشمس؟"
a1 = "60 الف ميل بالساعة"
a2 = "25 الف ميل بالساعة"
a3 = "100 الف ميل بالساعة"
a4 = "80 الف ميل بالساعة"
end if
soal.caption = q
com1.caption = a1
com2.caption = a2
com3.caption = a3
com4.caption = a4
l1 = com1.left
l2 = com2.left
l3 = com3.left
l4 = com4.left
t1 = com1.top
t2 = com2.top
t3 = com3.top
t4 = com4.top
randomize
dim v as integer
v = int(rnd * 4)
if v = 0 then
com1.left = l1
com2.left = l2
com3.left = l3
com4.left = l4
com1.top = t1
com2.top = t2
com3.top = t3
com4.top = t4
elseif v = 1 then
com2.left = l1
com1.left = l2
com3.left = l3
com4.left = l4
com2.top = t1
com1.top = t2
com3.top = t3
com4.top = t4
elseif v = 2 then
com3.left = l1
com2.left = l2
com1.left = l3
com4.left = l4
com3.top = t1
com2.top = t2
com1.top = t3
com4.top = t4
elseif v = 1 then
com4.left = l1
com3.left = l2
com2.left = l3
com1.left = l4
com4.top = t1
com3.top = t2
com2.top = t3
com1.top = t4
end if
com1.enabled = true
com2.enabled = true
com3.enabled = true
com4.enabled = true
com1.visible = true
com2.visible = true
com3.visible = true
com4.visible = true
natija.caption = "السؤال رقم : " & a
end sub
و ننتظر ان تعملوا المسابقة مع تعديلاتكم
الاستاذ خليل |
شكراً على البرنامج والشرح الرائع
لكن اريد طلب بسيط يا استاذ ! وأرجو ألأا تخيب أملي في تعديل البرنامج
1-الصوت في البرنامج لا يعمل بتاتاً وعند تشغيل البرنامج يأتيني خطاأ في متغير الصوت
2-اريد ان اجعل الأسئلة تظهر بشكل عشوائي ولي مرتب يعني وضع متغير راندوم لكن لا أعرف كيف وما هو !
3- اريد وضع توقيت لكل سؤال يعني اذا خلص التوقيت يحتسب النتيجة خطأ وينتقل للسؤال التالي
وشكراً مرة ثانية وفي أمان الله