صمم برامجك بنفسك بكل بساطة

المهندسون و اصحاب الشواهد العليا



أنت كذلكاخي في منتديات العراق 18بامكانك تصميم برامج

بعد ان صممت برنامجك الاول الخاص بتشغيل اذاعاتك المفضلة عند زيارتك لهذا الموضوع

صمم بنفسك برنامج تشغيل اذاعاتك المفضلة ۩۩ للمبتدئين و المحترفين ۩۩

الان يمكنك تصميم برنامجك الثاني و الخاص بتشغيل القرآن الكريم

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
فكرة البرنامج
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

بينما اتا اتجول في النت لفت انبهاهي برنامج لتشغيل القرآن الكريم من النت



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

البرنامج يقوم بتشغيل القرآن الكريم على جهازك دون تحميل الملفات الصوتية

يشغل الملفات من الانترنيت انطلاقا من احد مواقع القرآن لكريم

يعطيك امكانية اختيار المقرئ

يعطيك ايضا امكانية اختيار السورة


۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
و سائل العمل
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

Visual Basic 6

كوب كبير من القهوة

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩


لا تتوفر على برنامج Visual Basic 6 و تريد تعلم طريقة تنصيبه

راجع هذا الموضوع

شرح بالصور لمراحل تنصيب Visual Basic6 ۩۩ بالاضافة الى رابط تحميل البرنامج كاملا ۩۩

انظر الصورة التالية بها جميع مراحل التنصيب



بسم الله نبدأ الدرس الان

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

و تتناول المرحلة الاولى التي هي عبارة عن مراحل تصميم واجهة البرنامج




انتهينا من تصميم واجهة البرنامج

الان ننتقل الى مرحلة البرمجة

و تتناول ارفاق الازرار بالاوامر

هذه المرحلة تتطلب جهدا كبيرا خاصة اذا كنت تريد اضافة مقرئين عدة

لكن اذا فهمت الطريقة جيدا ستسطيع اضافة ما تشاء

يكفي التركيز جيدا في الفقرة القادمة و بامعان شديد

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

اضغط مرتين متتاليتين على ال Form او صفحة العمل

ستفتح صفحة بيضاء بها سطرين


كود:

Private Sub Form_Load()

End Sub

ستدخل الان اوامر اضافة لائحة السور

ليصبح الكود كما يلي


كود:

Private Sub Form_Load()

Combo1.AddItem "الفاتحة"
Combo1.AddItem "الاخلاص"
Combo1.AddItem "الفلق"
Combo1.AddItem "الناس"

Combo2.AddItem "السديس"
Combo2.AddItem "الشريم"

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 باسم جديد في نفس مجلد المشروع

اضغط على المثلث الازرق لتجربة برنامجك
كل شيء على ما يرام
اضغط على المربع الازرق لايقاف التجربة

قم بانشاء الملف التنفيذي

جرب البرنامج

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

۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

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




يمكنك تحميل المشروع من هنا و التعديل عليه كما تشاء




ارجو ان ينال هذا الموضوع رضاكم و متمنياتي لكم بالمزيد من العلم و المعرفة