الاستاذ مجدى
تشغيل محطات الراديو من خلال الإكسيل 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا تشغيل محطات الراديو من خلال الإكسيل 829894
ادارة المنتدي تشغيل محطات الراديو من خلال الإكسيل 103798

تشغيل محطات الراديو من خلال الإكسيل Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل محمود تارى فمرحبا به


شاطر
 

 تشغيل محطات الراديو من خلال الإكسيل

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

عدد المساهمات : 2996
تاريخ التسجيل : 22/02/2013
العمر : 65

تشغيل محطات الراديو من خلال الإكسيل Empty
مُساهمةموضوع: تشغيل محطات الراديو من خلال الإكسيل   تشغيل محطات الراديو من خلال الإكسيل Avatarالسبت أبريل 13, 2019 8:58 am

هل حلمت من قبل أن تقوم بتشغيل محطات الراديو من خلال الإكسيل ؟!
أهديكم إخواني وأحبابي في الله هذا الموضوع عله ينال إعجابكم ،


خطوات العمل :

افتح برنامج الإكسيل وانقر على Blank workbook كما بالصورة

تشغيل محطات الراديو من خلال الإكسيل Mti4mt10

بما أن ملف الإكسيل سيحتوي على أكواد فلابد من ضبط إعدادات الإكسيل إذا لم تكن قد قمت بضبطها من قبل ، لذا فأول خطوة هي إظهار التبويب Developer أو ما يعرف بالمطور

تشغيل محطات الراديو من خلال الإكسيل Mti3mt10

تشغيل محطات الراديو من خلال الإكسيل Mti4mt11

تشغيل محطات الراديو من خلال الإكسيل Mtqwnz10

تشغيل محطات الراديو من خلال الإكسيل Mzeznj10

تشغيل محطات الراديو من خلال الإكسيل Mzi4nt10

الآن بعد أن انتهينا من ضبط إعدادات الإكسيل نبدأ العمل على الملف ، ونبدأ في معرفة كيفية تشغيل محطات الراديو داخل الإكسيل
نذهب للتبويب الجديد الذي قمنا بإظهاره Developer ثم نقوم بالنقر على Insert ثم نختار More Controls كما بالصورة

تشغيل محطات الراديو من خلال الإكسيل Nzeynd10

الآن نبحث عن Windows Media Player ثم نقوم بتحديد أداة التحكم ثم ننقر OK

تشغيل محطات الراديو من خلال الإكسيل Nzeynd11

ستختفي النافذة ويظهر شكل الماوس علامة زائد سوداء ، نقوم برسم الأداة على ورقة العمل

تشغيل محطات الراديو من خلال الإكسيل Nzeynd12

الآن نقوم بضبط خصائص الأداة عن طريق عمل كليك يمين على الأداة ثم اختيار Properties (خصائص)

نقوم بتغيير خاصية الاسم Name إلى InternetRadio ثم نضغط إنتر من لوحة المفاتيح ، ثم نغلق نافذة الخصائص



بعد إغلاق نافذة الخصائص لاحظ تغير الاسم في صندوق الاسم

الآن بعد أن انتهينا من التصميم على ورقة العمل ، ننتقل لمحرر الأكواد عن طريق الضغط على Alt + F11 ، أو النقر على Visual Basic من التبويب Developer



بعد الدخول لمحرر الاكواد أول خطوة هي إدراج موديول جديد لوضع الأكواد فيه



الآن نقوم بوضع الأكواد في الموديول الذي تم إدراجه ، وإليكم الكود مع شرح لمعظم الأسطر فيه


وها هو الكود قم بنسخه ولصقه في الموديول (اختصاراً للوقت والجهد)
Sub Start_Internet_Radio()
  Dim strPath As String
 
  strPath = "http://s4.voscast.com:8172"
  If strPath = "" Then Exit Sub
 
  With Sheet1.InternetRadio
      .Url = strPath
      DoEvents
      .Controls.Play
      DoEvents
  End With
End Sub

Sub Stop_Internet_Radio()
  With Sheet1.InternetRadio
      .Controls.stop
  End With
End Sub


الآن نقوم بالرجوع لورقة العمل ونقوم برسم زري أمر أحدهما للتشغيل والآخر لإيقاف التشغيل ، ويتم رسم زر أمر من خلال التبويب Developer ثم Insert ونقوم برسم زر أمر Form Button (أو يمكن وضع صورة وربطها بالماكرو)


نقوم برسم زر الأمر وبعد الانتهاء من الرسم تظهر لنا نافذة بهذا الشكل ، نقوم من خلالها بتخصيص ماكرو لهذا الزر





نقوم بتغيير عنوان الزر عن طريق كليك يمين ثم نختر Edit Text ونكتب عنوان معبر عن الهدف من الماكرو وليكن Play (تشغيل)
ونفعل نفس الخطوة السابقة مع زر الأمر الثاني الخاص بإيقاف التشغيل ، ونسميه Stop (إيقاف)
وآخر خطوة هي النقر على أيقونة وضع التصميم للخروج من وضع التصميم Design Mode



الآن قم بالنقر على زر Play واستمتع بسماع القرآن الكريم ، وإذا أردت إيقاف التشغيل قم بالنقر على زر Stop

وأخيراً نأتي لآخر خطوة وهي حفظ الملف



تقبلوا وافر تقديري واحترامي

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

تشغيل محطات الراديو من خلال الإكسيل Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
تشغيل محطات الراديو من خلال الإكسيل
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

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