أحمد ياسين
عدد الرسائل : 413
العمر : 26
تاريخ التسجيل : 03/04/2007
 |  موضوع: كيفية عمل أسطوانة للقرآن الكريم  الأربعاء فبراير 03, 2010 8:55 pm | |
| كيفية عمل أسطوانة للقرآن الكريم (الجزء الأول من الشرح)
في هذا الجزء والذي يليه سنتعلم كيفية عمل أسطوانة للقرآن الكريم في صفحة
واحدة من المشروع للشيخ الذي تفضل أن تستمع له، تلبية لطلبات بعض الإخوة
الذين استفسروا عن ذلك.
وهذا مثال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
في بادئ الأمر نحمد الله عز وجل على هذه النعمة التي سخرت في خدمة الدين
والقرآن وعلى هذا البرنامج، ولذلك نرجوا من الإخوة أستخدامه فيما يرضي الله
عز وجل، وإنا لنتعجب من البعض الذين يجهدون أنفسهم في صنع أقراص وأسطوانات
الغناء أو غير ذلك فيوزعها فيحمل وزرها ووزر من يستعملها، وتخيل عزيزي لو
ان البرنامج يستعمل في صنع أسطوانات القرآن الكريم أو المحاضرات أو الدروس ،
أليس تنفع صاحبها حتى بعد موته !!!.
وبدون إطالة نبدأ بكيفية صنع الأسطوانة
أولا: نقوم بإدراج 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 ونقوم بالمعاينة ونرى النتيجة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
كانت هذه الخطوة الثانية من إعداد الأسطوانة
ويتبع الخطوة الثالثة إن شاء الله
كيفية عمل أسطوانة للقرآن الكريم
(الخطوة الثالثة)
كنا قد تناولنا في الدرسين السابقين كيفية عمل أسطوانة للقرآن الكريم
واليوم إن شاء الله نكمل الخطوة الثالثة في تكوين الأسطوانة، حيث كان وضع
جميع سور القرأن في عنصر ListBox كخطوة أولى ثم إدراج MediaPlayer plugin
كخطوة ثانية أما الخطوة الثالثة فهي وضع مصحف على شكل صفحة ويب لكل سورة من
صور القرآن الكريم.
فبدل أن المستمع يبقى يتفرج على التصميم رايح يستمع ويتابع من المصحف داخل
الأسطوانة وبالتالي يكون أدعى للحفظ و تدبر هذا القرآن .
ونبدأ الخطوة الثالثة.
قبل أن نشرع في هذه الخطوة نحتاج صور لسور القرآن لكي نجعلها على شكل صفحات
ويب.
وقد وجدت صور سور القرآن في الموسوعة القرآنية الشاملة بصوت خمس مقرئين
وياريت لو واحد يملك هذه الأسطوانة يقوم برفع الصور الموجودة بداخلها حتى
تعم الفائدة ويستفيد منها الجميع بإذن الله.
يمكن تحميل صور سور القرآن من هذا الرابط
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
بعد تحميل الصور نبدأ في عمل صفحات الويب لكل سورة من القرآن.
نقوم بفتح فتح ملف وورد فارغ ونذهب إلى الأمرInsert ونختار Images ثم نحدد
الملف الموجود به صور سور القرآن الكريم كما في الصورة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نختار السورة التي نريد جعلها على شكل صفحة ويب
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
بعد إدراج السورة نقوم بحفظ الصفحة ونذهب إلى الأمر file ثم save as
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نقوم بإعطاء إسم للملف المراد حفظه ويجب تسميته بإسم السورة الملقابلة لها
في المجلد Audioونضغط على حفظ
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
بعد إنشاء الصفحة نعود لبرنامجنا وللملف في الدرس السابق
نقوم بنسخ جميع سور القرآن التي تم إنشاؤها إلى المجلد Docs في ملف
الأسطوانة
ونقوم بإدراج صفحة ويب بالضغط على الأيقونة المبينة في الصورة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
تأتي الصورة الموالية ونقوم بحذف رابط الموقع ونختار صفحة مناسبة من الجهاز
ويفضل أن تقوم بصنع صفحة ترحيبية للتعريف بمكونات الأسطوانة ووضع معلوماتك
فيها وهي تظهر بمجرد تشغيل الأسطوانة وقبل الشروع في الأستماع
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نقوم باختيار الصفحة الرتحيبية كما في الصورة وتجدها في الملف المرفق
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نضع الصفحة في المكان المناسب ونتحكم في طولها وارتفاعها كما ترى
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
نضغط مرتين على صفحة الويب ونسميها Web1 كما في الصورة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
الآن نذهب إلى الـ ListBox ونضغط مرتين عليها ونختار سكريبت ثم On double
Click
ونضيف هذا السكريبت لسكريبت الدرس السابق (السكريبت الخاص بالخطوة الثانية)
كود:
Web.LoadURL("Web1", "Autoplay\\Docs\\"..result..".mht");
تلاحظ إمتداد mht وأنت تقوم بوضع الإمتداد المناسب htm أو mht حسب
امتداد الصفحة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
قم بالضغط على Ok ثم F5 للمعاينة وترى النتيجة
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]
وحمل الملف المرفق و أتمنى يفيدكم الشرح
وإلى اللقاء في درس آخر إن شاء الله.
| |
|
