درس تشغيل الصوت خمس طرق مختلفه

هنا قم بنسخ هذه الشفرة و اكتبها بداخل Module1 اكتب الشفرة التالية :




Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

و ستحصل على الشكل التالي :



Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


هنا قمن بجلب دالة Api للصوت من النوع WAV و اسمها sndPlaySoundA حيث تستحضر ملف اسمه winmm.dll يساهم بتشغيل الصوت

و الآن إذا أردنا استخدامها بمكان نستخدمه أو نستدعيها كالتالي اضغط ضغطا مزدوج على Command1 و اكتب ما يلي :





Private Sub Command1_Click()
esult = sndPlaySound(App.Path & "\s.wav", 0)
End Sub
esult جملة أو أي جملة تستطيع تبديل هذه الجملة لبدأ التشغيل للصوت.





sndPlaySound(App.Path & "\s.wav", 0)
و لا تنسى أن تضع ملف صوتي بجانب ملفات برنامجك و أعط اسم s .
و الآن سنستخدم الدالة ببرنامجنا السابق قم بالبحث عن صوت تصفيق مثلا أعطه اسم (t)و صوت يدل على أن الإجابة خاطئة و ليكن (f) و ثم انسخهما و ضعهم في نفس مجلد برنامجنا ليكونا كالتالي تقريبا .
ملاحظة هامة جدا : يجب أن يكون الصوت من النوع wav .




افتح مشروع جديد و اضغط بزر اليمين للفأرة على مكان فارغ في شريط ToolBox و اختر Components .

و توجد طريقة أخرى أيضا اختر من قائمة Project الأمر Components أو اختصارا اضغط على Ctrl+T .
بكل الحالات سيظهر لك هذا المربع الحوار اختر منها Windows Media Player ثم اضغط على Apply و اضغط بعدها على Close لإغلاق مربع الحوار .
ملاحظة : ستحتاج إلى النزول بالسهم لتصل إلى Windows Media Player .
ستلاحظ ظهور أداة جديدة قم برسمها على النموذج Form .





Private Sub Form_Load()
MediaPlayer1.FileName = App.Path + "\s.Wav"
End Sub
و معناها انه شغل الملف s و نوعه Wav باستخدام الخاصية FileName .
الآن شغل البرنامج ستلاحظ أنه يعمل مع تشغيلك للبرنامج .
ملاحظة : لا يتطلب أن يكون الملف من النوع wave تستطيع اختيار غيره مع تحديد امتداد الملف في الشفرة و أيضا حتى الفيديو تستطيع إدراجه بنفس الطريقة مثل الشفرة التالية .





MediaPlayer1.FileName = App.Path + "\File.avi"
و تستطيع التعديل على طريقة إخراج MediaPlayer1 بتغيير خصائصه .





افتح مشروع جديد و اضغط بزر اليمين للفأرة على مكان فارغ في شريط ToolBox و اختر Components .

و توجد طريقة أخرى أيضا اختر من قائمة Project الأمر Components أو اختصارا اضغط على Ctrl+T .
بكل الحالات سيظهر لك هذا المربع الحوار اختر منها Windows Media Player ثم اضغط على Apply و اضغط بعدها على Close لإغلاق مربع الحوار .
ملاحظة : ستحتاج إلى النزول بالسهم لتصل إلى Windows Media Player .
ستلاحظ ظهور أداة جديدة قم برسمها على النموذج Form .





Private Sub Form_Load()
WindowsMediaPlayer1.URL = App.Path + "\s.Wav"
End Sub
و معناها انه شغل الملف s و نوعه Wav باستخدام الخاصية URL التي معناها مكان الملف أو مساره.
الآن شغل البرنامج ستلاحظ أنه يعمل مع تشغيلك للبرنامج .
ملاحظة : لا يتطلب أن يكون الملف من النوع wave تستطيع اختيار غيره مع تحديد امتداد الملف في الشفرة و أيضا حتى الفيديو تستطيع إدراجه بنفس الطريقة مثل الشفرة التالية .





WindowsMediaPlayer1.URL = App.Path + "\File.avi"
و تستطيع التعديل على طريقة إخراج WindowsMediaPlayer1بتغيير خصائصه .







و توجد طريقة باستخدام Multimedia MCI Control اضغط على Ctrl+T ثم بإدراج Microsoft MutiMedia Control 6.0 . اتبع نفس الطرق السابقة و ارسمها على Form .





Private Sub Form_Load()
MMControl1.FileName = App.Path + "\s.Wav"
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End Sub





MMControl1.Command = "Stop"





MMControl1.Command = "Pause"





MMControl1.Command = "Close"





و تستطيع إدراج أيضا أداة الريل بللير بنفس الطريقة و استخدامها لتشغيل الملفات أيضا كالتالي اضغط على Ctrl+T و اختر ما بالصورة ثم ارسمها على النموذج Form:





Private Sub Form_Load()
RealAudio1.Source = App.Path + "\s.Wav"
RealAudio1.autoStart = True
End Sub
بالسطر الأول قمنا بتحديد اسم الملف الصوتي و مساره و نمطه من النوع Wav حيث يجب استعمال الخاصية Source .
بالسطر الثاني قمنا بتشغيل الصوت تلقائيا باستعمال الخاصية autoStart بجعلها True .





RealAudio1.DoStop





RealAudio1.DoPlayPause
و بنفس الطريقة للترجيع استعمل بنفس الطريقة و هكذا .
جرب تشغيل البرنامج