Музыкальное сопровождение!

[Max!]

Как сделать что бы в проге играла музыка например заканчивается одна запись и начинается другая и так до бесконечности сменяя друг друга!?

[Tarik]

А какая музыка - MP3 или MIDI?

[Max!]

С форматом *.wav!

[Tarik]

А, ну тогда не сложно. Сначала надо подготовить файлы с названием "Music[цифра от 1 до ...]". Предположим, таких файлов будет 5. Потом создаёшь новую форму, на него ставишь Microsoft Multimedia Control (далее - MMC). Потом пишешь:

Код: Выделить всё

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
End If
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub

Private Sub Form_Load()
MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic
End Sub

Private Sub MMC_Done(NotifyCode As Integer)
If MMC.Position = MMC.TrackLength Then'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic
End If


[Max!]

Где находится этот Microsoft Multimedia Control В понэли инструментов где находятся кнопки и тд... его нет! И куда нужно вставлять этот код:

Private Sub MMC_Done(NotifyCode As Integer)
If MMC.Position = MMC.TrackLength Then'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic
End If

??? Help! Please!

[Antonio401]

Код: Выделить всё

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
End If
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub



[/quote]

Тут End if не надо

[Max!]

Можешь подробно объяснить куда надо пихать этот код в кнопку или нет :

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
End If
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub


И где находится этот Microsoft Multimedia Control В понэли инструментов где находятся кнопки и тд... его нет!

[Tarik]

Ну, во-первых MMC надо подключить к проекту. Делается это так: В меню Project выбираешь комманду Components. Там ищешь контрол Microsoft Multimedia Control и ставишь напротив него галочку. Потом нажимаешь ОК. Теперь MMC есть в панели инструментов. Кидаешь его на форму и всвойстве Name пишешь "MMC", а Visible ставишь на False.
Следующий код ставишь в событие Form_Load:

Код: Выделить всё

MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic


А вот этот - в событие MMC_Done:

Код: Выделить всё

If MMC.Position = MMC.TrackLength Then 'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic


Теперь относительно nextmusic. Это - отдельная процедура, которая не относится ни к какому контролу. Её надо ставить в раздел (General):

Код: Выделить всё

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
MMC.Command = "close"
compname = App.Path & "\Music" & f & ".wav"
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub


З.Ы. Если будут вопросы - смело спрашивай, я когда-то сам так же мучался

[Max!]

А как сделать что бы музыка включалась автономно при запуске проги!

[FaKk2]

Код отвечающий за запуск трэка, помести в Form_Load()

[Tarik]

Так ведь процедура nextmusic есть в Form_load! Она сразу и запускает музыку.

[Max!]

У меня не выходит я вроде сделал всё правилно!

Поясню:

Вставил в Form_Load:
Код:

MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic

в событие MMC_Done:
Код:

If MMC.Position = MMC.TrackLength Then 'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic


А этот в раздел (General):
Код:

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
MMC.Command = "close"
compname = App.Path & "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !


MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub


Я уже всё перепробовал но не выходит ! Помогите!

[Tarik]

А что конкретно не выходит? Просто музыка не играет, или ошибка какая? Если ошибка, то какая и где?

[Max!]

Музыка не играет !

[FaKk2]

Музыка не играет !

А она вообще играет?
В смысле , не только в форм_лоад, а вообще?

[Max!]

Да фаил впорядке я проверял ! Непоиму вчем дело?

[Tarik]

Всё ясно! Фишка вот в чём:

compname = App.Path & "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !

Свойство App.path используется, чтобы узнать папку, в которой лежит программа. Это полезно, когда ты не знаешь точно, в какой папке на целевом компе будет лежать прога. Так как ты указал явный путь к музыке ("C:\Music\"), то App.path уже просто не нужно! Правильно будет так:

Код: Выделить всё

compname = "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !


[Max!]

Спасибо всё работаю!

[Максим]

А зачем вообще использовать MMC???
Я всегда использую API-функцию sndPlaySound
Там всего 2 параметра - путь к файлу и параметр воспроизведения Обьявление посмотри в APIViewer !!!

[кофейник]

Как сделать что бы в проге играла музыка например заканчивается одна запись и начинается другая и так до бесконечности сменяя друг друга

Здесь приводился пример с *.wav файлами.
А как можно сделать то же самое с MIDI файлами?
Спасибо

[-=alp=-]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Form_Load()
sndPlaySound "путь к файлу", 1 ' или 0 эксперементиур
End Sub

остольное придумай сам ты же блин вроде как програмист

[GreenT]

-=alp=-, помойму ты не все написал
Проигрывание wav
На форме есть кнопка Command1_Click

Код: Выделить всё

Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1
End Sub

Private Sub Command1_Click()
PlaySound "c:\wondering.wav"
End Sub


100% работает на VB6