Синхронное воспроизведение двух звуковых файлов

@SeregaBarmaley · Регистрация: 01.10.2012

Создаём новый проект.
Добавляем библиотеку звуковую wmp

Для этого заходим в:

Свойства проекта
Ссылки
Добавить ссылку
Вкладка вторая COM

Добавляем
Windows Media Player C:\WINDOWS\system32\wmp.dll

Далее пишем программный код

VB.NET

Public Class Form1
 
    'Присвоение переменной пути местонахождения файла
    Dim pathHome As String = IO.Path.GetFullPath(Application.StartupPath)
 
    'Добавление библиотеки звука
    Dim WithEvents wmp As New WMPLib.WindowsMediaPlayerClass()
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wmp.currentMedia = wmp.newMedia(pathHome & "\1.mp3")
        wmp.controls.play()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        wmp.currentMedia = wmp.newMedia(pathHome & "\2.mp3")
        wmp.controls.play()
    End Sub
 
End Class

После написания программного кода, добавляем в папку с изполняемым .exe файлом звуковые файлы 1.mp3 и 2.mp3

Как это работает. При нажатии на кнопку Button1 возпроизводится звуковой файл 1.mp3. Если затем нажать на кнопку Button2, то первый звуковой поток прервётся и заиграет второй файл 2.mp3.

Вопрос: как сделать, чтобы при возпроизведении звука он не перебивался, другим звуком? Другими словами, как запараллелить звуковые потоки?

@Yury Komar · 20.05.2015, 17:40

SeregaBarmaley, может быть вот так?
проверить не могу сейчас, чисто теоретически объявить отдельную переменную для каждого потока музыки. а ты используешь одну для всех

VB.NET

Public Class Form1
 
    'Присвоение переменной пути местонахождения файла
    Dim pathHome As String = IO.Path.GetFullPath(Application.StartupPath)
 
    'Добавление библиотек звука
    Dim WithEvents wmp1 As New WMPLib.WindowsMediaPlayerClass()
 Dim WithEvents wmp2 As New WMPLib.WindowsMediaPlayerClass()
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        wmp1.currentMedia = wmp1.newMedia(pathHome & "\1.mp3")
        wmp1.controls.play()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        wmp2.currentMedia = wmp2.newMedia(pathHome & "\2.mp3")
        wmp2.controls.play()
    End Sub
 
End Class

@SeregaBarmaley · 20.05.2015, 17:57 **[ТС]**

Yury Komar, Да, ты прав. Всё работает как надо по твоему коду. Оказывается я всегда изпользовал одну переменную для возпроизведения звука в программе. Теперь буду знать.
Благодарю за помощь.

@Yury Komar · 20.05.2015, 18:06

SeregaBarmaley, жлста

@SeregaBarmaley 24 / 24 / 8 Регистрация: 01.10.2012 Сообщений: 204
	20.05.2015, 17:57 [ТС]	3
	Yury Komar, Да, ты прав. Всё работает как надо по твоему коду. Оказывается я всегда изпользовал одну переменную для возпроизведения звука в программе. Теперь буду знать. Благодарю за помощь. 0

@Yury Komar Модератор 3876 / 3198 / 481 Регистрация: 27.01.2014 Сообщений: 5,826
	20.05.2015, 18:06	4
	SeregaBarmaley, жлста 0

Опции темы

Синхронное воспроизведение двух звуковых файлов

Решение