border

Miembros:
Mensajes:
Temas:
Online:

Ultimo Miembro:

 
 

Cuenta Bancaria en EEUU
  #1 (permalink)  
Antiguo 02-05-2005, 21:27:31
Gran Participación en el Foro
 
Registrado: sep 2004
Posts: 226
javier Valoración +2
Predeterminado Reproducir sonido

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"
Responder Con Cita
  #2 (permalink)  
Antiguo 10-05-2005, 10:39:47
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 985
Alella Valoración +2
Predeterminado

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.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #3 (permalink)  
Antiguo 10-05-2005, 10:40:21
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 985
Alella Valoración +2
Predeterminado

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.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
  #4 (permalink)  
Antiguo 11-05-2005, 07:13:09
Gran Participación en el Foro
 
Registrado: sep 2004
Posts: 226
javier Valoración +2
Predeterminado

: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
Responder Con Cita
  #5 (permalink)  
Antiguo 11-05-2005, 08:02:56
Avatar de Alella
Moderador
 
Registrado: mar 2004
Ubicación: BARCELONA - ESPAÑA
Posts: 985
Alella Valoración +2
Predeterminado

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.
__________________
Un saludo.

Alfredo
Barcelona-España
_________________
Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion
Responder Con Cita
Respuesta


Herramientas
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Reproducir el sonido de un buffer de bytes nathaninho Visual Basic 6.00 0 27-11-2007 15:38:51
reproducir sonido? djagu_26 JAVA (General) 0 06-06-2007 21:09:47
Para reproducir sonido .mp3 Javier2315 Visual Basic.NET 2003 & 2005 0 29-03-2006 00:23:03
reproducir MP3 Cblackx Visual Basic 6.00 2 26-11-2004 17:08:27
Reproducir ficheros *.WAV jes2jflores Visual Basic 6.00 10 17-09-2004 01:00:00


La franja horaria es GMT. Ahora son las 01:55:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
A vBSkinworks Design

Alojado en el servicio Premium de Masquewebs | Diseño mejorado por MasqueWebs

right