كيفية عمل أسطوانة للقرآن الكريم

كيفية عمل أسطوانة للقرآن الكريم
(الجزء الأول من الشرح)


في هذا الجزء والذي يليه سنتعلم كيفية عمل أسطوانة للقرآن الكريم في صفحة واحدة من المشروع للشيخ الذي تفضل أن تستمع له




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



وبدون إطالة نبدأ بكيفية صنع الأسطوانة



أولا: نقوم بإدراج ListBox نحتاجها لوضع سور القرآن



بعد إدراج اللسب بوكس نضغط عليه مرتين ونقوم بإدراج جميع سور القرآن في الجهة اليسرى

وإسم
السورة الموجود في المجلد Audio في مجلد الأسطوانة والمقابلة للسورة
المراد تشغيلها ويفضل إستعمال السور بإمتداد mp3 لصغر حجمه


وإننا نحتاجه فيما بعد لأننا سنشغله على الميديا بلاير فيما بعد


هذه صورة الـ ListBox بعد إدراج جميع السور


الآن نقوم بالضغط على الـ ListBox مرتين ونختار سكريبت ثم On Double-Click ثم Add Action


ونختار لست بوكس ثم listBox.GetListBox كما في الصورة


نختار اللست بوكس 1 ثم نكتب هذه النتيجة tbl_selected


ثم نضيف هذا السكريبت للسكريبت السابق

كود:
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);


والآن نقوم بإضافة هذا السكريبت المؤقت لأننا سنتخلى عنه فيما، أي أننا نقوم بتشغيل الصوتيات خارج الأسطوانة لحد الآن
كود:
File.Open("AutoPlay\\Audio\"..result..".mp3", "", SW_SHOWNORMAL);


وفي الأخير نحصل على هذا السكريبت كما في الصورة



الآن نقوم بالضغط على ok ثم نقوم بالمعاينة



كان
هذا درس كيفية تشغيل الملفات عن طريق اللست بوكس خارج الأسطوانة وسنتعلم
في الدرس القادم إن شاء الله كيفية تشغيل الصوتيات داخل الأسطوانة بدل
المشغل الموجود في الجهاز

عمل أسطوانة للقرآن الكريم
(الجزء الثاني)

قبل أن نشرع في الجزء الثاني من الشرح لدي ملاحظة على الدرس السابق


وهي
أنه يمكن تسمية الصوتيات في المجلد Audio باللغة العربية لكن يجب أن تكون
الـ Data المقابل في سكريبت اللست بوكس باللغة العربية كذلك وقم بملاحظة
الصورة التالية لفهم ذلك


هذا الذي أردت الإشارة إليه والآن نعود لأسطوانتنا


كان في الدرس السابق في العنصر الأول إدراج ListBox


ثانيا: إدراج MediaPlayer plugin داخل الأسطوانة


والهدف منه تشغيل السور الموجود في اللست بوكس داخل الأسطوانة

ولعمل ذلك نقوم بالضغط مرتين على صفحة العمل ونختار Plugins ثم MediaPayer

كما ترى في الصورة


قم بالتحكم في مكانه وطوله وعرضه


نعود الآن لـ ListBox ونضغط عليها بيمين الماوس ونختار خصائص


نذهب إلى سكريبت ثم OnDouble Click

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

ونحذف الثالث ونستبدله بهذا
كود:
MediaPlayer.Load("media_player", "AutoPlay\\Audio\"..result..".mp3");


وفي الأخير نحصل على هذا السكريبت
كود:
tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
MediaPlayer.Load("media_player", "AutoPlay\\Audio\"..result..".mp3");
كما ترى في الصورة




نضغط Ok ونقوم بالمعاينة ونرى النتيجة


كانت هذه الخطوة الثانية من إعداد الأسطوانة
ويتبع الخطوة الثالثة إن شاء الله