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

[بحر^الشوق^جنني]

السلام عليكم و حمة الله

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

الان لن يعد تصميم البرامج مقتصرا على الاخرين

العباقرة ... اصحاب النظارات الكبيرة


http://www.wenamoyo.com/smiles/11.gif

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


http://www.wenamoyo.com/smiles/24.gif

أنت كذلك أخي ،اختى أصبح بامكانك تصميم برامج

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

صمم بنفسك برنامج تشغيل اذاعاتك المفضلة ۩۩ للمبتدئين و المحترفين ۩۩ (http://www.absba.org/vb/showthread.php?t=446471)

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

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

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

http://img72.imageshack.us/img72/4734/quranplayerff7.jpg

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

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

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

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

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


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

Visual Basic 6

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

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


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

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

شرح بالصور لمراحل تنصيب Visual Basic6 ۩۩ بالاضافة الى رابط تحميل البرنامج كاملا ۩۩ (http://www.absba.org/vb/showthread.php?t=447841)

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

http://img03.picoodle.com/img/img03/7/3/10/f_MicroProVBm_b517c75.gif

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

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

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

http://img145.imageshack.us/img145/4048/quranproza6.gif


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

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

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

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

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

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

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

اضغط مرتين متتاليتين على ال 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.DoPauseEnd Sub


الان اضغط مرتين متتاليتين على الزر إيقاف

ستلاحظ ظهور سطرين جديدين في الصفحة البيضاء


كود:
Private Sub Command3_Click()End Sub

اضف الكود النالي و هو الامر بايقاف التشغيل


كود:
RealAudio1.DoStop

سيصبح الكود على الشكل التالي


كود:
Private Sub Command3_Click()RealAudio1.DoStopEnd Sub

الان سننتقل الى زر التشغيل

فانتبه جيدا....

أضغط مرتتين متتاليتين على زر تشغيل

سيضاف سطرين جديدين الى الصفحة


كود:
Private Sub Command1_Click()End Sub

ستدخل الكود الخاص بتشغيل السورة المختارة بصوت المقرئ المختار

اذا فهمت جيدا الكود تستطيع اتمامه لتضع البقية (سور المصحف الشريف باصوات عدة مقرئين)

اولا ساشرح كيفية اضافة رسالة تحذيرية عند الضغط على زر التشغيل دون اختيار اسم المقرئ او اسم السورة

اذا لم يسبق لك دراسة اي لغة برمجة فتتبع معي هذه الفقرة

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

سأحاول تبسيط الشرح و اعذروني اذا كان اسلوبي ركيكا لانني لم ادرس ابدا علوم الكمبيوتر بالعربية

من مبادئ لغة البرمجة الجمل الشرطية (لا اتكلم على قواعد اللغة العربية http://absba.org/vb/images/smilies/biggrin.gif )
انها اوامر تعطى للكمبيوتر من خلال البرنامج للقيام بعمل محدد

مثلا تقول لاخيك الصغير باللغة العربية
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
اذا كان الجو ماطرا غدا اذن اقعد في البيت
و الا اذهب لاتتنزه في الحديقة http://absba.org/vb/images/smilies/biggrin.gif
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

عند تحقق الشرط "الجو ماطر"
اخوك سيتلقى الامر بالقعود في البيت
أما اذا لم يكن الجو ماطرا (لم يتحقق الشرط)
فاخوك الصغير سيتلقى منك امرا بالخروج الى الحديقة


بلغة الكمبيوتر التي هي قريبة جدا من اللغة الانجليزية ستكتب الجملة الشرطية على الشكل التالي


كود:
If (condition) Then [statements]Elseif (condition) Then [statements] End If

ساعود الان لبرنامجنا
نريد وضع رسالة تحذيرية عند الضغط على الزر تشغيل دون اختيار اسماء المقرئين

الامر الخاص بظهور رسالة تحذيرية هو كالتالي


كود:
MsgBox (" هذه رسالة تحذيرية")

كود:
If Combo1.Text = "" ThenMsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")ElseIf Combo2.Text = "" ThenMsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل")End If

الان ساترجم الاوامر الى العربية
اذا كانت الخانة Combo1 فارغة اذن
اكتب الرسالة التحذيرية الاتية عفوا...عليك باختيار السورة قبل التشغيل
و الا اذا كانت الخانة Combo2 فارغة اذن
اكتب الرسالة التحذيرية التالية عفوا...عليك باختيار المقرئ قبل التشغيل

اذا استوعبت هذه الفقرة من الشرح فبامكانك المواصلة و الا راجع الفقرة من البداية (جملة شرطية يمكن ايضا ترجمتها الى لغة Vb http://absba.org/vb/images/smilies/biggrin.gif )

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

الان ساواصل الكود الخاص بالزر تشغيل


كود:
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 = "" ThenMsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")ElseIf Combo2.Text = "" ThenMsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل")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 باسم جديد في نفس مجلد المشروع

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

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

جرب البرنامج

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

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

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

http://www.wenamoyo.com/computer/49.gif (http://www.mediafire.com/?55rnyma5dzu)


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

http://www.wenamoyo.com/computer/50.gif (http://www.mediafire.com/?cymz5myhjzn)


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

من اجل نشر المعرفة يسمح نقل الموضوع ونشره دون ذكر MicroPro

[الحـ&ـنون]

تسلم يدك يا الغاليه
ويعيطك العافيه يا رب

على هذه المدهود الراائع
دمتي بكل خير غاليتي

[彡 منى آلرـوح 彡]

http://www7.0zz0.com/2008/04/21/02/293281054.gif (http://www.0zz0.com)

يسلمو والف شكر لك

على هالمجهود الرائع

//
دمتي بخير

[حطام الذكريات]

يسلموووووووو بحوره

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

تسلم ايدك

ويعطيك الف الف عافيه

[عشقي ترابك ياوطن]

يسلموووو اختي بحر الشوووق

ويعطيك الف الف عاافيه على البرنامج الرروعه

http://abomt3eb.net/up/uploads/ff905470a5.bmp

ولا عدمنا جديدك

تحياتي لك

[العنــ بنت ــابي]

الله يعطيج العافيه اختي



ماتقصرين

[بحر^الشوق^جنني]

http://www.yallayaarab.biz/vb/uploaded/9330/thankoll.gif

http://abeermahmoud07.jeeran.com/796-Mosharkatekom-AbeerMahm.gif

[بحر^الشوق^جنني]

تسلم يدك يا الغاليه
ويعيطك العافيه يا رب

على هذه المدهود الراائع
دمتي بكل خير غاليتي
الله يجزاك الجنه على المرور


،،


كل المنا

[ابو متعب]

اشكرك اختي على النقل المتميز والروعة

[اطيب الناس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .



وسلمت على احلى موضوع مفيد

[احساس شاعر]

ما شاء الله عليك

موضوع رائع وشروحات رائعه من شخص رائع

الله يعطيك العافيه يا الغلا

ولا ننحرم من جديدك

تقبل مروري

دمت بصحه وعافيه

تقبل مروري

[أبوالوليد]

http://www.a7bk-a-up.com/pic/xGQ77246.gif

[بحر^الشوق^جنني]

جزاكم الله خيرا على المرور

//

كل المنا

[عسوله كلي دلع]

مشكوووووووووووووووووووووووووووووره ياقمر



على هالموضوع الاكثر من روعه


تقبلي مروري

[بحر^الشوق^جنني]

جزاكم الله خيرا على المرور

//

كل المنا