كل عام وانتم بخير 
من طرف السلام عليكم و رحمة الله
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
نظرا للاقبال و الاهتمام الكبير الذي لقيه موضوع طرحته في المشاغب حول كيفية تصميم برنامج يشغل الاذاعات المفضلة
أهدي للمهتمين طريقة أخرى لتصميم مشغل راديو بتقنية 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 كما في الصورة
تحفضه بالمسار الذي تشاء ... بسطح المكتب مثلا
و تفتحه دون الحاجة الى فتح الفيوجوال
هذا تقريبا كل شئ....
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
أرجو ان ينال الموضوع اعجابكم
و تمنياتي للجميع بالتوفيق
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
نظرا للاقبال و الاهتمام الكبير الذي لقيه موضوع طرحته في المشاغب حول كيفية تصميم برنامج يشغل الاذاعات المفضلة
أهدي للمهتمين طريقة أخرى لتصميم مشغل راديو بتقنية 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 كما في الصورة
تحفضه بالمسار الذي تشاء ... بسطح المكتب مثلا
و تفتحه دون الحاجة الى فتح الفيوجوال
هذا تقريبا كل شئ....
۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩۩
أرجو ان ينال الموضوع اعجابكم
و تمنياتي للجميع بالتوفيق
