[RaggiTech]

كاتب الموضوع : supersmart2007

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

انا عضو جديد قديم بمعنى
انا كنت مشترك فى المنتدى منذ سنين ولكنى كنت سلبى لا اشارك بمعلومة ولا حتى سؤال
كنت اقرأ فقط

ولكن من الان قررت ان اشترك فى المنتدى حساب باسم جديد
ليكون ميلاد عضو جديد فهل من مرحب؟
وقررت بالا تكون اول مشاركة لى سؤاللا
ولكن تكون شرحا لكى اُثبت حسن نيتى واستعدادى لكى اكون ايجابيا

الدرس بمجهودى الخاص واتمنى ان يكون الموضوع مفيد



الشرح سيكون بواسطة فيجوال بيسك دوت نت 2005
ومع التعديل البسيط يمكن الاستفادة منه فى اللغات البرمجية الاخرى


سيتم مناقشة التالى

1- كيفية تشغيل الملفات الصوتية لنظام التشغيل
2- كيفية تشغيل الملفات الصوتية من نوع ويف
3- كيفية تشغيل انواع اكثر من الملفات الصوتية مثل:
wav,mp3,wma,......etc

4-تصميم مشغل صوتيات للتدريب على

• فتح الملفات الصوتية وتشغيلها
  
• معرفة اسم الاغنية ومدتها
  
• كيفية الايقاف والتشغيل والتقديم والتأخير
  
• كيفية تعلية الصوت وتوطيته
  
• كيفية تشغيل السماعة اليمنى فقط او اليسرى فقط
  
• عرض شريط تقدم الاغنية والانتقال الى اى وقت فى الاغنية
  

وهيكون صورة برنامجنا النهائى كالتالى:





نبتدى بسم الله

1-كيفية تشغيل الملفات الصوتية لنظام التشغيل:

ضع button واكتب سطر واحد من السطور التالية بداخله:

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
System.Media.SystemSounds.Beep.Play()
System.Media.SystemSounds.Asterisk.Play()
System.Media.SystemSounds.Exclamation.Play()
System.Media.SystemSounds.Hand.Play()
System.Media.SystemSounds.Question.Play()
End Sub

كل سطر يستخدم لتشغيل صوت معين ويجب استخدام سطر واحد فقط منهم
=============================================

2- كيفية تشغيل الملفات الصوتية من نوع ويف

قم باضافة button واكتب به التالى:

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sp As New System.Media.SoundPlayer
sp.SoundLocation = "c:\sample.wav"

'''''''''''''''''''''''''''''''''''''''''''
sp.Play()
sp.PlayLooping()
sp.PlaySync()
sp.Stop()
End Sub

قمنا بتعريف متغير من النوع soundplayer
وتم تحديد مكان الملف الصوتى المراد تشغيله
وبعد ذلك يتم استخدام سطر واحد فقط من الثلاث اسطر التالية لتشغيل الملف الصوتى والاختلافات بينهم كالتالى

sp.Play
لتشغيل الملف الصوتى وتنفيذ اى كود برمجى بعده بدون مشاكل

sp.PlayLooping
لتشغيل الملف الصوتى واعادة تشغيله بصفة متكررة كلما انتها يبدأ من جديد

sp.PlaySync
يتم تشغيل الملف الصوتى ولا يتم تنفيذ اى كود بعده الا بعد انتهاء تشغيل الملف الصوتى

كمثال لفهم ذلك:

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sp As New System.Media.SoundPlayer
sp.SoundLocation = "c:\sample.wav"

'''''''''''''''''''''''''''''''''''''''''''
sp.Play()
MsgBox("ستظهر الرسالة رغم تشغيل الملف الصوتى")

End Sub

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sp As New System.Media.SoundPlayer
sp.SoundLocation = "c:\sample.wav"

'''''''''''''''''''''''''''''''''''''''''''
sp.PlaySync()
MsgBox("لن تظهر الرسالة الا بعد انتهاء الملف الصوتى")

End Sub

وفى اى وقت نريد ايقاف الصوت نستخدم
sp.Stop

=============================================


جارى اعداد الجزء المتبقى من الدرس