Reproducir sonido - VB-MUNDO

javier · #1 (**permalink**) 02-05-2005, 21:27:31

He cargado un formulario y quiero que reproduzca un archivo mp3 durante toda la duración del formulario, yo lo estoy intentando con el control MMControl, pero no encuentro la solución.gracias

Código:

MMControl1.FileName = App.path + "\Don Omar.mp3"
' Abre el dispositivo.
MMControl1.Command = "Open"
'Reproducir
MMControl1.Command = "play"

Alella · #2 (**permalink**) 10-05-2005, 10:39:47

Hola, q tal.

Espero que te sirva el siguiente código. Tengo un boton cmdopen para que me empieze a sonar el mp3 q quiera. Tengo también un mediaplayer.El código es el siguiente. Espero no dejarme nada:

Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Long, ByVal EventParam1 As Long, ByVal EventParam2 As Long)
FileName = "\ruta\pcaribedosmil103.mp3"

End Sub

Private Sub cmdOpen_Click()

FileName = "z:\ruta\pcaribedosmil103.mp3"
With MediaPlayer1
If Not FileOpen Then
.FileName = FileName
.AutoStart = False
cmdopen.Caption = "Close"
Else
.FileName = ""
cmdopen.Caption = "Open"
End If
End With

End Sub

Private Sub MediaPlayer1_OpenStateChange(ByVal OldState As Long, ByVal NewState As Long)

Min = MediaPlayer1.Duration \ 60
Sec = MediaPlayer1.Duration - (Min * 60)
lbTotalTime = Format(Min, "0#") & ":" & Format(Sec, "0#") 'format time to 00:00

FileOpen = CBool(NewState)

End Sub

Al final tendrías que automatizar el proceso para que no dejara de sonar.

Alella · #3 (**permalink**) 10-05-2005, 10:40:21

Hola, q tal.

Espero que te sirva el siguiente código. Tengo un boton cmdopen para que me empieze a sonar el mp3 q quiera. Tengo también un mediaplayer.El código es el siguiente. Espero no dejarme nada:

Private Sub MediaPlayer1_DVDNotify(ByVal EventCode As Long, ByVal EventParam1 As Long, ByVal EventParam2 As Long)
FileName = "\ruta\pcaribedosmil103.mp3"

End Sub

Private Sub cmdOpen_Click()

FileName = "z:\ruta\pcaribedosmil103.mp3"
With MediaPlayer1
If Not FileOpen Then
.FileName = FileName
.AutoStart = False
cmdopen.Caption = "Close"
Else
.FileName = ""
cmdopen.Caption = "Open"
End If
End With

End Sub

Private Sub MediaPlayer1_OpenStateChange(ByVal OldState As Long, ByVal NewState As Long)

Min = MediaPlayer1.Duration \ 60
Sec = MediaPlayer1.Duration - (Min * 60)
lbTotalTime = Format(Min, "0#") & ":" & Format(Sec, "0#") 'format time to 00:00

FileOpen = CBool(NewState)

End Sub

Al final tendrías que automatizar el proceso para que no dejara de sonar.

javier · #4 (**permalink**) 11-05-2005, 07:13:09

:smt020 Hola compañero Alella. Estoy intentando que suene el archivo mp3 con el código que me haz pasado y no suela, no se por que será a ver si me puedes ayudar un poquito con este control si tienes mas información de el, es que la ayuda que tengo esta en ingles y no me entero mucho, a ver si consigo que este mp3 suene durante toda la ejecución de la aplicación. MUCHAS GRACIAS

Alella · #5 (**permalink**) 11-05-2005, 08:02:56

Hola, q tal.

Disculpa,me dejé las variables que afectan al sonido dentro del modulo.

Código:

Rem variables para el sonido


Public GenresTypes
Public Min As Integer
Public Sec As Integer

Public FileName As String
Public FileOpen As Boolean
Public CurrentTag As TagInfo

Public Type TagInfo
    Tag As String * 3
    Songname As String * 30
    artist As String * 30
    album As String * 30
    year As String * 4
    comment As String * 30
    genre As String * 1
End Type


Rem fin de las variables para el sonido

Si te vuelve a fallar me lo dices.