المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : مسابقه تنافسية مع معرفة الدرجه ومفتاح التصحيح


محمد سامر
19-07-2016, 08:25 PM
السلام عليكم ورحمة الله وبركاته لكل أعضاء المنتدى الكرام،،

حاولت أعمل مسابقه تنافسيه ووجدت أقرب مثال لذلك هو نموذج الأخ ثامر بارك الله فيه وقد عملت فيه بعض التعديلات البسيطه لتنفيذ المسابقة،،
المسابقه عباره عن أسئلة إختيار من متعدد(5 أسئله). ..المطلوب بعد إذنكم
1 / أريد عند الدخول للإختبار عداد الوقت يتم تشغيله تنازليا ومقداره 26 دقيقة...وذلك حتى إنتهاء المسابقة. مع وجود صوت للعداد.
2/ ترتيب الأسئله في ملف quiz لا يتم ظهورهه كما في ترتيبها أي تظهر عشوائيه...فمثلا :: الأسئله مكتوبه هكذا 1،2،3،4،5 يتم ظهورها 5،3،4،1،2....هل يوجد حل لجعلها تظهر بترتيبها كما في ملفquiz.
3/ في صفحة إعلان النتيجة هل يمكن أن تحتوي على:
إسم الطالب الذي تم إدخاله في أول الإختبار.
- الرقم.
عدد الإجابات الصحيحة.
عدد الإجابات الخاطئة.
المجموع الكلي للإختبار.
الوقت المستهلك.
وأهم شيء في ذلك كله هو مفتاح التصحيح...وهو يحتوي على ظهور كل إجابه وهل هي خطأ أم صواب.. وجزاكم الله خيرا

الملف للتوضيح

http://www.mediafire.com/download/ij5z75y55g63ime/%D8%A7%D9%84%D9%85%D8%B4%D8%B1%D9%88%D8%B9.rar

ثامر أبو بلقيس
20-07-2016, 11:04 PM
موفق بإذن الله ... لك مني أجمل تحية . :abc_138:

عدل على هدا الملف (http://up.top4top.net/downloadf-201n5md1-rar.html)

محمد سامر
20-07-2016, 11:42 PM
صراحة يا أستاذ ثامر عمل راااااااااااااااااااااااا ااااااااااااااااااااااااا اااائع جدااااااااااااااااااااااا اا .. جزاك الله خيرا
وعند إكتمال هذا العمل سأرفعه للمنتدى ملف مفتوح حتى يستفاد الجميع ..لإني سوف أطبقه على 50 سؤال. وبعد التعديلات الأخرى ...التي طبعا لولاك لم أكن لأتوصل إليها..جزاك الله خيرا وجعله في ميزان حسناتك:abc_022:

محمد سامر
21-07-2016, 03:51 PM
بعد إذن حضرتك أستاذ ثامر،،، أنا عدلت على الملف وعملت المسابقه من 50 سؤال بدلا من 5 فقط ..وكتبت الأسئله بالداخل...ولكن عند الدخول للسؤال السادس يتعذر التكمله ممكن الإفاده بعد إذنك...
ولسيادتك جزيل الشكر

رابط الملف
http://www.mediafire.com/download/33m0oalgr4nyttf/%D8%AA%D8%B9%D8%AF%D9%8A%D9%84+2016.rar

ثامر أبو بلقيس
21-07-2016, 04:58 PM
الاسباب : في تسميات الاتبوتات وترتيبها

الحل :
في المنطقة المعبأة بالأزرق لديك 50 أنبوتا .. أريدك أن تغيير تسمية
الانبوتات بحيث تأخد فقط أرقام مثلا Input1 يصبح اسمه 1 و Input2 يصبح اسمه 2 الخ
وهكدا الى غاية 50 لكن تكون مرتبة التسميات من 1 الى 50 دون تجاوز رقم ترتيبي مثلا كأن تسمي 5 ثم 7 ؟؟

عندما تكمل هدا الاجراء نكمل :abc_138:

ثامر أبو بلقيس
21-07-2016, 05:07 PM
بعد ما تكمل التسميات
------------

خصص للاجابات الاختبارية 4 عناصر xButton وهي
xButton1 - xButton2- xButton3 - xButton4

جيد
في كل واحدة منهم بداية من السطر الرابع الى غاية السطر التاسع
تجد نفس الكود وهو :
if vrai==bel then
points=points+10
Input.SetText("Input"..v, "ص")
else
Input.SetText("Input"..v, "خ")
end

هدا الكود ننزع منه كلمة Input ليصبح
if vrai==bel then
points=points+10
Input.SetText(""..v, "ص")
else
Input.SetText(""..v, "خ")
end
في الأزرار الأربعة دون حدف ما قبله وما بعده من أكواد

موفق:abc_138:

محمد سامر
21-07-2016, 05:28 PM
جزاك الله خيرا أخي الفاضل ورزقت الصحة والبركة...،، طبقت التعليمات وتمت بنجاح الحمد لله
لكن هناك مشكله في أنبوت الإجابات الخاطئة يُعطي بالسالب وغير مستقر...:abc_052:

بعد التعديل
http://www.mediafire.com/download/rz968j3anm603aa/%D8%AA%D8%B9%D8%AF%D9%8A%D9%841++2016.rar

ثامر أبو بلقيس
21-07-2016, 05:46 PM
مـــــــــــــــــــــوفق

ثامر أبو بلقيس
21-07-2016, 05:49 PM
في السطر الأخير لكل من
xButton1 - xButton2- xButton3 - xButton4


بديهي تغيير الخمسة 5 الى 50 وهو عدد الاسئلة حسب تعديلك

قلنا : في السطر الأخير فقط ومرة واحدة في كل زر
موفق

محمد سامر
21-07-2016, 06:03 PM
الله الله الله عليك أستاذ ثامر ...صراحة الله يبارك في علمك ويزيدك من فضله..بووووركت
إشتغل فعلا تمام ..:abc_052:

محمد سامر
21-07-2016, 06:33 PM
أزعجتك أ ثامر.... سؤال فني .
.لو أن هناك طالب مستواه ضعيف وقد مر الوقت ومقداره 25 دقيقه ولم يكمل حل المسابقه هل يمكن أن تتجمد الأسئله ...(أي بإنتهاء الوقت تتجمد الأسئله ولا يستطيع الإجابه عليها)..
فإن تمت إجابته مثلا على 20 سؤال فقط يحتسب له ذلك فقط..:abc_152: جزاك الله خيرا

ثامر أبو بلقيس
21-07-2016, 06:46 PM
لحظــــــــــــــــــة

ثامر أبو بلقيس
21-07-2016, 06:49 PM
في on timer نكتب شرطا جديدا قيصبح
الكود في on timer
كالتالي :
c=c-1
Input.SetText("time", os.date("!%X",c));
if c==0 then
for b =1,4 do
xButton.SetEnabled("xButton"..b, false);
xButton.SetEnabled("question", false);
end
Page.StopTimer(10);
end

-----------------
c1=c1+1
Input.SetText("Input6", os.date("!%X",c1));
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\Metallic.ogg", true, false);

بدلا من المكتوب في الحدث المشار اليه

محمد سامر
21-07-2016, 07:05 PM
تسلم آخي من كل سوووووووووووووووووووء ... جاري التنفيذ..:abc_022:

محمد سامر
21-07-2016, 07:31 PM
ممتاز أ ثامر عمل راااااااائع ... جزاك الله خيرا:abc_026:

فرح صالحي
21-07-2016, 07:33 PM
موفق بإذن الله :abc_152:... لك مني أجمل تحية .

هبة الرحمن
22-07-2016, 05:06 PM
السلام عليكم ورحمة الله وبركاته

محمد سامر
23-07-2016, 12:02 AM
وعليكم السلام ورحمة الله وبركاته

خالد المسيلي
11-10-2016, 08:18 PM
بارك الله فيك

سند عاشور
14-10-2016, 02:11 PM
موفق بإذن الله ..

المحترف القادم
27-10-2016, 08:05 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

حسن الجيلانى
24-12-2016, 01:06 AM
جزاك الله خيرا

kiaamed
10-12-2017, 03:38 PM
شـكــ وبارك الله فيك ـــرا

بيانكى
21-04-2019, 10:20 PM
مشككككككككككككككككككككككك ككككككككككككككككككككككككك ككككككككككككككككككككككككك ككككككككككككككككككككككككك ككككككككككككككور

رعاش وليد
22-04-2019, 09:01 AM
جزاك الله خيرا أخي الفاضل ورزقت الصحة والبركة.

نقطة حرف
22-04-2019, 03:24 PM
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .