End Subهنا وضعت فقط لائحة لاربع سور وفي الائحة الثانية مقرئين اثنين فقط لكنك تستطيع طبعا اضافة السور 114 للمصحف الشريف كله و في اللائحة الثانية تستطيع اضافة المقرئين المفضلين لديك
افسر الكود قليلا
كود:Combo1.AddItem "الفاتحة"تعني اضف الى اللائحة اختيارا باسم الفاتحة
كود:Combo2.AddItem "الشريم"تعني اضف الى اللائحة اختيارا باسم الشريم
الان اضغط مرتين متتاليتين على الزر إيقاف مؤقت
ستلاحظ ظهور سطرين جديدين في الصفحة البيضاء
كود:Private Sub Command2_Click()
End Subاضف الكود النالي و هو الامر بالايقاف الؤقت للتشغيل
كود:RealAudio1.DoPlayPauseسيصبح الكود على الشكل التالي
كود:Private Sub Command2_Click()
RealAudio1.DoPause
End Sub الان اضغط مرتين متتاليتين على الزر إيقاف
ستلاحظ ظهور سطرين جديدين في الصفحة البيضاء
كود:Private Sub Command3_Click()
End Subاضف الكود النالي و هو الامر بايقاف التشغيل
كود:RealAudio1.DoStopسيصبح الكود على الشكل التالي
كود:Private Sub Command3_Click()
RealAudio1.DoStop
End Subالان سننتقل الى زر التشغيل
فانتبه جيدا....
أضغط مرتتين متتاليتين على زر تشغيل
سيضاف سطرين جديدين الى الصفحة
كود:Private Sub Command1_Click()
End Subستدخل الكود الخاص بتشغيل السورة المختارة بصوت المقرئ المختار
اذا فهمت جيدا الكود تستطيع اتمامه لتضع البقية (سور المصحف الشريف باصوات عدة مقرئين)
اولا ساشرح كيفية اضافة رسالة تحذيرية عند الضغط على زر التشغيل دون اختيار اسم المقرئ او اسم السورة
اذا لم يسبق لك دراسة اي لغة برمجة فتتبع معي هذه الفقرة
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
سأحاول تبسيط الشرح و اعذروني اذا كان اسلوبي ركيكا لانني لم ادرس ابدا علوم الكمبيوتر بالعربية
من مبادئ لغة البرمجة الجمل الشرطية (لا اتكلم على قواعد اللغة العربية ) انها اوامر تعطى للكمبيوتر من خلال البرنامج للقيام بعمل محدد
مثلا تقول لاخيك الصغير باللغة العربية ۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩ اذا كان الجو ماطرا غدا اذن اقعد في البيت و الا اذهب لاتتنزه في الحديقة ۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
عند تحقق الشرط "الجو ماطر" اخوك سيتلقى الامر بالقعود في البيت أما اذا لم يكن الجو ماطرا (لم يتحقق الشرط) فاخوك الصغير سيتلقى منك امرا بالخروج الى الحديقة
بلغة الكمبيوتر التي هي قريبة جدا من اللغة الانجليزية ستكتب الجملة الشرطية على الشكل التالي
كود:If (condition) Then [statements] Elseif (condition) Then [statements] End Ifساعود الان لبرنامجنا نريد وضع رسالة تحذيرية عند الضغط على الزر تشغيل دون اختيار اسماء المقرئين
الامر الخاص بظهور رسالة تحذيرية هو كالتالي
كود:MsgBox (" هذه رسالة تحذيرية")كود:If Combo1.Text = "" Then MsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")
ElseIf Combo2.Text = "" Then MsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل") End Ifالان ساترجم الاوامر الى العربية اذا كانت الخانة Combo1 فارغة اذن اكتب الرسالة التحذيرية الاتية عفوا...عليك باختيار السورة قبل التشغيل و الا اذا كانت الخانة Combo2 فارغة اذن اكتب الرسالة التحذيرية التالية عفوا...عليك باختيار المقرئ قبل التشغيل
اذا استوعبت هذه الفقرة من الشرح فبامكانك المواصلة و الا راجع الفقرة من البداية (جملة شرطية يمكن ايضا ترجمتها الى لغة Vb )
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
الان ساواصل الكود الخاص بالزر تشغيل
كود: If Combo2.Text = "السديس" Then
If Combo1.Text = "الفاتحة" Then RealAudio1.Source = "http://www.mp3quran.net/sds/001.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الاخلاص" Then RealAudio1.Source = "http://www.mp3quran.net/sds/112.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الفلق" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/sds/113.mp3" RealAudio1.DoPlay
ElseIf Combo1.Text = "الناس" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/sds/114.mp3" RealAudio1.DoPlay End If
End If
If Combo2.Text = "الشريم" Then
If Combo1.Text = "الفاتحة" Then RealAudio1.Source = "http://www.mp3quran.net/shur/001.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الاخلاص" Then RealAudio1.Source = "http://www.mp3quran.net/shur/112.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الفلق" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/shur/113.mp3" RealAudio1.DoPlay
ElseIf Combo1.Text = "الناس" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/shur/114.mp3" RealAudio1.DoPlay
End If
End Ifاذا استوعبت هذا الكود فمبروك عليك برنامجك الجديد فانت قادر على اتمامه و الا راجع معي هذا الشرح (جملة شرطية ايضا)
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
اذا كانت الخانة Combo2 بها النص الشريم اذن
اذا كانت الخانة Combo1 بها النص الفاتحة اذن افتح بالريل بلاير مسار لف سورة الفاتحة برابط الشريم شغل الملف بعد التاكد من ايقاف الريل
و الا اذا كانت الخانة Combo1 بها النص الاخلاص اذن افتح بالريل بلاير مسار لف سورة الاخلاص برابط الشريم شغل الملف بعد التاكد من ايقاف الريل
اذا كانت الخانة Combo1 بها النص الفلق اذن افتح بالريل بلاير مسار لف سورة الفلق برابط الشريم شغل الملف بعد التاكد من ايقاف الريل
اذا كانت الخانة Combo1 بها النص الناس اذن افتح بالريل بلاير مسار لف سورة الناس برابط الشريم شغل الملف بعد التاكد من ايقاف الريل
نهاية اذا (الاولى) نهاية اذ ا( الثانية)
اذا كانت الخانة Combo2 بها النص السديس اذن
اذا كانت الخانة Combo1 بها النص الفاتحة اذن افتح بالريل بلاير مسار لف سورة الفاتحة برابط السديس شغل الملف بعد التاكد من ايقاف الريل
و الا اذا كانت الخانة Combo1 بها النص الاخلاص اذن افتح بالريل بلاير مسار لف سورة الاخلاص برابط السديس شغل الملف بعد التاكد من ايقاف الريل
اذا كانت الخانة Combo1 بها النص الفلق اذن افتح بالريل بلاير مسار لف سورة الفلق برابط السديس شغل الملف بعد التاكد من ايقاف الريل
اذا كانت الخانة Combo1 بها النص الناس اذن افتح بالريل بلاير مسار لف سورة الناس برابط السديس شغل الملف بعد التاكد من ايقاف الريل
نهاية اذا (الاولى) نهاية اذ ا( الثانية)
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
اكيد انك فهمت ....صح؟؟؟
تستطيع اكمال الكود باضافة السور المتبقية و اضافة المقرئين المتبقيين
الان ساضع بين يديك الكود كاملا الذي سيتلاقاه الزر تشغيل
كود:If Combo1.Text = "" Then MsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")
ElseIf Combo2.Text = "" Then MsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل") End If
If Combo2.Text = "السديس" Then
If Combo1.Text = "الفاتحة" Then RealAudio1.Source = "http://www.mp3quran.net/sds/001.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الاخلاص" Then RealAudio1.Source = "http://www.mp3quran.net/sds/112.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الفلق" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/sds/113.mp3" RealAudio1.DoPlay
ElseIf Combo1.Text = "الناس" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/sds/114.mp3" RealAudio1.DoPlay End If
End If
If Combo2.Text = "الشريم" Then
If Combo1.Text = "الفاتحة" Then RealAudio1.Source = "http://www.mp3quran.net/shur/001.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الاخلاص" Then RealAudio1.Source = "http://www.mp3quran.net/shur/112.mp3" RealAudio1.DoStop RealAudio1.DoPlay
ElseIf Combo1.Text = "الفلق" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/shur/113.mp3" RealAudio1.DoPlay
ElseIf Combo1.Text = "الناس" Then RealAudio1.DoStop RealAudio1.Source = "http://www.mp3quran.net/shur/114.mp3" RealAudio1.DoPlay
End If
End Ifاحفظ المشروع باسم جديد (و تذكر اين حفظته) احفظ ال Form باسم جديد في نفس مجلد المشروع
اضغط على المثلث الازرق لتجربة برنامجك كل شيء على ما يرام اضغط على المربع الازرق لايقاف التجربة
قم بانشاء الملف التنفيذي
جرب البرنامج
اذا وجدت البرنامج يعمل بشكل جيد فانت الان قادر على اتمام المشروع باضافة البقية و الا امامك اكواب من القهوة ستشربها و سهر الليلة لغاية الصباح من اجل فهم الشرح
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
هنا رابط تحميل الملف التنفيذي للمشروع
يمكنك تحميل المشروع من هنا و التعديل عليه كما تشاء
ارجو ان ينال هذا الموضوع رضاكم و متمنياتي لكم بالمزيد من العلم و المعرفة
من اجل نشر المعرفة يسمح نقل الموضوع ونشره
عـــالم البرمجة صمم برامجك بنفسك دون الحاجة الى شواهد