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

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

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

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

إذا كنت من محبي الاستماع إلى الإذاعات أثناء عملك على الكمبيوتر
الآن أصبح بإمكانك تصميم برنامج بنفسك لتشغيل إذاعاتك المفضلة فقط بضغطة زر واحدة
اذا كنت من محترفي البرمجة يكفيك نقل الكود ثم تصميم واجهة احترافية للبرنامج ...
اذا كنت من المبتدئين ما عليك الا تتبع المراحل و عند الانتهاء اضف ما تريد من تحسينان
اذا كنت لا تعرف شيئا عن البرمجة فانت ايضا بامكانك تصميم برنامج استماع الى راديوهات ...
ما عليك الا تتبع المراحل خطوة خطوة و بامعان و تركيز

نموذج لمشغل راديو بسيط

http://absba1.absba.org/teamwork7/446471/maradiojh2.jpg

تستطيع تحميل هذا النموذج من هنا

على Egoshare (http://www.egoshare.com/deb59777ccf90f71a0cba78be479406b/radiomicroprorar.html)

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

ادوات العمل
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

برنامج Visual Basic الاصدار السادس
كوب كبير من القهوة http://absba.org/vb/images/smilies/biggrin.gif

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

يمكنك تحميل الاصدار المحمول ل Visual Basic 6 من هنا

http://img155.imageshack.us/img155/2143/basicvyx7.jpg (http://www.softvnn.com/forums/showthread.php?t=11995)

للاسف الاصدار المحمول لا يمكن من انشاء الملف التنفيذي لاتمام المشروع
لذا يتوجب تنصيب الاصدار الكامل....او تشغيل الراديو انطلاقا من البرنامج المحمول ...

هنا رابط الاصدار الكامل باللغة الانجليزية (http://www.egoshare.com/4bde3c9f578e630a58ba384aaa93a252/visualbasic6rar.html) قام بوضعه لكم الاخ حسام الدين 1

سيريال النسخة هو 000000000 اصفار فقط ...

طريقة التنصيب مشروحة بالصور في الموضوع الاتي

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

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

بداية تصميم البرنامج
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩

1- افتح برنامج Visual Basic

http://absba1.absba.org/teamwork7/446471/exevbpb4.jpg

2- اختر Standard EXE ثم اضغط على Open

http://absba1.absba.org/teamwork7/446471/choixqx7.jpg

3- اضغط على الزر رقم 1 كما في الصورة (Command Button) لانشاء زر جديد
اذهب الى صفحة العمل و قم بانشاء زر بالمقاسات التي تريدها
(قم بالضغط على الز الايسر للفأرة و استمر في الضغط
حرك الفأرة حتى تحصل على المقاس الذي تريده ...
يمكن تغير حجم الزر و تغيير موضعه في صفحة العمل)

http://absba1.absba.org/teamwork7/446471/vb2ia4.jpg

4 - لا حظ معي ان Command1 مكتوبة على الزر
يمكن تغيرها بكتابة اسم الاذاعة التي تريد
و ذلك بكتابة اسم الراديو في الخانة 2 كما في الصورة (Caption)

http://absba1.absba.org/teamwork7/446471/vb3un4.jpg

5- لاحظ معي ان اسم الزر هو Command1 في الخانة رقم 3
(انصح المبتدئين بعدم تغيير اسم الزر لتفتادي الاخطاء ...
فقط غير ما هو مكتوب فوق الزر أي Caption)

6- كرر نفس المراحل 1 2 3 4 لانشاء ازرار جديدة بعدد الاذاعات التي تريد ان تضعها في البرنامج (لاحظ ان اسماء الازرار هي كالتالي Command1 ثم Command2 ثم Command3 )

http://absba1.absba.org/teamwork7/446471/vb4gw0.jpg

7- الان سنضيف مشغل الصوتيات Windows Media Player الى المشروع ... اضغط على مكان فارغ في شريط الادوات بالزر الايسر للفأرة ثم اضغط على Components كما في الصورة ...

http://absba1.absba.org/teamwork7/446471/vb5cv6.jpg

8- ستفتح لك نافذة جديدة بها لائحة اختر في اسفل الائحة Windows Media player ثم اضغط على Ok

http://absba1.absba.org/teamwork7/446471/vbmediamq0.jpg

يتبع

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

9- لا حظ معي ظهور ايقونة الميديا البلاير على شريط الادوات

http://absba1.absba.org/teamwork7/446471/vb7mi4.jpg

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

10- لاحظ معي اسم الميديا الذي اضفت WindowsMediaPlayer1 (لا تقم بتعديله اتركه كما هو)

http://absba1.absba.org/teamwork7/446471/vb10sa0.jpg

11- الان اصبح كل شيء جاهزا ما عليك الان الا ارفاق الكود الخاص بكل زر
اضغط مرتيين متتالين على الزر الاول ستفتح صفحة بيضاء مكتوب بها


كود:
Private Sub Command1_Click()End Sub

http://absba1.absba.org/teamwork7/446471/vb8uq9.jpg

12- انقل السطرين الاتين و ضعها بين السطرين الاولين


كود:
WindowsMediaPlayer1.Controls.StopWindowsMediaPlaye r1.URL = "http://www.radiosawa.com/livestreams/radiosawanafr.asx"

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


كود:
Private Sub Command1_Click()WindowsMediaPlayer1.Controls.StopW indowsMediaPlayer1.URL = "http://www.radiosawa.com/livestreams/radiosawanafr.asx"End Sub

http://absba1.absba.org/teamwork7/446471/vb9br0.jpg

14- ساشرح الكود باختصار
السطر الاول يعني عند الضغط على الزر Command1 قم بما يلي
السطر الثاني اذا كان الميديا بلاير في صدد تشغيل ملف اوقفه
السطر الثالث امر الميديا البلاير بتشغيل الملف الصوتي انطلاقا من الرابط
السطر الرابع انتهاء الامر

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

في اعلى صفحة العمل اضغط على الزر 4 ( المثلث الازرق) لتشغيل البرنامج الذي قمت بتصميمه

http://absba1.absba.org/teamwork7/446471/vb11yr7.jpg

ستفتح لك نافذة البرنامج الذي صممته

http://absba1.absba.org/teamwork7/446471/vb15rz6.jpg

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

16- الان اضغط على الزر رقم 5 لايقاف تشغيل البرنامج (المربع الازرق) لاتمام اضافة الاكواد الى الازرار المتبقية

17- كرر نفس المراحل 11 و 12 و 13 على الازار المتبقية ( اقصد اضافة الكود الخاص بكل زر)
للتذكير انقر مرتين متتاليتن على الزر الثاني و انقل السطرين بين السطرين الذين حصلت عليهما جراء النقر على الزر
غير رابط الاذاعة برابط اذاعتك المفضلة

http://absba1.absba.org/teamwork7/446471/endey3.jpg

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

18- اضف زرا جديدا يمكن من ايقاف البرنامج (أعطه اسم خروج أو و اضغط عليه مرتيم ثم اضف الكود الاتي ما بين السطرين End Exit )

19- اختبر برنامجك الان بتكرار المرحلة 15 و 16

20- قم الان بحفظ المشروع في مكان تختاره على قرصك الصلب

http://absba1.absba.org/teamwork7/446471/vb13iq4.jpg

http://absba1.absba.org/teamwork7/446471/vb14wm1.jpg

الان ساشرح طريقة انشاء الملف التنفيذي

اذا كنت تستعمل الاصدار الكامل من 6 Visual Basic فالامر بسيط جدا

أضغط على File ثم Make Project1.exe

http://absba1.absba.org/teamwork7/446471/makeexebt2.jpg

قم باختيار اسم الملف التنفيذي الناتج و مكان حفظه

http://absba1.absba.org/teamwork7/446471/saveexeqr9.jpg

و انتضر قليلا حتى يتم انشاء الملف التنفيذي

http://absba1.absba.org/teamwork7/446471/exedonedo5.jpg

مبروك عليك الملف التنفيذي لبرنامجك

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

الان ساشرح كيفية الحصول على روابط الاذاعات
عند فتح موقع الراديو غالبا ان الراديو يفتح بالميديا بلاير
اضغط على File ثم Propreties

http://absba1.absba.org/teamwork7/446471/radioadresseqv6.jpg



اتمنى ان ينال هذا الموضوع رضاكم

[ستراوية]

عزيزتي بحوووووووووووره اشكرك من كل قلبي
لانك ساعدتيني في تدخيل برامج الاذاعه بارك الله فيك خيتووووووووو وجزاكي الله كل خير
بحوره بس عندي سؤال هل بالامكان انه يكون بالعربي لان ابني يتعلم على كل شيء حاليا بالعربي
في الكمبيوتر
تحياتي ودمتي بود

[ابو متعب]

اختي بحر الله يعيطك العافية على الطرح المتميز
طبعن هذة البرنامج تم تصميمنة باستخدام لغة الفيجوال بيسك
لن الفيجوال بيسك تسخدم في عمل البرامج الصغيرة ومحدوة العمل
بالنسبة لسوال الاحت ستروانة اسمحي لي اختي بحر اجيب عن هذة السوال
احتي ستروانة عمل البرنامج يمكن بالغلة العربية تصمية لكن قوائم برنامج فيجوال بيسك باللغة الانجليزية

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

مشكور اختي بحوره



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






امممم



مودري احسه معقد او يبيله شغل وايد




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





دمتي سالمه يارب

[ستراوية]

اشكرك اخي فقدتك يا اعز الناس على المعلومه بارك الله فيك
الف الف شكر
تحياتي ودمت بود

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

اشكركم جميعا على المرور

والشكر موصول ايضا لفقدتك يا اعز الناس

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

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

الف الف شكر

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

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

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

جزاك الله الف خير خيتووو

على هالبرنامج الاكثر من رائع

بصراحه ممتاز

//

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

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

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


كل المنا


وجزيل الشكر

[همس الشوق]

http://img518.imageshack.us/img518/6010/98151094a2tu3.gif

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

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


كل المنا

[saady]

مشكور اخوي العزيز

[gueen]

مشكوره أخيتي

[madmax]

كل الشكروالتقديرعلى المجهودالرائع

http://www.rofof.com/img2/3qilwz3.gif

[ام البندري]

تسلمين اختي الفاضله يعطيكي الف عافيه

[الحزين وبس]

السلام عليكم ورحمه الله وبركاته
يزاج الله خير اختي على الشرح الطيب