منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ (/showthread.php?tid=30993)

كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - السندبااد - 20-08-19

السلام عليكم ورحمة الله وبركاته
عند إقلاع البرنامج أقوم بتشغيل صوت من خلال هذا الكود:
كود :
My.Computer.Audio.Play("sounds\EndTime.wav", AudioPlayMode.Background)

الآن أريد عند تشغيل أي صوت أن يبقى الصوت السابق قيد التشغيل، فهل من طريقة؟
لأنني بمجرد أن أشغل أي صوت سيتوقف الصوت السابق
Huh


RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - سعود - 20-08-19

لم تنجح معي الا باستخدام  Dim wmp As AxWMPLib.AxWindowsMediaPlayer
عند كل زر تكتب
PHP كود :
       wmp = New AxWMPLib.AxWindowsMediaPlayer
        wmp.CreateControl()
        wmp.URL = CurDir() & "\s.wav"
        wmp.Ctlcontrols.play() 


RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - السندبااد - 20-08-19

ألف شكر لك أخي العزيز سعود
للأسف لم ينجح معي المثال

RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - سعود - 20-08-19

(20-08-19, 07:20 PM)السندبااد كتب : ألف شكر لك أخي العزيز سعود
للأسف لم ينجح معي المثال

طيب نجح معي.
هل ظهر خطأ ام ماذا؟

RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - عبد العزيز البسكري - 20-08-19

السّلام عليكم و رحمة الله و بركاته
بعد إذن أخي و أستاذي الفاضل " سعود " بارك الله فيه و له و جزاه خير الجزاء
بحثت سابقًا كثيرًا عن كيفية تشغيل صوتين مختلفين متزامنين بنفس الوقت دون توقّف أحدهما  لحاجتي الملحّة لهذه المسألة .. وانتهيت بعد البحث إلى هذا الحل النهائي لهذه المسألة
باعتبار أنّ الفورم 1 هي مثلاً ال MDIParent1 لديك ..
للأمانة العلمية : البحث كان بمنتديات نقطة التّطوير
تحياتي


RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - سعود - 20-08-19

اخي الكريم عبد العزيز البسكري 
الطريقة اللي اتبعتها انت ممتازة جدا ورائعة  (حسب تعبيري الخاص انها مخاطبة لنظام التشغيل مباشرة دون الاعتماد على وسائط كمثل اللتي استخدمها)

RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - السندبااد - 20-08-19

أخي العزيز عبد العزيز بيَّض الله وجهك، فهذا ما أريده تماماً، فجزاك الله عني كل خير
بقيت مشكلة واحدة، وهي:
كف يتم إيقاف الصوت؟
فالصوت لا يتم إيقافه إلا عند إغلاق الفورم أو البرنامج
فما الحل لإيقاف الصوت؟
لإيقاف الصوت قمت بتطوير الكلاس وإضافة هذه الدالة:


كود :
    Public Function StopPlayer(ByVal SoundName As String) As Boolean
        If Not Snds.ContainsKey(SoundName) Then Return False
        mciSendStringW("seek " & Snds.Item(SoundName) & " to start", Nothing, 0, IntPtr.Zero)
        If mciSendStringW("stop " & Snds.Item(SoundName), Nothing, 0, IntPtr.Zero) <> 0 Then Return False
        Return True
    End Function


في الفورم لإيقاف أي صوت نضع هذا الكود:
كود :
Snds.StopPlayer("Note A")


RE: كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟ - عبد العزيز البسكري - 20-08-19

السّلام عليكم و رحمة الله و بركاته
الفضل كذلك يعود إليك أخي و أستاذي الكريم " السندباد " أنّك بهذه الإضافة المميزة أصبح الملف متكامل و الكمال لله و حده
الشّكر موصول لأخي و أستاذي الغالي " سعود " على المساهمة الطيّبة
بارك الله فيكما و لكما و جزاكما خير الجزاء إن شاء الله
تحياتي و احتراماتي