Sistema de MP3...

» 10 May 2011 23:51

Bueno, les traigo este sistema de Mp3 simple...

Empecemos, en el Cliente:

Proyecto>>Referencias>> Seleccionamos: 'ActiveMovie control type Library'

En el clsAudio buscamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

'States wether sound effects are currently activated or not
Dim sEffectsActivated As Boolean

Y Abajo agregamos:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

'**** Used By MP3 Playing. *****
Dim IMC   As IMediaControl
Dim IBA   As IBasicAudio
Dim IME   As IMediaEvent
Dim IMPos As IMediaPosition

Ahora al final del clsAudio agregan:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Public Function MusicMP3Empty() As Boolean
'**************************************
'* Created by: Fredrik Alexandersson  *
'* Modify Date: 20/5/2003             *
'**************************************
    On Error GoTo ErrorHandl
    
    If ObjPtr(IMC) > 0 Then
        Call MusicMP3Stop
    End If
    
    Set IBA = Nothing
    Set IME = Nothing
    Set IMPos = Nothing
    Set IMC = Nothing
    
    MusicMP3Empty = True
    Exit Function
 
ErrorHandl:
    MusicMP3Empty = False
    End
End Function
 
''
' Loads a new MP3 file.
'
' @param    FilePath    The path to the file to be loaded.
' @return   True    If file was properly loaded and started playing, False otherwise.
 
Public Function MusicMP3Load(ByVal FilePath As String, Optional ByVal Volume As Long = 0, Optional ByVal Balance As Long = 0) As Boolean '**** Loads a MP3 *****
'**************************************
'* Created by: Fredrik Alexandersson  *
'* Modify Date: 20/5/2003             *
'**************************************
    On Error GoTo ErrorHandl
    
    If Not FileExist(FilePath, vbArchive) Then Exit Function
    
    If Not MusicMP3Empty() = True Then GoTo ErrorHandl
    
    Set IMC = New FilgraphManager
    Call IMC.RenderFile(FilePath)
    
    Set IBA = IMC
    If Volume < -4000 Then Volume = -4000
    IBA.Volume = Volume
    If Balance > 5000 Then Balance = 5000
    If Balance < -5000 Then Balance = -5000
    IBA.Balance = Balance
    
    Set IME = IMC
    
    Set IMPos = IMC
    If ObjPtr(IMPos) Then IMPos.Rate = 1#
    IMPos.CurrentPosition = 0
    
    MusicMP3Load = True
    Exit Function
 
ErrorHandl:
    MusicMP3Load = False
End Function
 
''
' Plays a new MP3 file.
'
' @param    FilePath    The path to the file to be loaded. If the path is null then play the loaded MP3.
'
' @return   True    If file was properly loaded and started playing, False otherwise.
 
Public Function MusicMP3Play(Optional ByVal FilePath As String = "") As Boolean
'**************************************
'* Created by: Fredrik Alexandersson  *
'* Modify Date: 20/5/2003             *
'**************************************
    On Error GoTo ErrorHandl
    
    If Not MusicActivated Then Exit Function
    
    If Not Music Then Exit Function
    
    If LenB(FilePath) > 0 Then
        If Not MusicMP3Load(FilePath) Then Exit Function
    Else
        If IMC Is Nothing Then Exit Function
    End If
    
    Call IMC.Run
    
    MusicMP3Play = True
    Exit Function
 
ErrorHandl:
    MusicMP3Play = False
End Function
 
''
' Check if the song need looping.
 
Public Sub MusicMP3GetLoop()
    On Error GoTo ErrorHandl
    
    If IMPos.StopTime = IMPos.CurrentPosition Then
        MusicMP3Stop
        MusicMP3Play
    End If
ErrorHandl:
End Sub
 
''
' Stop a the current MP3 file.
'
' @return   True    If file was properly stop, False otherwise.
 
Public Function MusicMP3Stop() As Boolean
'**************************************
'* Created by: Fredrik Alexandersson  *
'* Modify Date: 20/5/2003             *
'**************************************
    On Error GoTo ErrorHandl
    
'    IMC.Stop
'    IMPos.CurrentPosition = 0
    
    MusicMP3Stop = True
    Exit Function
 
ErrorHandl:
    MusicMP3Stop = False
End Function
 
''
' Pause a the current MP3 file.
'
' @return   True    If file was properly pause, False otherwise.
 
Public Function MusicMP3Pause() As Boolean
'***************************************************
' Created by: Juan Martín Sotuyo Dodero
' Modify Date: 25/6/2004
'***************************************************
    On Error GoTo ErrorHandl
    
    Call IMC.Pause
    
    MusicMP3Pause = True
    Exit Function
 
ErrorHandl:
    MusicMP3Pause = False
End Function
 
''
' Set the volume to the current MP3.
'
' @param    SoundVolume The new volume to the current MP3.
' @return   True    If the volume was properly change, False otherwise.
 
Public Function MusicMP3VolumeSet(ByVal SoundVolume As Long) As Boolean
'**************************************
'* Created by: Fredrik Alexandersson  *
'* Modify Date: 20/5/2003             *
'**************************************
    On Error GoTo ErrorHandl
    
    If SoundVolume > 0 Then SoundVolume = 0
    If SoundVolume < -4000 Then SoundVolume = -4000
    
    IBA.Volume = SoundVolume
 
    MusicMP3VolumeSet = True
    Exit Function
 
ErrorHandl:
    MusicMP3VolumeSet = False
End Function

Listo, con eso ya tienen un sistema de MP3 en su Cliente.

Preguntas:

¿Como hago para cargar el sonido?
Fácil:

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Call Audio.MusicMP3Play(App.path & "\MP3\1.mp3") 'El 1 lo cambian por el Numero del MP3

Ahi cargamos el mp3 1 de la carpeta mp3.

Espero que les sirba.

Adiós.

» 10 May 2011 23:53

Buen aporte dsp lo agrego a mi AO

» 11 May 2011 00:24

Está mal programado eso. Para que entiendas como es la mejor forma de programarlo, fijate en el parra engine

» 11 May 2011 09:42

•Parra escribió:Está mal programado eso. Para que entiendas como es la mejor forma de programarlo, fijate en el parra engine

Lo hice así a proposito. Me saltaban errores y sabes las ganas que tengo de arreglarlo?

...

Lo hice a lo lingera y listo.

Suerte

!	Nota del moderador Damian :
	Además ya está aportado, esto sería un plus.

» 11 May 2011 09:53

Lord Fers escribió:
•Parra escribió:Está mal programado eso. Para que entiendas como es la mejor forma de programarlo, fijate en el parra engine

Lo hice así a proposito. Me saltaban errores y sabes las ganas que tengo de arreglarlo? ...

Lo hice a lo lingera y listo.

Suerte

Bueno lo digo porque creo que no entendiste la idea de las clases, lo mejor seria hacer tu propia clase que reproduzca mp3, como el buffer, para lograr que puedan sonar diferentes mp3 a la vez, y exprimir al máximo este codigo (;

Solo lo decia por eso, nada mas, no te lo tomes a mal.

» 11 May 2011 10:03

•Parra escribió:
Lord Fers escribió:
•Parra escribió:Está mal programado eso. Para que entiendas como es la mejor forma de programarlo, fijate en el parra engine

Lo hice así a proposito. Me saltaban errores y sabes las ganas que tengo de arreglarlo? ...

Lo hice a lo lingera y listo.

Suerte

Bueno lo digo porque creo que no entendiste la idea de las clases, lo mejor seria hacer tu propia clase que reproduzca mp3, como el buffer, para lograr que puedan sonar diferentes mp3 a la vez, y exprimir al máximo este codigo (;

Solo lo decia por eso, nada mas, no te lo tomes a mal.

Sisi, en eso soy consiente. Es que si reproduces muchos mp3, se escucha feo

...

Ayer me dijo mateo que no lo programe así, me dijo algo parecido a lo tuyo

...

Adiós.

» 14 May 2011 22:21

Este sistema lo tengo mas visto los capitulos de los simpsons.
El sistema ya esta aportado como 50.000 veces aproximadamente.
Es lo mismo para todas las versiones.
Esta programado en 0.13.
Este sistema utiliza la libreria quartz, asi que si no la tienen va a dar algunos errores

.
Como dice parra este sistema una basura.
No tiene ni loop, es decir que cuando termine la musica no va a sonar nada mas.

Y una cosita mas, no entendi eso que querias decir con "Hacer", "programe". Cuando este codigo tiene mas años que matusalem, lo usaba yo en WAO 1.0 creo

» 15 May 2011 00:05

Lorwik escribió:Este sistema lo tengo mas visto los capitulos de los simpsons.
El sistema ya esta aportado como 50.000 veces aproximadamente.
Es lo mismo para todas las versiones.
Esta programado en 0.13.
Este sistema utiliza la libreria quartz, asi que si no la tienen va a dar algunos errores .
Como dice parra este sistema una basura.
No tiene ni loop, es decir que cuando termine la musica no va a sonar nada mas.

Y una cosita mas, no entendi eso que querias decir con "Hacer", "programe". Cuando este codigo tiene mas años que matusalem, lo usaba yo en WAO 1.0 creo

Jaja es verdad

... Pero bue

, ya encontre la forma de hacer el bucle. Despues cuando me conecte de vuelta, te digo mas o menos como lo podes hacer...

Aunque lo tengo que buscar, porque apartir de esta semana voy a tener mi ordenador de escritorio en mi casa

...

Adios.

Sistema de MP3...

¿Quién está conectado?