ستار مقرن
السلام عليكم ورحمة الله وبركاته
عزيزي الزائر: يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
وشكرا
ادارةالمنتدي
[

ستار مقرن

منتدى عام
 
الرئيسيةاليوميةس .و .جبحـثالتسجيلدخول
دخول
اسم العضو:
كلمة السر:
ادخلني بشكل آلي عند زيارتي مرة اخرى: 
:: لقد نسيت كلمة السر
بحـث
 
 

نتائج البحث
 
Rechercher بحث متقدم
المواضيع الأخيرة
» شرح طريقة تحديث الجوال (السوفت وير) عن طريق موقع نوكيا
الإثنين ديسمبر 10, 2012 2:05 am من طرف banibrahim

» [ برنامج ] : تخيل زيادة سرعة النت إلـ 10 أضعاف بـ Ashampoo Internet Accelerator v3.10
الثلاثاء مايو 15, 2012 12:29 pm من طرف assel3000

» أفضل برنامج الى حد الان لتحويل ملفات pdf إلى ملف word بشرح كامل ومفصل <فقط على ستار مقرن>
الإثنين أبريل 09, 2012 6:41 am من طرف الصقر الجارح

» WINDOWS 7 SP1 X86 MULTILANG.6X1 PRE ACTIV(EN-AR-NL-IT-FR-NO
السبت أبريل 07, 2012 1:55 pm من طرف الصقر الجارح

» ويندوز7 مع الحزمة لنواة 64 بت 7 لغات منشط -عربي-انكليزي-هولندي-الماني-ايطالي-فرنسي- بقسم أنظمة التشغيل ويندوز في منتديات داماس تتمة الموضوع: http://www.damasgate.com/vb/t223535/#ixzz1rOFMHBXm
السبت أبريل 07, 2012 1:53 pm من طرف الصقر الجارح

» باسكل Pascal
الجمعة أبريل 06, 2012 1:32 pm من طرف الصقر الجارح

» مسائل محلولة في البرمجة 1
الجمعة أبريل 06, 2012 1:22 pm من طرف الصقر الجارح

» دورة الباسكال عربية بالفديو حصريا
الجمعة أبريل 06, 2012 9:20 am من طرف الصقر الجارح

» برنامج فك كلمه السر لملفات الورد Rixler Word Password Recovery Master 3.5.0.3
الخميس مارس 01, 2012 11:09 am من طرف الصقر الجارح

المتواجدون الآن ؟
ككل هناك 2 عُضو متصل حالياً :: 0 عضو مُسجل, 0 عُضو مُختفي و 2 زائر

لا أحد

أكبر عدد للأعضاء المتواجدين في هذا المنتدى في نفس الوقت كان 21 بتاريخ الجمعة يونيو 22, 2012 12:03 pm
تصويت
أفضل 10 أعضاء في هذا المنتدى
الصقر الجارح
 
عباس لموشي
 
mohamed ziad
 
taha aaa
 
soufiane
 
kelrafie
 
noorsalam
 
كوكو نشات
 
saad.1987
 
banibrahim
 
سحابة الكلمات الدلالية
ألعاب Shippuden Beta الثاني موكا حلقات برامج الثانى لعبة 6300 تمارين العاب naruto ناروتو باتش service عربي نوكيا تحميل الاول لعبه suite الجزء يوغي برنامج قاموس

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
الصقر الجارح
Admin


ذكر عدد المساهمات : 354
تاريخ الميلاد : 17/02/1992
تاريخ التسجيل : 17/07/2009
العمر : 24
المزاج : جيد

مُساهمةموضوع: ۩۩۩ عـــالم البرمجة ۩۩۩ صمم برامجك بنفسك دون الحاجة الى شواهد عليا   الأربعاء يوليو 22, 2009 11:32 am

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

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

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

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



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




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


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





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

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

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

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

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


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

Visual Basic 6

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

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


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


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



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

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

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




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

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

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

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

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

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

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

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


نتبع .......


عدل سابقا من قبل نصرالدين لموشي في الأربعاء يوليو 22, 2009 11:45 am عدل 2 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
الصقر الجارح
Admin


ذكر عدد المساهمات : 354
تاريخ الميلاد : 17/02/1992
تاريخ التسجيل : 17/07/2009
العمر : 24
المزاج : جيد

مُساهمةموضوع: نكمل .......   الأربعاء يوليو 22, 2009 11:43 am

نكمل ........

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

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

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

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


كود:

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

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

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

جرب البرنامج

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

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

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




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




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


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

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