Reproductor de archivos MP3 en VB (2)

Reproductor de canciones MP3 capaz de hacer reproducción aleatoria de los archivos existentes en una carpeta seleccionada mostrando información de la canción, realizado con Visual Studio 2017 con VB

Anteriormente publiqué un artículo sobre un reproductor de archivos MP3 muy sencillo con botones de reproducción y selección de archivos, utilizando el OCX de Windows Media Player 9 (WMP en adelante). Continuando ese ejercicio, se ha incluido la funcionalidad de reproducir los archivos de forma aleatoria: el programa crea un array con todas las canciones existentes en una determinada carpeta y, mediante las funciones Randomize() y Rnd(), genera un índice aleatorio que asigna al reproductor para que suene el ítem del array con el mismo índice. El control OCX de WMP se mantiene oculto, no se muestra en la ventana principal del programa pero se utilizan sus funcionalidades.
Tienes disponible una versión más compleja de este ejercicio: 3.

El control ActiveX se añade al cuadro de herramientas con el menú Herramientas > Elegir elementos del cuadro de herramientas > Componentes COM > Windows Media Player. Aparece en las herramientas de la sección Interoperabilidad WPF. Desde ahí es muy sencillo arrastrarlo al formulario como cualquier otro control. Al hacerlo, se añaden a la solución 2 archivos: AxInterop.WMPLib.dll y Interop.WMPLib.dll. Estos 2 archivos han de estar en la misma carpeta que el ejecutable de la aplicación. En mi proyecto ya están incluidos con la opción de que se copien a la carpeta bin al compilar.

El OCX tiene el nombre de AxWindowsMediaPlayer1; puede cambiarse por otro más útil, en este ejercicio se denomina ocxPlayer. En la configuración de las propiedades del control ocxPlayer pulsando sobre él con el botón derecho elegimos el modo de visualización Invisible (equivale a “uimode = invisible” en la lista de propiedades de Visual Studio) para que el control no sea mostrado en el formulario, aunque seguimos teniendo disponiendo de todas sus funcionalidades. Conviene marcar también “Inicio automático” y elegir el volumen por defecto que tendrá el reproductor al arrancar. Las demás opciones pueden dejarse como están.

Aparte de ello, Visual Studio coloca en bin otra librería llamada stdole.dll. Es un archivo de tipo PIA (primary interop assembly) que se necesita para interoperar con objetos COM de Office, WMP, etc.

Variables globales

Se crean unas variables con visibilidad a nivel de clase para poder utilizarlas en cualquier procedimiento:

' VARIABLES GLOBALES
' para la ruta al directorio seleccionado
    Private strPath As String
' el evento WMPLib.WMPPlayState.wmppsTransitioning se produce
' cuando Windows Media Player está preparando un nuevo ítem
' pero sólo ha de suceder cuando la variable blShuffle sea True
    Private blShuffle As Boolean = False
' para el título y el autor de las canciones
    Private strTitulo, strAutor, strAlbum As String
' para el tiempo de reproducción transcurrido
    Private dtTime As DateTime
' strArchivo = nombre del archivo MP3
' strArchivo_sin = nombre del archivo MP3 sin los 4 últimos caracteres (.mp3)
    Private strArchivo, strArchivo_sin As String
' colección con los nombres de todos los archivos MP3 del directorio y subdirectorios
    Private listaMp3 As ArrayList
' para el índice de las canciones
    Private intCancion As Integer
' i = índice de la última aparición de \ en la ruta al archivo MP3
' j = longitud de la cadena con el nombre del archivo MP3
    Dim i, j As Integer


Procedimiento para abrir un archivo

El procedimiento abrirCarpeta() presenta al usuario un cuadro de diálogo para elegir una carpeta que contenga archivos MP3. El resultado de la elección se pasa al reproductor. La variable strPath guarda la ruta a la carpeta y la variable listaMp3 guarda una matriz con los archivos contenidos en esa carpeta.

' cuadro de diálogo de selección de carpeta (FolderBrowserDialog)
If folderDlg.ShowDialog = DialogResult.OK Then
	' strPath contiene la ruta al directorio seleccionado
	 strPath = folderDlg.SelectedPath
	' limpiar listaMp3 de su contenido anterior
	If listaMp3.Count > 0 Then
	    listaMp3.Clear()
	End If
End If


Estado del reproductor

El procedimiento ocxPlayer_PlayStateChange() detecta los cambios en el estado del reproductor (reproduciendo, detenido…) para mostrar información de la canción al cambiar el estado del reproductor (PlayStateChange). Como el OCX tiene configurado su inicio automático, simplemente con elegir un archivo ya cambia el estado de reproducción y comienza a sonar.

De este procedimiento, existente en el artículo anterior, sólo comentaré la inclusión de un nuevo estado wmppsTransitioning que tiene lugar cada vez que el reproductor está preparando un nuevo ítem; pero en algunas ocasiones no es bien detectado por lo que he creado una variable booleana blShuffle que dice al programa cuándo detectar wmppsTransitioning y cuándo no hacerlo.

Por otro lado, el programa puede leer metadatos de los archivos MP3 tales como el título de la canción
(.currentMedia.getItemInfobyType(«title», «», 0))
o el nombre del autor
(.currentMedia.getItemInfobyType(«author», «», 0))
y mostrarlos en unas etiquetas de texto.

' dependiendo del estado del reproductor
Select Case e.newState
	' REPRODUCIENDO
	Case WMPLib.WMPPlayState.wmppsPlaying
	strAutor = OcxPlayer.currentMedia.getItemInfobyType("author", "", 0)
	strTitulo = OcxPlayer.currentMedia.getItemInfobyType("title", "", 0)
	strAlbum = OcxPlayer.currentMedia.getItemInfobyType("album", "", 0)
	 ' DETENIDO
	Case WMPLib.WMPPlayState.wmppsStopped
	' PREPARANDO UN NUEVO ITEM
	Case WMPLib.WMPPlayState.wmppsTransitioning
End Select


Obtener los archivos que contiene la carpeta elegida y las subcarpetas

Se emplea función recursiva que rellena listaMp3 con los archivos MP3 de carpetas y subcarpetas, es una función sobrecargada que se ejecuta de 2 formas diferentes:

  • con un parámetro strpath (string): lista los archivos y carpetas del directorio raíz
  • con 2 parámetros odir (DirectoryInfo) y nivel(integer): lista los archivos y carpetas de las subcarpetas.
' FUNCIÓN RECURSIVA QUE RELLENA listaMp3 CON LOS ARCHIVOS MP3 DE CARPETAS Y SUBCARPETAS
' ES UNA FUNCIÓN SOBRECARGADA QUE SE EJECUTA DE 2 FORMAS DIFERENTES:
' - CON UN PARÁMETRO strPath(String): LISTA LOS ARCHIVOS Y CARPETAS DEL DIRECTORIO RAÍZ
' - CON 2 PARÁMETROS oDir(DirectoryInfo) y nivel(Integer): LISTA LOS ARCHIVOS Y CARPETAS DE LAS SUBCARPETAS
Private Overloads Function ListarArchivos(ByVal strPath As String) As ArrayList
        Try
            Dim oDir As New System.IO.DirectoryInfo(strPath) ' propiedades del directorio raíz
            Dim oSubDir() As System.IO.DirectoryInfo ' propiedades de los subdirectorios
            Dim oFiles() As System.IO.FileInfo ' propiedades de los archivos
            Dim i As Integer ' para contar elementos en bucles
            oFiles = oDir.GetFiles ' archivos del directorio raíz
            '
            ' añadir al ArrayList cada uno de los archivos MP3 del directorio raíz
            ' se emplea la propiedad FullName pues contiene la ruta completa al archivo
            ' necesaria para que el reproductor pueda abrir el archivo mediante su propiedad URL
            For i = 0 To oFiles.Length - 1
                If Not oFiles(i).Name.StartsWith(".") Then
                    If oFiles(i).Name.EndsWith("mp3") OrElse oFiles(i).Name.EndsWith("MP3") Then
                        listaMp3.Add(oFiles(i).FullName)
                    End If
                End If
            Next
            '
            ' obtener las subcarpetas del directorio raíz
            oSubDir = oDir.GetDirectories
            ' en cada subcarpeta, se llama a la función recursiva con 2 parámetros:
            ' - la subcarpeta actual
            ' - la profundidad de la subcarpeta respecto al directorio raíz (se empieza por 1)
            For i = 0 To oSubDir.Length - 1
                Call ListarArchivos(oSubDir(i), 1)
            Next
            '
            lbIndex0.Text = "Nº de canciones:"
            lbIndex.Text = " " + CStr(listaMp3.Count)
        Catch ex As Exception
            MsgBox("Error en Recursive(strPath): " + vbCrLf + ex.Message)
        End Try
End Function

Private Overloads Function ListarArchivos(ByVal oDir As System.IO.DirectoryInfo, ByVal nivel As Integer) As ArrayList
        Try
            Dim oSubDir() As System.IO.DirectoryInfo ' propiedades de los subdirectorios
            Dim oFiles() As System.IO.FileInfo ' propiedades de los archivos
            Dim i As Integer ' para contar elementos en bucles
            oFiles = oDir.GetFiles ' archivos que contiene el directorio en cada llamada recursiva
            '
            ' añadir a listaMp3 cada uno de los archivos MP3 del subdirectorio
            ' se emplea la propiedad FullName pues contiene la ruta completa al archivo
            For i = 0 To oFiles.Length - 1
                If oFiles(i).Name.EndsWith("mp3") OrElse oFiles(i).Name.EndsWith("MP3") Then
                    listaMp3.Add(oFiles(i).FullName)
                End If
            Next
            '
            ' obtener las subcarpetas del subdirectorio
            oSubDir = oDir.GetDirectories()
            ' en cada subcarpeta, se llama a la función recursiva con 2 parámetros:
            ' - la carpeta actual
            ' - la profundidad de la carpeta respecto al directorio raíz (avanza 1 en cada pasada)
            For i = 0 To oSubDir.Length - 1
                Call ListarArchivos(oSubDir(i), nivel + 1)
            Next
        Catch ex As Exception
            MsgBox("Error en Recursive(oDir, nivel): " + vbCrLf + ex.Message)
        End Try
End Function


Reproducción aleatoria

El procedimiento Aleatorio() se encarga de generar un número aleatorio entre 1 y el número de elementos que componen la matriz de canciones (es decir, el número total de canciones en la carpeta).
La función Randomize() sin argumento arranca el generador de números aleatorios con un valor de inicialización basado en el temporizador del sistema.
La función Rnd() devuelve un número aleatorio de tipo Single (devuelve un valor menor que 1 pero mayor o igual que cero).
Para producir enteros aleatorios en un intervalo dado, se utiliza la siguiente fórmula:

aleatorio = CInt(Int((límite_superior - límite_inferior + 1) * Rnd() + límite_inferior))

En el siguiente ejemplo se genera un entero aleatorio en el intervalo entre 1 y 60:

Dim value As Integer = CInt(Int((60 * Rnd()) + 1))

El código del método Aleatorio() es:

' ejecutar este método cuando blShuffle es True
If blShuffle = True Then
	' para que no llame al método Aleatorio() en el evento wmppsTransitioning
	' hasta que termine el propio método Aleatorio() hacemos blShuffle = False
	blShuffle = False
	Randomize()
	' saber el número de archivos MP3 -> límite superior para usar con Rnd()
	Dim n As Integer
	n = listaMp3.Count
	' obtener un índice aleatorio
	' (se usa -1 porque el índice del ArrayList empieza en cero y listaMp3.Count empieza en 1)
	intCancion = CInt(n * Rnd() + 1) - 1
	' asignar el archivo al reproductor si el índice está dentro del rango adecuado
	If intCancion >= 0 And intCancion < listaMp3.Count Then
	    strArchivo = listaMp3(intCancion)
	    OcxPlayer.URL = strArchivo
	End If
End If


ZIP con la aplicación completa

Puedes descargar la aplicación completa desde aquí.

Nota: el ajuste automático de escala del formulario que muestra la ventana de la aplicación se puede configurar de varias maneras, lo tienes en las propiedades del formulario como AutoScaleMode, la opción con la que obtengo el mejor resultado es con Dpi.