اضفت مشغل الاصوات الميديا بلاير الى مشروعك 8_6_52 كل عام وانتم بخير
اضفت مشغل الاصوات الميديا بلاير الى مشروعك 8_6_52 كل عام وانتم بخير
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.



 
الرئيسيةبوابة 2أحدث الصورالتسجيلشاتدخول

 

 اضفت مشغل الاصوات الميديا بلاير الى مشروعك

اذهب الى الأسفل 
كاتب الموضوعرسالة
الزعيم
الرئيس
الرئيس
الزعيم


ذكر
عدد الرسائل : 1095
العمر : 37
الموقع : https://pioneer.yoo7.com
العمل/الترفيه : الحاسب الالى
المزاج : الكمبيوتر
احترامك لقوانين المنتدى : 0
نقاط العضو :
اضفت مشغل الاصوات الميديا بلاير الى مشروعك Left_bar_bleue100 / 100100 / 100اضفت مشغل الاصوات الميديا بلاير الى مشروعك Right_bar_bleue

الاوسمة : اضفت مشغل الاصوات الميديا بلاير الى مشروعك 110
تاريخ التسجيل : 01/08/2008

اضفت مشغل الاصوات الميديا بلاير الى مشروعك Empty
مُساهمةموضوع: اضفت مشغل الاصوات الميديا بلاير الى مشروعك   اضفت مشغل الاصوات الميديا بلاير الى مشروعك I_icon_minitimeالإثنين 06 أكتوبر 2008, 13:42

بعد ان اضفت مشغل الاصوات الميديا بلاير الى مشروعك

اضفت مشغل الاصوات الميديا بلاير الى مشروعك Realmedia1ke3

قم باضافة مشغل الاصوات ريال بلاير فوق الميديا بلاير بنفس الحجم تماما

اضفت مشغل الاصوات الميديا بلاير الى مشروعك Realmedia2fb3

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

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

سبق و ان رأينا ان كل زر ترافقه مجموعة اوامر تسمى 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"


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

لا تحذف ال "" فرابط الاذاعة يجب ان يوضع بين ال "" ... "رابط الاذاعة"

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

اضغط بالماوس على الريل في نافذة العمل
ثم اذهي الى يسار النافذة و غير قيمة Visible من True الى False
هكذاسيظهر Media Player تلقائيا في واجهة البرنامج عند بداية تشغيله

اضفت مشغل الاصوات الميديا بلاير الى مشروعك Realmedia3by5

انضر النتيجة

اضفت مشغل الاصوات الميديا بلاير الى مشروعك Realradiosys7


اضفت مشغل الاصوات الميديا بلاير الى مشروعك Radiomediasih2

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

الرجوع الى أعلى الصفحة اذهب الى الأسفل
https://pioneer.yoo7.com
 
اضفت مشغل الاصوات الميديا بلاير الى مشروعك
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
 :: البرامج :: منتدى البرمجة-
انتقل الى: