كيفية عمل موسوعة قرآنية لمجموعة من القراء

السلام عليكم ورحمة الله


أولا: نقوم بإدراج 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