كل عام وانتم بخير 
من طرف تتمة الشرح
كما وعدتكم هنا شرح لتصميم برنامج تشغيل الاذاعات التي تعمل فقط على Real Player
اذكر انه من الازم ان تكون قد نصبت Real Player على جهازك حتى تتمكن من تطبيق مراحل الشرح
بسم الله نواصل الشرح
تتبع جميع مراحل الشرح السابقة و توقف عند المرحلة 7
8- عند الضغط على Components اختر من القائمة Real Player ActiveX Library كما في الصورة
ثم اضغط على Ok
9- لاحظ ظهور ايقونة البلاير في شريط الادوات
اضغط على ايقونة الريل بلاير ثم اذهب الى صفحة العمل و قم بانشاء مشغل الصوتيات بالحجم الذي تريده
10- لاحظ معي اسم البلاير الذي اضفت RealAudio1 (لا تقم بتعديله اتركه كما هو)
12- انقل الثلاثة اسطر الاتية و ضعها بين السطرين الاولين
كود:
RealAudio1.DoStop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
13- سيصبح الكود على الشكل التالي
كود:
Private Sub Command32_Click()
RealAudio1.DoStop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
End Sub
جميع المراحل الاخرى متشابهة
قريبا طريقة تصميم برنامج يمكن من تشغيل في نفس الوقت الاذاعات التي تعمل مع الريل بلاير و الاخرى التي تعمل مع الميديا بلاير
الطريقة بسيطة جدا جدا ... ترقبوا الشرح قريبا ان شاء الله
اتمنى للمغرمين بالبرمجة و تعلم الجديد الاستفادة من الموضوع
و لا تحرمونا من ردرودك و تشجيعاتكم
كما وعدتكم هنا شرح لتصميم برنامج تشغيل الاذاعات التي تعمل فقط على Real Player
اذكر انه من الازم ان تكون قد نصبت Real Player على جهازك حتى تتمكن من تطبيق مراحل الشرح
بسم الله نواصل الشرح
تتبع جميع مراحل الشرح السابقة و توقف عند المرحلة 7
8- عند الضغط على Components اختر من القائمة Real Player ActiveX Library كما في الصورة
ثم اضغط على Ok
9- لاحظ ظهور ايقونة البلاير في شريط الادوات
اضغط على ايقونة الريل بلاير ثم اذهب الى صفحة العمل و قم بانشاء مشغل الصوتيات بالحجم الذي تريده
10- لاحظ معي اسم البلاير الذي اضفت RealAudio1 (لا تقم بتعديله اتركه كما هو)
12- انقل الثلاثة اسطر الاتية و ضعها بين السطرين الاولين
كود:
RealAudio1.DoStop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
13- سيصبح الكود على الشكل التالي
كود:
Private Sub Command32_Click()
RealAudio1.DoStop
RealAudio1.Source = "http://streaming1.mpl1.ovea.net:8000/medi1.m3u"
RealAudio1.DoPlay
End Sub
جميع المراحل الاخرى متشابهة
قريبا طريقة تصميم برنامج يمكن من تشغيل في نفس الوقت الاذاعات التي تعمل مع الريل بلاير و الاخرى التي تعمل مع الميديا بلاير
الطريقة بسيطة جدا جدا ... ترقبوا الشرح قريبا ان شاء الله
اتمنى للمغرمين بالبرمجة و تعلم الجديد الاستفادة من الموضوع
و لا تحرمونا من ردرودك و تشجيعاتكم
