تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف يتم تشغيل صوت دون إيقاف الصوت السابق؟
#1
السلام عليكم ورحمة الله وبركاته
عند إقلاع البرنامج أقوم بتشغيل صوت من خلال هذا الكود:
كود :
My.Computer.Audio.Play("sounds\EndTime.wav", AudioPlayMode.Background)

الآن أريد عند تشغيل أي صوت أن يبقى الصوت السابق قيد التشغيل، فهل من طريقة؟
لأنني بمجرد أن أشغل أي صوت سيتوقف الصوت السابق
Huh
فاعلم أنه لا إله إلا الله
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#2
لم تنجح معي الا باستخدام  Dim wmp As AxWMPLib.AxWindowsMediaPlayer
عند كل زر تكتب
PHP كود :
       wmp = New AxWMPLib.AxWindowsMediaPlayer
        wmp
.CreateControl()
 
       wmp.URL CurDir() & "\s.wav"
 
       wmp.Ctlcontrols.play() 
الرد
#3
ألف شكر لك أخي العزيز سعود
للأسف لم ينجح معي المثال
فاعلم أنه لا إله إلا الله
الرد
تم الشكر بواسطة: سعود , ابراهيم ايبو
#4
(20-08-19, 07:20 PM)السندبااد كتب : ألف شكر لك أخي العزيز سعود
للأسف لم ينجح معي المثال

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


الملفات المرفقة
.rar   تشغيل صوتين مختلفين متزامنين.rar (الحجم : 4.05 م ب / التحميلات : 11)
الرد
تم الشكر بواسطة: سعود , السندبااد , ابراهيم ايبو
#6
اخي الكريم عبد العزيز البسكري 
الطريقة اللي اتبعتها انت ممتازة جدا ورائعة  (حسب تعبيري الخاص انها مخاطبة لنظام التشغيل مباشرة دون الاعتماد على وسائط كمثل اللتي استخدمها)
الرد
#7
أخي العزيز عبد العزيز بيَّض الله وجهك، فهذا ما أريده تماماً، فجزاك الله عني كل خير
بقيت مشكلة واحدة، وهي:
كف يتم إيقاف الصوت؟
فالصوت لا يتم إيقافه إلا عند إغلاق الفورم أو البرنامج
فما الحل لإيقاف الصوت؟

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


كود :
    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")
فاعلم أنه لا إله إلا الله
الرد
#8
السّلام عليكم و رحمة الله و بركاته
الفضل كذلك يعود إليك أخي و أستاذي الكريم " السندباد " أنّك بهذه الإضافة المميزة أصبح الملف متكامل و الكمال لله و حده
الشّكر موصول لأخي و أستاذي الغالي " سعود " على المساهمة الطيّبة
بارك الله فيكما و لكما و جزاكما خير الجزاء إن شاء الله
تحياتي و احتراماتي
الرد
تم الشكر بواسطة: سعود , السندبااد , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] عند تشغيل اداة print form على حاسوب المستخدمين يعطي رسالة خطا khairallah 3 59 منذ 6 ساعة مضت
آخر رد: khairallah
Bug تشغيل الكام محمد 14 3,751 13-09-19, 01:18 AM
آخر رد: أمجد وضاح
  مشكلة عند تشغيل برنامج تغير الاي بي aldery 1 60 09-09-19, 02:06 AM
آخر رد: سعود
  [سؤال] تشغيل كاميرات المراقبة في برنامج rafat92 0 54 06-09-19, 03:59 PM
آخر رد: rafat92
Wink [سؤال] بما ان الموضوع السابق لي كان شبه مستحيل اشارك موضوع اخر اليوم السابع 3 118 22-08-19, 11:12 PM
آخر رد: ابراهيم ايبو
  معذرة اخى عاصم بخصوص موضوعى السابق ابو روضة 7 211 28-07-19, 03:26 AM
آخر رد: asemshahen5
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 2 201 25-07-19, 11:58 PM
آخر رد: solyH
  [VB.NET] تشغيل الكمبيوتر فى وقت محدد سابقا abo_baraa2007 0 125 17-07-19, 09:01 PM
آخر رد: abo_baraa2007
  [VB.NET] مشكلة عند تشغيل البرنامج اسامه الهرماوي 2 186 21-06-19, 07:25 PM
آخر رد: elgokr
  منع تشغيل البرنامج اكثر من مره مع توجيه امر الى النسخة الشغاله معاذ_ابراهيم 4 333 18-05-19, 11:53 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم