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

منتدى فرجيوة للتكنولوجية الرقمية

للتكنولوجية الرقمية
 
الرئيسيةأحدث الصورالتسجيلدخول
التوقيت
مواضيع مماثلة
المواضيع الأخيرة
» برنامج Bentley ProStructures V8i
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالإثنين يونيو 03, 2019 1:29 am من طرف nader_khamis

» برنامج الحساب الجبرى وحل المعادلات وحساب التكامل والاشتقاق ورسم المعادلات وغيرها من المميزات
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:36 am من طرف سفيرالسلام

» برنامج يرسم مستقيمات و نقاط في الاتوكاد احداثياتها في الاكسل
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:33 am من طرف سفيرالسلام

» برامج هندسية - برامج رسم - برنامج autocad 2010 كامل ل 32 و 64 بت
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:27 am من طرف سفيرالسلام

»  برامج رسم - برنامج Ram Connection
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:24 am من طرف سفيرالسلام

» برنامج Autocad 2015 كامل
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:23 am من طرف سفيرالسلام

» برنامج Autodesk Advance Concrete 2015
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:20 am من طرف سفيرالسلام

» برنامج autodesk advance steel 2015
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 1:09 am من طرف سفيرالسلام

» برنامج تصميم خرائط المنازل 2014 للكومبيوتر
كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالخميس يناير 08, 2015 12:38 am من طرف سفيرالسلام

ازرار التصفُّح
 البوابة
 الرئيسية
 قائمة الاعضاء
 البيانات الشخصية
 س .و .ج
 بحـث
التبادل الاعلاني
أفضل 10 أعضاء في هذا الأسبوع
لا يوجد مستخدم
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم

 

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

اذهب الى الأسفل 
كاتب الموضوعرسالة
سفيرالسلام
المديرالعام
سفيرالسلام


الجنس : ذكر
عدد المساهمات : 187
نقاط : 523
تاريخ الميلاد : 12/10/1980
تاريخ التسجيل : 26/01/2011
العمر : 43

كيفية عمل موسوعة قرآنية لمجموعة من القراء  Empty
مُساهمةموضوع: كيفية عمل موسوعة قرآنية لمجموعة من القراء    كيفية عمل موسوعة قرآنية لمجموعة من القراء  Emptyالسبت نوفمبر 01, 2014 2:41 am

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


أولا: نقوم بإدراج 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://ferdjioua-9.mam9.com
 
كيفية عمل موسوعة قرآنية لمجموعة من القراء
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
»  كيفية عمل خلفية صوتية
» كيفية حماية الأسطوانة من الإختراق

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى فرجيوة للتكنولوجية الرقمية :: منتدى برامج الكمبيوتر :: منتدى الشروحات و الدروس-
انتقل الى: