كيفية عمل موسوعة قرآنية
لمجموعة من القراء
كنت قد شرحت في السابق كيفية عمل أسطوانة لمقرئ واحد وفي صفحة واحدة ، أما اليوم فسنشرح إن شاء الله كيفية عمل موسوعة للقرأن الكريم ولعدد غير محدود من المقرئين وفي صفحة واحد فقط.
لمن أراد تحميل الشرح بالفيديو من هذا الرابط
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
به أكثر من نصف ساعة والشرح بالتفصيل الممل في تجميعة
وراح نبدأ الشرح المصور
أولا: نقوم بإدراج ListBox نضع سور القرآن فيها
بعد إدراج اللسب بوكس نضغط عليه مرتين ونقوم بإدراج جميع سور القرآن في الجهة اليسرى
وإسم السورة الموجود في المجلد Audio في مجلد الأسطوانة والمقابلة للسورة المراد تشغيلها ويفضل إستعمال السور بإمتداد mp3 لصغر حجمه
بعد إدراج القائمة (ListBox) نذهب إلى المجلد Audio الموجود في ملف الأسطوانة ونقوم بإدراج مجلد لكل مقرئ
مثلا مجلد إسمه Hossari ونضع فيه صوتيات الشيخ محمود خليل الحصري ومجلد basset ونضع فيه صوتيات الشيخ عبدالباسط عبدالصمد ومجلد menshawi ونضع فيه المصحف للشيخ محمد صديق المنشاوي وهكذا نقوم بعمل مجلد لكل مقرئ حتى لا تختلط السور بين المقرئين.
بعد إدراج المجلدات نقوم بوضع سور القرآن لكل مقرئ في مجلده ونقوم بتسمية كل سورة برقم الداتا (المقابل لكل سورة في اللست بوكس)
مثلا سورة الفاتحة = 001 وطبعا تكون بامتداد mp3 فتصبح 001.mp3
سورة البقرة = 002 ونفس الشئ 002.mp3
سورة آل عمران = 003.mp3
.
.
.
وهكذا على غاية سورة الناس = 114.mp3
ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة
والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة
ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer
كما ترى في الصورة
قم بالتحكم في مكانه وطوله وعرضه
ثالثا: إدراج كومبو بوكس ComboBox
الهد من هذه القائمة هو إدراج المقرئين فيها حتى إذا تم إختيار المقرئ وبعدها إختيار سورة ما يتم تشغيل السورة للمقرئ المختار
قم بالضغط على أيقونة إدراج كومبوبوكس كما ترى
نضغط على الكومبو مرتين أو بيمين الماوس ونختار خصائص كما ترى في الصورة.
نقوم بوضع المقرئين الذين نريد إدراجهم في الأسطوانة
رابعا: إدراج صفحة ويب داخل الأسطوانة
ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
تأتي الصورة الموالية ونقوم بحذف رابط الموقع ونختار صفحة مناسبة من الجهاز ويفضل أن تقوم بصنع صفحة ترحيبية للتعريف بمكونات الأسطوانة ووضع معلوماتك فيها وهي تظهر بمجرد تشغيل الأسطوانة وقبل الشروع في الاستماع
قم باختيار الصفحة الترحيبية التي قمت بصنعها
كذلك نحتاج لصور سور القرآن الكريم، لإدراجها على شكل صفحات ويب وفبدل أن المستمع يبقى يتفرج على التصميم رايح يستمع ويتابع من المصحف داخل الأسطوانة وبالتالي يكون أدعى للحفظ و تدبر هذا القرآن
وأما كيفية التعامل مع صور سور القرآن رايح نفتح برنامج الـ FrontPage
ونذهب إلى الأمر Inser ثم Images ونختار صورة سور القرآن
بعد إكمال جميع السور ونقوم بنسخها إلى المجلد Docs نأتي لأهم شئ وهو إدراج الأكواد اللازمة
نأتي إلى اللست بوكس ListBox ونضغط عليه مرتين ونختار سكريبت
نقوم بإدراج الكود
كود:
--كيفية الحصول على الكود السابق
-- إيجاد النص المكتوب في الكومبو بوكس
nSelect = ComboBox.GetText("ComboBox1");
-- إيجاد السور المحددة في اللست بوكس
Sura_Selected = ListBox.GetSelected("ListBox1");
--إيجاد الداتا للسورة المحددة
result = ListBox.GetItemData("ListBox1", Sura_Selected[1]);
-- ألآن نبدأ في الكود
if nSelect == "إختر المقرئ"then
--عرض رسالة خطأ إختر المقرئ من فضلك
Dialog.Message("","إختر المقرئ من فضلك");
elseif nSelect == "محمود خليل الحصري" then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ الحصري
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..".mp3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");
-- نقوم بنفس ما قمنا به مع الشيخ الحصري للشيوخ الآخرين
elseif nSelect == "عبدالباسط عبدالصمد" then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".mp3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");
elseif nSelect == "محمد صديق المنشاوي"then
-- تشغيل السورة الموافقة للداتا في مجلد الشيخ
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result..".mp3");
--تشغيل صفحة الويب الموافقة للسورة المختارة
Web.LoadURL("Web1", "AutoPlay\\Docs\\"..result..".htm");
-- وهكذا
end
الكود مرفق باسم List_Code وبامتداد LUA أي أنك تفتح محرر السكريبت
وتضغط على Ctrl+O من لوح المفاتيح لإستراد الكود
هذه صورة الكود
يجب أن يكون الإسم الموجود في الكومبو هو نفسه الموجود في الكود في اللست واي فراغ أو حرف إضافي راح يحدث خلل في الأسطوانة
الأن نأتي للخطوة واللمسة السحرية في الأسطوانة
وهي جعل السور الموجودة في القائمة تشغل آليا الواحدة تلو الأخرى
أي أنك تختار سورة الفاتحة وباقى السور تشغل كلما تنتهي سابقتها
لعمل ذلك إذهب إلى WMP plugin واضغط عليه مرتين
وقم بإدراج الكود الثاني باسم Magic_code
كما ترى
كود:
-- السورة الموالية في اللست بوكس
nItemsInListBox = ListBox.GetCount("ListBox1");
if nItemsInListBox ~= 0 then
-- إيجاد العنصر والسورة المحددة
tSelected = ListBox.GetSelected("ListBox1");
sJustFinishFile = ListBox.GetItemData("ListBox1", tSelected[1]);
nFileIndex = ListBox.FindItem("ListBox1", -1, 1, sJustFinishFile);
nNextFileIndex = nFileIndex+1;
if nFileIndex == nItemsInListBox or nFileIndex > nItemsInListBox then
--nNextFileIndex > nItemsInListBox or -- this will select the 1st song of the PlayList when
-- the last file is finished
ListBox.SelectItem("ListBox1", 1);
sFileName = ListBox.GetItemData("ListBox1", 1);
else
-- تشغيل السورة الموالية
sFileName = ListBox.GetItemText("ListBox1", nNextFileIndex);
result = ListBox.GetItemData("ListBox1", nNextFileIndex);
ListBox.SelectItem("ListBox1", nNextFileIndex);
nSelect = ComboBox.GetText("ComboBox1");
if nSelect == "محمود خليل الحصري"then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\hossari\\"..result..".mp3");
elseif result == "عبدالباسط عبدالصمد" then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\basset\\"..result..".mp3");
elseif result == "محمد صديق المنشاوي" then
MediaPlayer.Load("media_player", "AutoPlay\\Audio\\menshawi\\"..result..".mp3");
-- ويمكنك وضع المزيد من المقرئين هنا بنفس الطريقة
end
Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".htm");
end
end
وإلى هنا نكون قد أنهينا الشرح ويبقى عليك القيام بالمعاينة وترى النتيجة
الموضوعالأصلي : كيفية عمل موسوعة قرآنية لمجموعة من القراء autoplay media studio // المصدر :