إدارة بنوك الأسئلة في نظام Blackboard: تجهيز ملفات أسئلة الوحدات
23 مارس 2015 2015-03-23 1:09إدارة بنوك الأسئلة في نظام Blackboard: تجهيز ملفات أسئلة الوحدات
إدارة بنوك الأسئلة في نظام Blackboard: تجهيز ملفات أسئلة الوحدات
الحالة:
في مقرر مبادئ الاقتصاد الكلي، متاح مجموعة أسئلة في ملف إكسيل سبق تجميعها من مساهمات أعضاء هيئة التدريسي، مطلوب فصل قوائم الأسئلة لكل وحدة من وحدات المقرر في ملفات صالحة للإدخال على نظام Blackboard
الخطوات:
مثال: الملف المجمع لأسئلة مقرر مبادئ الاقتصاد الكلي
Q&A_ECON102_2014-12-31.xlsx
1- تجزئة مساهمات هيئة التدريس على ملفات بعدد الوحدات التعليمية
ملف كل وحدة يأخذ النسق التالي
كل صف يمثل سؤالا مستقلا، أما الأعمدة فبيانها كالتالي:
العمود A = رمز نوع الاختبار وهو دائما MC أي اختيار من متعدد Multiple Choice (في المرحلة الحالية نكتفي بهذا النوع – وهو كاف!)
العمود B = نص جذر السؤال
العمود C = نص البديل الأول
العمود D = تكتب إحدى الكلمتين correct إذا كان البديل الأول صواب أو incorrect إذا كان البديل الأول خطأ
العمود E = نص البديل الثاني
العمود F = تكتب إحدى الكلمتين correct إذا كان البديل الثاني صواب أو incorrect إذا كان البديل الثاني خطأ
العمود G = نص البديل الثالث
العمود H = تكتب إحدى الكلمتين correct إذا كان البديل الثالث صواب أو incorrect إذا كان البديل الثالث خطأ
العمود I = نص البديل الرابع
العمود J = تكتب إحدى الكلمتين correct إذا كان البديل الرابع صواب أو incorrect إذا كان البديل الرابع خطأ
** التظليل الأصفر ليس له دلالة تقنية إلا انه يفيد لتتأكد أنك اخترت الإجابة الصحيحة
تأكد من حفظ ملف مستقل لكل وحدة
** يمكن تنسيق الملف المجمع أولا ثم يجزأ في خطوة تالية
تخصص أسماء معبرة عن محتوى الملفات. مثال:
Bb_Q&A_01.xlsx
Bb_Q&A_02.xlsx
Bb_Q&A_03.xlsx
وهكذا
2- حفظ الصيغة المناسبة للتصدير
الصيغة المناسبة للتصدير إلى Blackboard يجب أن تكون Unicode Text
مثال: ملف الوحدة الأولى Bb_Q&A_01.xlsx
FILE > Save As >
Save as type = Unicode Text (*.txt)
File name = Bb_Q&A_01.txt
وينفذ ذلك لجميع الوحدات
ويمكن عمل ماكرو لتنفيذ ذلك تلقائيا
أولا: إنشاء الماكرو ليقوم بحفظ نسخة من المصنف الحالي في نفس المجلد لكن من نوع Unicode
DEVELOPER > Visual Basic
VBAProject (PERSONAL.XLSB) > Modules > Module1
Sub SaveAsUnicode()
‘
‘ SaveAsUnicode Macro
‘ Save Excel sheet as Unicode text
‘
Dim currentFile As String
currentFile = Left(ActiveWorkbook.FullName, _
(InStrRev(ActiveWorkbook.FullName, “.”, -1, vbTextCompare) – 1))
‘This will account for any file extension (.xlsx, .xlsm, .xls, etc)
ActiveWorkbook.SaveAs Filename:=currentFile & “.txt”, _
FileFormat:=xlUnicodeText, CreateBackup:=False
End Sub
ثانيا: ضبط مواصفات الماكرو
DEVELOPER > Macros
Macros in = PERSONAL.XLSB (Personal Macro Workbook)
PERSONAL.XLSB!SaveAsUnicode
[Options]
Shortcut Key = Crtl+Shift+T (eg)
Description = Save Excel sheet as Unicode text
الآن يمكنك فتح ملفات XLSX تباعا ثم الضغط على Ctrl+Shift+T لحفظ نسخة Unicode text في نفس المجلد ثم الخروج (بدون حفظ)