تشغيل الملفات الصوتية في تطبيقات الفيجوال بيسك

سنتعرف في هذا المقال ان شاء الله على كيفية تشغيل الملفات الملفات الصوتية بداخل تطبيقات الفيجوال بيسك . سوف تستخدم ثلاتة طرق مختلفة ،الأولى لتشغيل جميع صيغ الصوت من 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  و هي طريقة أفضل و أحسن...كما في المثال التالي
:
My.Computer.Audio.Play(My.Resources.First_sound, AudioPlayMode.Background)

حيث  First_sound هو ملف الصوت
  
الطريقة الثالثة :

و هي شبيهة بالطريقة الثانية في عملها حيث لا تقبل سوى ملفات الصوت بصيغة الـــ.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






من عنده أي سؤال فليتفضل ليطرحه , و السلام عليكم ورحمة الله




هناك 9 تعليقات:

  1. ماشاء الله برامج حضرتك كلها ممتازة

    ردحذف
  2. جزاك الله كل خير والله من اكثر من سنتين وانا ابحث عن حل للموضوع الصوت بارك الله فيك

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

    شكرا

    ردحذف
  4. الله يسعدك تسلم تسلم

    ردحذف
  5. شكران لك

    بس ادا كان اتحط اكواد اكتر لي تعديل علي البرنامج وجعله افضل

    ردحذف
  6. بسم الله الرحمن الرحيم
    كيف اضيف ملف فيديو الى مشروع الويندوز ابليكيشن هذا الفيديو يعمل من على الانترنت مثلا كود فيديو يعمل من اليوتيوب

    ردحذف
  7. جزاك الله كل خير، اريد أن أسأل هل يمكنيي اضافة ملف فيديو في برنامج فيجوال بيسيك؟

    أنا أعمل على مشروع مدرسي وأود أن اضيف ملف فيديو للبرنامج

    ردحذف
  8. موضوع رائع اتمنى مساعدتي في مشروعي وهو تحرير الصوت باستخدام ميزات الصوت في برمجة الفيجول بيسك6

    ردحذف
  9. ممكن كود لتشغيل اكثر من مقطع فيديو من بوتون واحد يعني كل ما اضغط على زر البوتون يشتغل فيديو مختلف

    ردحذف