[RaggiTech]

الجزء الثانى من الشرح

ابتسم فأنت مبرمج فيجوال بيسك دوت نت 2005

لكى تقوم بما سبق فى اسرع وقت وفقط على فيجوال بيسك دوت نت 2005
لتشغيل صوت من اصوات نظام التشغيل ضع سطر واحد من الكود التالى:

كود :

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

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

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Computer.Audio.Play("c:\sample.wave")
My.Computer.Audio.Play("c:\sample.wave", AudioPlayMode.Background)
My.Computer.Audio.Play("c:\sample.wave", AudioPlayMode.BackgroundLoop)
My.Computer.Audio.Play("c:\sample.wave", AudioPlayMode.WaitToComplete)
My.Computer.Audio.Stop()


End Sub

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

وفى السطر الأخير تم ايقاف الصوت

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

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