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

الرئيسيةالتسجيلدخول

منتديات طيبة الجزائرية :: ¨‘°?O منتديات التصميم و الجرافيكس O?°‘¨ :: منتـــــــدى برامج التصميم العامة و ملحقاتها :: قسم برمجة وتصميم التجميعات والاسطوانات المختلفة AIO

شاطر

الإثنين 1 ديسمبر 2014 - 20:47
المشاركة رقم:
عضو vip
عضو vip

avatar

إحصائيةالعضو

مُساهمةموضوع: كيفية عمل موسوعة قرآنية لمجموعة من القراء autoplay media studio


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


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



كنت قد شرحت في السابق كيفية عمل أسطوانة لمقرئ واحد وفي صفحة واحدة ، أما اليوم فسنشرح إن شاء الله كيفية عمل موسوعة للقرأن الكريم ولعدد غير محدود من المقرئين وفي صفحة واحد فقط.

لمن أراد تحميل الشرح بالفيديو من هذا الرابط

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

وراح نبدأ الشرح المصور


أولا: نقوم بإدراج 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 // المصدر : منتديات طيبة الجزائرية // الكاتب:adel


توقيع : adel





الأربعاء 10 يناير 2018 - 10:03
المشاركة رقم:
عضو vip
عضو vip

avatar

إحصائيةالعضو

مُساهمةموضوع: رد: كيفية عمل موسوعة قرآنية لمجموعة من القراء autoplay media studio


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






 الموضوعالأصلي : كيفية عمل موسوعة قرآنية لمجموعة من القراء autoplay media studio // المصدر : منتديات طيبة الجزائرية // الكاتب:HOUWIROU


توقيع : HOUWIROU








الــرد الســـريـع
..



الذين يشاهدون محتوى الموضوع الآن : 4 (الأعضاء 1 والزوار 3)



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

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة


المواضيع الأخيرة
» Create your Application
الأربعاء 14 نوفمبر 2018 - 15:18 من طرف usamakey

» كل مايخص مصلحة تسيير نفقات المستخدمين (مصلحة الرواتب) لموظفي الأسلاك الخاصة للتربية الوطنية
الجمعة 2 نوفمبر 2018 - 15:17 من طرف adel

» نموذج قرار (مقرر) جماعي يتعلق بإدماج الموظفين و إعادة ترتيبهم
الجمعة 2 نوفمبر 2018 - 15:15 من طرف adel

» نموذج تصريح شرفي بعدم العمل جاهز للطباعة
الخميس 25 أكتوبر 2018 - 20:22 من طرف adel

» تحميل نموذج لكل من الترخيص بالمشاركة +التعهد بالاستقالة +الطلب الخطي للمشاركة في المسابقة + الاستقالة
الخميس 25 أكتوبر 2018 - 20:21 من طرف adel

» تحميل معظم مناشير و تعليمات الوظيف العمومي
الثلاثاء 23 أكتوبر 2018 - 18:14 من طرف adel

» برنامج شهادة العمل والأجر للضمان الإجتماعي "ats"
الثلاثاء 23 أكتوبر 2018 - 18:14 من طرف adel

»  النظام الجديد للكرة الطائرة
الخميس 27 سبتمبر 2018 - 8:15 من طرف HOUWIROU

»  les codes des portables pour l trois operateurs
الثلاثاء 18 سبتمبر 2018 - 8:55 من طرف HOUWIROU

»  ملف التأمين ( الضمان الإجتماعي ) واستخراج بطاقة الشفاء مع تجديدها بالنسبة للطلبة الجامعيين
السبت 15 سبتمبر 2018 - 8:39 من طرف HOUWIROU

غير مسجل
أنت غير مسجل فى منتديات طيبة الجزائرية . للتسجيل الرجاء إضغط هنـا

DMCA.com Protection Status

سحابة الكلمات الدلالية
الحوالة كيفية شروط حقوق للحصول رخصة الشابا تنفيذ التسجيل مخزون Petit الجيل مسابقة دفع البنكي قبول Robert الثاني صيانة المستثمر مكملة ansej القرض البريدية عند السياقة