[السندبااد]

السلام عليكم ورحمة الله وبركاته

عند إقلاع البرنامج أقوم بتشغيل صوت من خلال هذا الكود:

كود :

My.Computer.Audio.Play("sounds\EndTime.wav", AudioPlayMode.Background)

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

لأنني بمجرد أن أشغل أي صوت سيتوقف الصوت السابق

[سعود]

لم تنجح معي الا باستخدام  Dim wmp As AxWMPLib.AxWindowsMediaPlayer
عند كل زر تكتب

PHP كود :

       wmp = New AxWMPLib.AxWindowsMediaPlayer
        wmp.CreateControl()
        wmp.URL = CurDir() & "\s.wav"
        wmp.Ctlcontrols.play() 


[السندبااد]

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

[سعود]

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

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

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بعد إذن أخي و أستاذي الفاضل " سعود " بارك الله فيه و له و جزاه خير الجزاء

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

باعتبار أنّ الفورم 1 هي مثلاً ال MDIParent1 لديك ..

للأمانة العلمية : البحث كان بمنتديات نقطة التّطوير

تحياتي

[سعود]

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

[السندبااد]

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

---

لإيقاف الصوت قمت بتطوير الكلاس وإضافة هذه الدالة:

كود :

    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")

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

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

الشّكر موصول لأخي و أستاذي الغالي " سعود " على المساهمة الطيّبة

بارك الله فيكما و لكما و جزاكما خير الجزاء إن شاء الله

تحياتي و احتراماتي