سنتعرف في هذا المقال ان شاء الله على كيفية تشغيل الملفات الملفات الصوتية بداخل تطبيقات الفيجوال بيسك . سوف تستخدم ثلاتة طرق مختلفة ،الأولى لتشغيل جميع صيغ الصوت من Mp3 الى wav ،و الثانية و الثالثة لتشغيل صيغ الصوت بامتداد wav فقط أي أنها لا تدعم تشغيل الملفات الصوتية بامتدادات غير امتداد wav
نبدأ على بركة الله...
نبدأ على بركة الله...
الطريقة الأولى :
سنقوم باضافة الأداة windows media player لنتمكن من تشغيل ملفات الصوت بأنواعها المختلفة .
اذهب الى ToolBox ابحث عن الأداة windows media player ...ابحث جيدا ...ثم ابحث...حتى تشعر بالملل و تتعب...هل وجدتها؟؟؟...لا لم أجدها...أعرف أنك لن تجدها في صندوق الأدوات .إذا ما الحل؟؟كيف سنضيفها؟؟
لا تقلق ...اتبع شرح الصور التالية لترى كيف تضيف تلك الأداة:
الآن بعد أن قمنا باضافة الأداة هيا بنا لنكتب الكود:
هذا الكود لاضافة ملف صوتي للأداة و تشغيله:
AxWindowsMediaPlayer1.URL = "مسار الملف الصوتي .wav"
حيث AxWindowsMediaPlayer1 هو اسم الأداة , Url احدى خصائص تلك الأداة لاختيار الملف الصوتي المراد تشغيله , بعد ذلك تكتب مسار الملف الصوتي و لا تنسى بعد كتابة مسار الملف الصوتي واسمه أن تضع (. ) ثم صيغة الملف الصوتي –سواء كان wav أو mp3 أو...
ملحوظة :تستطيع جعل الخاصية visible الخاصة بالأداة تساوي false ليظهر الصوت و كأنه يعمل في خلفية البرنامج كلمسة جمالية أكثر
و لكن يوجد هنا سؤال يجب أن يسأل .من بعرف هذا السؤال؟
نعم...لنفرض أنك تريد اضافة الملف الصوتي الى البرنامج للاستغناء عن المسارات و ليكون في مجلد البرنامج عند نشره و نقله الى الأجهزة الأخرى ,فالطريقة السابقة توجب عليك أن تكتب مسار الملف في جهازك كاملا...كما في الكود التالي :
AxWindowsMediaPlayer1.URL = "C:\Program Files\Download\first_sound .mp3"
و عندما يقوم العميل بتنزيل البرنامج و الضغط على الزر لتشغيل الملف الصوتي ستظهر له رسالة خطأ
لذا هيا بنا لتنعرف على كيفية اضافة الملف الصوتي الى مجلد البرنامج:
قم بحفظ المشروع بالضغط على save all من قائمة File أو ( ctrl+shift+s) كما في الصورة التالية
, ثم اذهب الى المكان الذي حفظته فيه واتبع الشرح التالي :
بعد ذلك قم بكتابة الكود التالي:
AxWindowsMediaPlayer1.URL = "First_sound.wav"
تم الآن الاستغناء عن المسارات واضافة المقطع الى مجلد البرنامج
أرجو تكون هذه الطريقة واضحة و ليس فيها أي مشكلة ...
الطريقة الثانية :
تشغيل المقاطع الصوتية بصيغة wav فقط و الكود سهل لا يتعدى السطر الواحد . الكود:
My.Computer.Audio.Play("مسار الملف الصوتي.wav")
يمكنك وضع الكود السابق في أي مكان ,تستطيع وضعة في الحدث load الخاص بالForm أو في Button_click
مثال:
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
My.Computer.Audio.Play("c:\sound.wav")
My.Computer.Audio.Play("my_sound") 'الكود هذا عندما يكون الملف الصوتي موجوج بداخل
debug الخاصة بالمشروع
End Sub
و لايقاف الصوت .اكتب الكود التالي:
My.Computer.Audio.Stop()
ملحوظة: طريقة أفضل يعرفها أكثرنا قم باضافة ملف الفيديو الى الــresources و هي طريقة أفضل و أحسن...كما في المثال التالي
حيث First_sound هو ملف الصوت
:
My.Computer.Audio.Play(My.Resources.First_sound, AudioPlayMode.Background)
الطريقة الثالثة :
و هي شبيهة بالطريقة الثانية في عملها حيث لا تقبل سوى ملفات الصوت بصيغة الـــ.wav
الطريقة:
Dim new_ssound As New System.Media.SoundPlayer("مسار الملف الصوتي.wav")
new_ssound.Play() ' لتشغيل الملف الصوتي
new_ssound.PlayLooping() ' لتشغيل الملف الصوتي واعادة تشغيله بعد انتهاءه
new_ssound.Stop() ' لايقاف الملف الصوتي
ملحوظة : اذا أردت تشغيل ملف mp3 اتبع الطريقة الأولى.
يمكنك اضافة openFileDialog للسماح للمستخدم باختيار ملف الصوت أو الفيديو المراد تشغيله ,مثال:
قم باضافة الأداة windows media player , و Button ثم انقرا نقرا مزدوجا على الــButton للدخول الى الاجراء الخاص به,ثم اكتب الكود التالي:
Dim open As New OpenFileDialog
open.ShowDialog()
Try
WindowsMediaPlayer1.URL = open.FileName
Catch ex As Exception
MsgBox("غير قادر على تشغيل الملف")
End Try
من عنده أي سؤال فليتفضل ليطرحه , و السلام عليكم ورحمة الله
ماشاء الله برامج حضرتك كلها ممتازة
ردحذفجزاك الله كل خير والله من اكثر من سنتين وانا ابحث عن حل للموضوع الصوت بارك الله فيك
ردحذفالسلام عليكم ورحمة الله وبركاته
ردحذفانا عندى استفسار مهم جدا وهو
كيف يتم برمجه امتدادات الصوت او الفيديو ذى مثلا mp3 or wav او اى امتداد اخر اوضح اكثر اقصد برمجة الامتداد نفسه مش برنامج يقراء ملفات صوت باى امتدات انا عايز اعمل امتداد جديد واطرحة باسم جديد وبعدين اصمم مشغل صوت جديد يشغل امتدادى الجديد فقط ممكن توضيح وانا اسف جدا على الاطاله
شكرا
الله يسعدك تسلم تسلم
ردحذفشكران لك
ردحذفبس ادا كان اتحط اكواد اكتر لي تعديل علي البرنامج وجعله افضل
بسم الله الرحمن الرحيم
ردحذفكيف اضيف ملف فيديو الى مشروع الويندوز ابليكيشن هذا الفيديو يعمل من على الانترنت مثلا كود فيديو يعمل من اليوتيوب
جزاك الله كل خير، اريد أن أسأل هل يمكنيي اضافة ملف فيديو في برنامج فيجوال بيسيك؟
ردحذفأنا أعمل على مشروع مدرسي وأود أن اضيف ملف فيديو للبرنامج
موضوع رائع اتمنى مساعدتي في مشروعي وهو تحرير الصوت باستخدام ميزات الصوت في برمجة الفيجول بيسك6
ردحذفممكن كود لتشغيل اكثر من مقطع فيديو من بوتون واحد يعني كل ما اضغط على زر البوتون يشتغل فيديو مختلف
ردحذف