إعـــــــلان

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-08-2014, 11:42 AM

لنحاول :
انجاز أسئلة اختيار من متعدد لذا هات ثلاث ملفات نصية أو أكثر بحيث في الملف النصي الواحد 11 سؤالا
مكتوبة بهذا النمط تحت بعضها البعض
اختيار.اختيار.اختيار.اختيا? ?.السؤال.رقم الاجابة الصحيحة.
-------
حيث تفصل بين كل اختيار و الاخر أو السؤال أو رقم الجواب الصحيح نقطة .
بهذا النمط توضع 11 سؤالا في الملف النصي الواحد
------------------------------------------------------------------------
مثال :
5 . 15 . سمير.قلم. ماهو مجموع 10+5؟.2.
تونس.مصر.الجزائر.اليمن.ماهو بلد المليون ونصف المليون شهيدا؟.3.

بهذا الشكل يكون 11 سؤالا في الملف النصي
ثم ينجز ملف نصي آخر بنفس الكيفية بأسئلة أخرى .... لتحقيق عشوائية في طرح السؤال
لانها عشوائية ظهور الاختيارات قد تكون متاحة
مع ملاحظة الاختيارات 4 في كل مرة وتحتمل اجابة واحدة صحيحة من الاربعة
سلام

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-08-2014, 06:25 PM

محاولة :
http://www.gulfup.com/?xdGf8B
بالتوفيق

**خادم المسلمين خادم المسلمين** · 15-08-2014, 09:01 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

محاولة :
http://www.gulfup.com/?xdGf8B
بالتوفيق

رووعة اخى الحبيب
ودى طريقة جميلة جدا وسهلة لاضافة الاسئلة والاجابة على حسب ما يريد المعلم تمام.
الأن
نفسى افهم هذه السطور اللى فالكود ده

اما تعليق على كل سطر

أو حتى المعنى الاجمالى لكل دالة

كود:

function split(pString, pPattern)
    if string.find(pString,".") then
        pString = string.gsub(pString,"%.","'.'")
    end
    if pPattern == "." then
        pPattern = "'.'"
    end
    local Table = {} 
    local fpat = "(.-)" .. pPattern
    local last_end = 1
    local s, e, cap = pString:find(fpat, 1)
    while s do
        if s ~= 1 or cap ~= "" then
            table.insert(Table,cap)
        end
        last_end = e+1
        s, e, cap = pString:find(fpat, last_end)
    end
    if last_end <= #pString then
        cap = pString:sub(last_end)
        table.insert(Table, cap)
    end
    return Table
end

هل يمكن ان يظهر عند كل سؤال صوته؟
صوت يقرأ صيغة السؤال؟
وهل عن د الضغط على الاجابة بالامكان ايضا اظهار صوت يقرأ الاجابة الصحيحة ثم يتلوه صوت التشجيع الدال على ان الاجابة كانت صحية؟

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-08-2014, 09:28 PM

هذا كود عام يستعمل في تجزئة المحتوى النصي أو الرقمي إلى أجزاء حسب العلامة
التي تحددها على أن يكتب هذا الكود في القلوبال دون تغيير أي شيء

لكن عند أمر التطبيق يمكنك وضع العلامة التي ستجزأ به الأثر الكتابي

افتح مشروعا جديدا و ضع الكود في القلوبال و لاتغيير فيه شيء

ثم نضع مثلا اينبوت في التجميعة
ونزرع الكود التالي في زر مثلا :

كود PHP:


 e = split(Input.GetText("Input1")," ")
Dialog.Message("Notice",(e[1]));
Dialog.Message("Notice",(e[2]));
Dialog.Message("Notice",(e[3]));
Dialog.Message("Notice",(e[4]));

لاحظ في السطر الاول أني اخترت العلامة الفاصلة هي فراغ وواضح أني سأتعامل مع جملة من 4 كلمات

أكتب الان في الانبوت هذه العبارة:
زر لتوليد الاسئلة عشوائيا

ستظهر لك الجملة بالمفردة لأن بين الواحدة و الثانية فراغ وهو المختار
وهكذا لو وضعت علامة أخرى مهما كانت واعلنتها في بداية كود التنفيذ
سيقسم المحتوى حسب تلك العلامة و في مثالنا استعملتها لتجزئة الاختيارات و الاجابة و رقم الجواب الصحيح
ليسهل عني التعامل معها

لاأجيد الشرح جيدا أرجو أن الفائدة منه وصلت
يمكنك الرجوع لهذا الموضوع :
http://sites.ienajah.com/vb2/showthread.php?t=29732&page=2

**ثامر أبو بلقيس ثامر أبو بلقيس** · 15-08-2014, 09:37 PM

هل يمكن ان يظهر عند كل سؤال صوته؟
صوت يقرأ صيغة السؤال؟
وهل عن د الضغط على الاجابة بالامكان ايضا اظهار صوت يقرأ الاجابة الصحيحة ثم يتلوه صوت التشجيع الدال على ان الاجابة كانت صحية؟

الجزء الأخير مادام تحديد الجواب الصحيح متعلق بتقويم و بالضغط عليه ارى أنه من الممكن أن يستدعي معه صوت الاجابة الصحيحة
بمعنى اذا تحقق شرط الاجابة صحيحة سيعطي درجة للطالب ضف معها يقرأ صوت هاته الاجابة ----
الجزء الأول من سؤالك قراءة صيغة السؤال ليس صعبا لكن يحتاج لتركيز لا شيء في بالي الان
موفق

**خادم المسلمين خادم المسلمين** · 15-08-2014, 10:01 PM

شكرا اخى ثامر واتابع اى جديد منك فى نفس الموضوع

**سعيدون سعيدون** · 06-01-2015, 03:55 AM

رد

مشكورين مشكورين
الف تحية للابطال

**الباب الباب** · 19-02-2015, 09:29 PM

شـكــــرا لك وبارك الله فيك

**منوبة منوبة** · 10-04-2015, 12:32 PM

نفس السؤال كنت حابب اسئله فشكرا لصاحب السؤال وشكرا لكل من جاوب بما يعرفه وشكرا للمنتدى الذي يجمعنا جميعا

**نجوم ليبيا نجوم ليبيا** · 23-06-2015, 02:44 PM

السلام عليكم ورحمة الله وبركاته شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**ربيع ربيع** · 31-08-2015, 07:42 PM

المشاركة الأصلية بواسطة محمود خليل مشاهدة المشاركة

لا بأس

[HTML]if Browse == nil then
Browse = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "Txt Files (*.txt)|*.txt|", "", "txt", false, false);
text = TextFile.ReadToTable(Browse[1]);
end
Questions = {}
for i = 1,#text do
Table.Insert(Questions, i, i);
end
function Rando(My_Table)
local c = #My_Table

while c >= 2 do
local s = math.random(c)
My_Table[c], My_Table[s] = My_Table[s], My_Table[c]
c = c - 1
end
return My_Table
end
Rando (Questions)
for k, v in ipairs (Questions) do
Dialog.Message("Notice", text[v], MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end [/HTML]

هذا الكود يحل المعضلة
تحياتى للأستاذ صاحب الفضل الذى رفض ذكر إسمه
كل عام و أنتم جميعا بخير

شــكــرا

**ابوسوار ابوسوار** · 05-12-2015, 10:21 PM

الفين شكر وتحية

**ساندى كريم ساندى كريم** · 24-01-2016, 08:58 PM

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

**منوبة منوبة** · 03-02-2016, 05:30 PM

شكرا للجميع وبارك الله فيكم

**kiaamed kiaamed** · 10-12-2017, 08:50 PM

شككككرررررررررررررررررررر اااااا

إعـــــــلان

زر لتوليد الاسئلة بشكل عشوائى

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك