Антикатод
| Цитата | А можно так (или как нибудь еще) проигрывать одновременно несколько звуков (знаю, что теоретически нет, но практически)?
Оочень надо. Зачем? Для того чтобы сделать "драм-машину" (если она так называется). Короче, по клавиша жмем; и получаются ударные партии.
Знаю, что очень в втему |
Если тебе нужно проигрывать несколько mp3 файлов одновременно могу предложить следующее:
Создай проект с формой.
Размести в ней Windows Media Player.
Копируй его в буфер.
Вставь его из буфера в пустое место формы.
Программа спросит у тебя хочешь ли ты создать контейнер.
Соглашайся.
Проигрыватели будут иметь имена
MediaPlayer1(0)
MediaPlayer1(1)
С индексом 1 можешь смело удалять.
Дальше добавь в форму несколько кнопок (у меня в примере четыре) и запиши следующий код.
У меня класно работает.
| Код |
Private Sub Form_Load()
Load MediaPlayer1(3)
Load MediaPlayer1(2)
Load MediaPlayer1(1)
MediaPlayer1(0).Visible = False
Command1.Caption = "Play"
Command2.Caption = "Play"
Command3.Caption = "Play"
Command4.Caption = "Play"
End Sub
Private Sub Command1_Click()
If MediaPlayer1(0).PlayState = mpPlaying Then
Command1.Caption = "Play"
MediaPlayer1(0).Stop
Exit Sub
End If
Command1.Caption = "Stop"
MediaPlayer1(0).FileName = "путь к файлу1"
End Sub
Private Sub Command2_Click()
If MediaPlayer1(1).PlayState = mpPlaying Then
Command2.Caption = "Play"
MediaPlayer1(1).Stop
Exit Sub
End If
Command2.Caption = "Stop"
MediaPlayer1(1).FileName = " путь к файлу 2"
End Sub
Private Sub Command3_Click()
If MediaPlayer1(2).PlayState = mpPlaying Then
Command3.Caption = "Play"
MediaPlayer1(2).Stop
Exit Sub
End If
Command3.Caption = "Stop"
MediaPlayer1(2).Visible = False
MediaPlayer1(2).FileName = " путь к файлу 3"
End Sub
Private Sub Command4_Click()
If MediaPlayer1(3).PlayState = mpPlaying Then
Command4.Caption = "Play"
MediaPlayer1(3).Stop
Exit Sub
End If
Command4.Caption = "Stop"
MediaPlayer1(3).Visible = False
MediaPlayer1(3).FileName = " путь к файлу 4"
End Sub
Private Sub MediaPlayer1_PlayStateChange(Index As Integer, ByVal OldState As Long, ByVal NewState As Long)
If MediaPlayer1(0).PlayState = mpStopped Then Command1.Caption = "Play"
If MediaPlayer1(1).PlayState = mpStopped Then Command2.Caption = "Play"
If MediaPlayer1(2).PlayState = mpStopped Then Command3.Caption = "Play"
If MediaPlayer1(3).PlayState = mpStopped Then Command4.Caption = "Play"
End Sub
|
Если я че не так понял в твоем вопросе – пиши (может еще че придумаю).
При желании можно написать код чтобы запускать/выключать проигрыватели нажатием клавиш на клаве.
PS
Если нужно много Player-ов то лучше создать контейнер для кнопок (также как и для проигрывателей)
Тогда код сократиться. При этом стоит объявить как одномерный текстовый массив кокую-нибудь переменную (fileName) и записать в этот массив все пути к mp3.
Тогда код будет выглядеть примерно так:
| Код |
Private Sub Command1_Click(Index As Integer и т.д.)
If MediaPlayer1(Index).PlayState = mpPlaying Then
Command1(Index).Caption = "Play"
MediaPlayer1(Index).Stop
Exit Sub
End If
Command1(Index).Caption = "Stop"
MediaPlayer1(Index).Visible = False
MediaPlayer1(Index).FileName = filerName(Index)
End Sub
Private Sub MediaPlayer1_PlayStateChange(Index As Integer, ByVal OldState As Long, ByVal NewState As Long)
If MediaPlayer1(Index).PlayState = mpStopped Then Command1(Index).Caption = "Play"
End Sub
|
(Этот код не проверял, но должен работать если я в синтаксисе не наделал ошибок)
Дальше можно записать код, вызывающий событие нажатия той или иной кнопки Command при нажатии соответствующей клавиши на клаве.
Кстати, что бы не перегружать память, может имеет смысл загружать Player-ы не при Form_Load(), а при Command_Click(). Тогда нужно выгружать Player-ы после окончания проигрывания файлов.
Короче: можно много чего придумать.
Удачи!
|
