بعد ان اضفت مشغل الاصوات الميديا بلاير الى مشروعك
قم باضافة مشغل الاصوات ريال بلاير فوق الميديا بلاير بنفس الحجم تماما
طبعا سيختفي الميديا بلاير من واجهة البرنامج
لا تقلق فانه موجود (انه فقط مختب لانه محرج من زميله الريال )
الان ننتقل للاموار التي سيتلقاها البرنامج لاستعمال الريل بدل الميديا
سبق و ان رأينا ان كل زر ترافقه مجموعة اوامر تسمى Code
مثلا لتشغيل راديو سوا المغرب الكود الذي يرافق الزر هو كالاتي
كود:
Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://www.radiosawa.com/livestreams/radiosawanafr.asx"
End Sub
لكننا الان لدينا اكثر من مشغل
و بالتالي يجب اضافة بعض الاوامر لوضع المشغل الذي سنستعمله في الواجهة
(او بمعنى اخر اخفاء المشغل الذي لا نستعمل)
يجب ايضا ايقاف المشغل عند تغيير من اذاعة الى اخرى
نفترض اننا نشغل راديو يعمل على الرييل ثم تحولنا الى محطة تعمل على الميديا...
يجب ايقاف تشغيل الرييل ثم اخفائه و وضع الميديا بلاير في الواجهة ...
وصلت المعلومة... صح؟؟؟؟
أكيد
الان سنرى كيف ذلك
كود:
Private Sub Command1_Click()
RealAudio1.Visible = False
WindowsMediaPlayer1.Visible = True
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://easylink.playstream.com/seawm1/Quran_Karim.wvx"
End Sub
ساشرح الاوامر بالكود
1- عند الضغط على الزر Command1 قم بما يلي
2- اخفاء المشغل الريال بلاير
3- اظهار المشغل الميديا بلاير
4- ايقاف تشغيل الريال بلاير (حتى اذا لم يكن في طور العمل )
5- ايقاف تشغيل الميديا بلاير (حتى اذا لم يكن في طور العمل )
6- امر تشغيل الراديو بالميديا بلاير (اعطاء الميديا الامر بتشغيل الراديو من الرابط ...)
7- انتهاء الاوامر
الان نفترض اننا نريد تشغيل راديو يعمل مع الريل بلاير
ساضع الكود الذي يرجب ارفاقه (هو طبعا عكس الكود الاول)
كود:
Private Sub Command2_Click()
RealAudio1.Visible = True
WindowsMediaPlayer1.Visible = False
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
End Sub
الان شرح مختصر لاوامر الكود
1- عند الضغط على الزر Command1 قم بما يلي
2- اظهار المشغل الريال بلاير
3- اخفاء المشغل الميديا بلاير
4- ايقاف تشغيل الريال بلاير (حتى اذا لم يكن في طور العمل )
5- ايقاف تشغيل الميديا بلاير (حتى اذا لم يكن في طور العمل )
6- امر تشغيل الراديو بالريال بلاير (اعطاء المشغل الريل بلاير الامر بتشغيل الراديو من الرابط ...)
7- بداية التشغيل
8- انتهاء الاوامر
لا باس من تذكيركم طريقة اضافة الكود الى الزر
اضغط على الزر مرتين متتاليتين بالماوس ستفتح لك صفحة بيضاء
بها الكود التالي
كود:
Private Sub Command1_Click()
End Sub
الازرار تاخذ اسماءا تنتهي بلارقام تصاعدية
فالزر الذي انشأته في الاول يأخذ الاسم Command1 والثاني Command2 و الثالث Command3
و هكذا
لذا ستلاحظ ان ضغطت مررتين متتاليين على الزر الثاني ستفتح لك صفحة بيضاء بها الكود التالي
كود:
Private Sub Command2_Click()
End Sub
ما تغير هو فقط اسم الزر ... وصلت المعلومة ...أليس كذلك؟؟
أكيد..
الان و كما سبقت ان شرحت في السابق
اذا كانت الاذاعة تشغل بالريل فهذا هو الكود الذي ستنقله بين السطرين الذين حصلت عليها في الصفحة البيضاء جراء النقر مرتيين على الزر
كود:
RealAudio1.Visible = True
WindowsMediaPlayer1.Visible = False
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
أما ذا كانت المحطة عمل على الميديا فهذا هو الكود الذي ستنقله بين السطرين الذين حصلت عليهما في الصفحة البيضاء جراء الضغط مرتين تتالين على زر الاذاعة في صفحة العمل
كود:
RealAudio1.Visible = False
WindowsMediaPlayer1.Visible = True
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://easylink.playstream.com/seawm1/Quran_Karim.wvx"
أنت طبعا تملك من الذكاء ما يجعلك تغير رابط الاذاعات التي وضعت في الشرح بروابط اذاعاتك المفضلة
لا تحذف ال "" فرابط الاذاعة يجب ان يوضع بين ال "" ... "رابط الاذاعة"
الان ساشرح كيفية اضهار المشغل ميديا بلاير تلقائيا عند تشغيل لبرنامج بدل الريل بلاير
اضغط بالماوس على الريل في نافذة العمل
ثم اذهي الى يسار النافذة و غير قيمة Visible من True الى False
هكذاسيظهر Media Player تلقائيا في واجهة البرنامج عند بداية تشغيله
انضر النتيجة
و ترقبوا شرح كيفية اخيار وضعية البرنامج في الشاشة عند التشغيل
الغاء زر تكبير الشاشة
وضع اسم للبرنامج و ايقونة
ربما المزيد...
قم باضافة مشغل الاصوات ريال بلاير فوق الميديا بلاير بنفس الحجم تماما
طبعا سيختفي الميديا بلاير من واجهة البرنامج
لا تقلق فانه موجود (انه فقط مختب لانه محرج من زميله الريال )
الان ننتقل للاموار التي سيتلقاها البرنامج لاستعمال الريل بدل الميديا
سبق و ان رأينا ان كل زر ترافقه مجموعة اوامر تسمى Code
مثلا لتشغيل راديو سوا المغرب الكود الذي يرافق الزر هو كالاتي
كود:
Private Sub Command1_Click()
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://www.radiosawa.com/livestreams/radiosawanafr.asx"
End Sub
لكننا الان لدينا اكثر من مشغل
و بالتالي يجب اضافة بعض الاوامر لوضع المشغل الذي سنستعمله في الواجهة
(او بمعنى اخر اخفاء المشغل الذي لا نستعمل)
يجب ايضا ايقاف المشغل عند تغيير من اذاعة الى اخرى
نفترض اننا نشغل راديو يعمل على الرييل ثم تحولنا الى محطة تعمل على الميديا...
يجب ايقاف تشغيل الرييل ثم اخفائه و وضع الميديا بلاير في الواجهة ...
وصلت المعلومة... صح؟؟؟؟
أكيد
الان سنرى كيف ذلك
كود:
Private Sub Command1_Click()
RealAudio1.Visible = False
WindowsMediaPlayer1.Visible = True
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://easylink.playstream.com/seawm1/Quran_Karim.wvx"
End Sub
ساشرح الاوامر بالكود
1- عند الضغط على الزر Command1 قم بما يلي
2- اخفاء المشغل الريال بلاير
3- اظهار المشغل الميديا بلاير
4- ايقاف تشغيل الريال بلاير (حتى اذا لم يكن في طور العمل )
5- ايقاف تشغيل الميديا بلاير (حتى اذا لم يكن في طور العمل )
6- امر تشغيل الراديو بالميديا بلاير (اعطاء الميديا الامر بتشغيل الراديو من الرابط ...)
7- انتهاء الاوامر
الان نفترض اننا نريد تشغيل راديو يعمل مع الريل بلاير
ساضع الكود الذي يرجب ارفاقه (هو طبعا عكس الكود الاول)
كود:
Private Sub Command2_Click()
RealAudio1.Visible = True
WindowsMediaPlayer1.Visible = False
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
End Sub
الان شرح مختصر لاوامر الكود
1- عند الضغط على الزر Command1 قم بما يلي
2- اظهار المشغل الريال بلاير
3- اخفاء المشغل الميديا بلاير
4- ايقاف تشغيل الريال بلاير (حتى اذا لم يكن في طور العمل )
5- ايقاف تشغيل الميديا بلاير (حتى اذا لم يكن في طور العمل )
6- امر تشغيل الراديو بالريال بلاير (اعطاء المشغل الريل بلاير الامر بتشغيل الراديو من الرابط ...)
7- بداية التشغيل
8- انتهاء الاوامر
لا باس من تذكيركم طريقة اضافة الكود الى الزر
اضغط على الزر مرتين متتاليتين بالماوس ستفتح لك صفحة بيضاء
بها الكود التالي
كود:
Private Sub Command1_Click()
End Sub
الازرار تاخذ اسماءا تنتهي بلارقام تصاعدية
فالزر الذي انشأته في الاول يأخذ الاسم Command1 والثاني Command2 و الثالث Command3
و هكذا
لذا ستلاحظ ان ضغطت مررتين متتاليين على الزر الثاني ستفتح لك صفحة بيضاء بها الكود التالي
كود:
Private Sub Command2_Click()
End Sub
ما تغير هو فقط اسم الزر ... وصلت المعلومة ...أليس كذلك؟؟
أكيد..
الان و كما سبقت ان شرحت في السابق
اذا كانت الاذاعة تشغل بالريل فهذا هو الكود الذي ستنقله بين السطرين الذين حصلت عليها في الصفحة البيضاء جراء النقر مرتيين على الزر
كود:
RealAudio1.Visible = True
WindowsMediaPlayer1.Visible = False
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
أما ذا كانت المحطة عمل على الميديا فهذا هو الكود الذي ستنقله بين السطرين الذين حصلت عليهما في الصفحة البيضاء جراء الضغط مرتين تتالين على زر الاذاعة في صفحة العمل
كود:
RealAudio1.Visible = False
WindowsMediaPlayer1.Visible = True
RealAudio1.DoStop
WindowsMediaPlayer1.Controls.Stop
WindowsMediaPlayer1.URL = "http://easylink.playstream.com/seawm1/Quran_Karim.wvx"
أنت طبعا تملك من الذكاء ما يجعلك تغير رابط الاذاعات التي وضعت في الشرح بروابط اذاعاتك المفضلة
لا تحذف ال "" فرابط الاذاعة يجب ان يوضع بين ال "" ... "رابط الاذاعة"
الان ساشرح كيفية اضهار المشغل ميديا بلاير تلقائيا عند تشغيل لبرنامج بدل الريل بلاير
اضغط بالماوس على الريل في نافذة العمل
ثم اذهي الى يسار النافذة و غير قيمة Visible من True الى False
هكذاسيظهر Media Player تلقائيا في واجهة البرنامج عند بداية تشغيله
انضر النتيجة
و ترقبوا شرح كيفية اخيار وضعية البرنامج في الشاشة عند التشغيل
الغاء زر تكبير الشاشة
وضع اسم للبرنامج و ايقونة
ربما المزيد...