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:

<code lang="vb" class="language-vb">' 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
Lenguaje del código: HTML, XML (xml)


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.

<code lang="vb" class="language-vb">' 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
Lenguaje del código: HTML, XML (xml)


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.

<code lang="vb" class="language-vb">' 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
Lenguaje del código: HTML, XML (xml)


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.
<code lang="vb" class="language-vb">' 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
Lenguaje del código: HTML, XML (xml)


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:

<code lang="vb" class="language-vb">aleatorio = CInt(Int((límite_superiorr - límite_inferiorr + 1) * Rnd() + límite_inferiorr))
Lenguaje del código: JavaScript (javascript)

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

<code lang="vb" class="language-vb">Dim value As Integer = CInt(Int((60 * Rnd()) + 1))
Lenguaje del código: JavaScript (javascript)

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

<code lang="vb" class="language-vb">' 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
Lenguaje del código: HTML, XML (xml)


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.