02-10-12, 03:35 PM
كاتب الموضوع : 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
وتم تحديد مكان الملف الصوتى المراد تشغيله
وبعد ذلك يتم استخدام سطر واحد فقط من الثلاث اسطر التالية لتشغيل الملف الصوتى والاختلافات بينهم كالتالى
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
=============================================
جارى اعداد الجزء المتبقى من الدرس