احترف البرمجة بالفيوجوال بأبسط الطرق ۩۩ مشغل راديو بتقنية OptionButton ۩۩

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

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


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

أهدي للمهتمين طريقة أخرى لتصميم مشغل راديو بتقنية OptionButton



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

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

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

تتبع معي مراحل التصميم على الصورة المتحركة التالية



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

مراحل البرمجة

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

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

أما اذا كانت هذه أول زيارة لك فلا بأس من إعادة شرح الطريقة

نريد تشغيل الاذاعات بمجرد وضع علامة بالزر الاختياري لكل اذاعة أو ما يسمى ب OptionButton

سنعطي اذن لكل زر الامر بتنفيذ أوامر ينفذها البرنامج بمجرد تلقي الزر للامر

كما تلاحظ في بيئة البرمجة بال VB لديك صفحة الواجهة

تضع فيها كل ما سيراه المستعمل عند تشغيله للبرنامج

لديك ايضا صفحة الكود (Code) و هي تعمل في الخفاء و تضم جميع الاوامر التي سيقوم بها البرنامج جراء النقر على زر او وضع علامة بزر ما او ايقاف تشغيل ...

لاضافة أوامر الى الزر الاختياري الاول ستقوم بالضغط على الزر مرتتين متتالين بالفأرة من واجهة التصميم أو ال Form1

عندها ستفتح لك صفحة بيضاء التي هي صفحة الكود

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

كود:
Private Sub Option1_Click()

End Sub

هذين السطرين عبارة عن امر بتطبيق أوامر تضعها بينهما جراء النقر على الزر الاختياري Option1

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

كود:
WindowsMediaPlayer1.URL = "http://www.رابط الاذاعة"

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

سيصبح عندئد الكود كالاتي

كود:
Private Sub Option1_Click()

WindowsMediaPlayer1.URL = "http://www.egyptradiotv.com/vbrick/vbs1http.asx"

End Sub

هذا كل شئ

ستكرر نفس العملية على جميع الازرار الاختيارية أو ButtonOption

فعند النقر على الزر الاختياري الثاني سيظهر سطرين جديدين في صفحة الكود البيضاء

كود:
Private Sub Option2_Click()

End Sub

لاحظ انهما نفس السطرين السابقين فقط تغير اسم ال Option أصبح Option2 بذل Option1

ستضع رابط اذاعتك الثانية بين السطرين ليصبح الكود كالاتي

كود:
Private Sub Option1_Click()

WindowsMediaPlayer1.URL = "http://www.egyptradiotv.com/vbrick/vbs1http.asx"

End Sub

كرر نفس العملية بالنسبة لجميع الازرار مع تغيير رابط الاذاعة لكل زر

انتهيت الان من اتمام الكود

نأتي لتجربة البرنامج بالضغط على المربع الازرق كما في الصورة (أو الزر F5 من الكيبورد)



جرب جميع الازرار لتتأكد ان الاذاعات تعمل

بعدها ستقوم بايقاف تجربة البرنامج




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

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

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

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

نأتي الى مرحلة انشاء الملف التنفيذي لفتح البرنامج دون الحاجة الى فتحه عبر الفيوجوال

يكفي الضغط على Make (ProjectName).exe من القائمة File كما في الصورة



تحفضه بالمسار الذي تشاء ... بسطح المكتب مثلا

و تفتحه دون الحاجة الى فتح الفيوجوال

هذا تقريبا كل شئ....

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

أرجو ان ينال الموضوع اعجابكم

و تمنياتي للجميع بالتوفيق

[img:f8a4]http://www.al-qlb.com/up//images8/5571076619711177[1].gif[/img:f8a4]