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

#1 22-09-2007, 03:57

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

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

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

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

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

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

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

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.**** = "" Then
MsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")

ElseIf Combo2.**** = "" Then
MsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل")
End If

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

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

)

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

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

رمز:

  If Combo2.**** = "السديس" Then
            
            If Combo1.**** = "الفاتحة" Then
            RealAudio1.Source = "http://www.mp3quran.net/sds/001.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            
            ElseIf Combo1.**** = "الاخلاص" Then
            RealAudio1.Source = "http://www.mp3quran.net/sds/112.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الفلق" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/sds/113.mp3"
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الناس" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/sds/114.mp3"
            RealAudio1.DoPlay
            End If
    
     End If
    
   If Combo2.**** = "الشريم" Then
            
            If Combo1.**** = "الفاتحة" Then
            RealAudio1.Source = "http://www.mp3quran.net/shur/001.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            
            ElseIf Combo1.**** = "الاخلاص" Then
            RealAudio1.Source = "http://www.mp3quran.net/shur/112.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الفلق" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/shur/113.mp3"
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الناس" 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.**** = "" Then
MsgBox (" عفوا...عليك باختيار السورة قبل التشغيل")

ElseIf Combo2.**** = "" Then
MsgBox (" عفوا...عليك باختيار المقرئ قبل التشغيل")
End If

   If Combo2.**** = "السديس" Then
            
            If Combo1.**** = "الفاتحة" Then
            RealAudio1.Source = "http://www.mp3quran.net/sds/001.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            
            ElseIf Combo1.**** = "الاخلاص" Then
            RealAudio1.Source = "http://www.mp3quran.net/sds/112.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الفلق" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/sds/113.mp3"
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الناس" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/sds/114.mp3"
            RealAudio1.DoPlay
            End If
    
     End If
    
   If Combo2.**** = "الشريم" Then
            
            If Combo1.**** = "الفاتحة" Then
            RealAudio1.Source = "http://www.mp3quran.net/shur/001.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            
            ElseIf Combo1.**** = "الاخلاص" Then
            RealAudio1.Source = "http://www.mp3quran.net/shur/112.mp3"
            RealAudio1.DoStop
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الفلق" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/shur/113.mp3"
            RealAudio1.DoPlay
            
            ElseIf Combo1.**** = "الناس" Then
            RealAudio1.DoStop
            RealAudio1.Source = "http://www.mp3quran.net/shur/114.mp3"
            RealAudio1.DoPlay
            
            End If
    
    End If

احفظ المشروع باسم جديد (و تذكر اين حفظته)
احفظ ال Form باسم جديد في نفس مجلد المشروع

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

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

جرب البرنامج

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

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

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

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

أدوات الموضوع	البحث في الموضوع
عرض نسخة للطباعة إرسال هذه الصفحة إلى بريد إلكتروني	البحث في الموضوع: بحث متقدم
أنماط العرض
النمط الخطي الانتقال إلى النمط المختلط الانتقال إلى النمط الموضوعي

مستخدمين موجودين حالياً يشاهدون الموضوع: 1 (0 أعضاء و1 ضيوف)

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

منتدى الدروس