COMO USAR ESTE REPRODUCTOR CON UN SOLO ARCHIVO DE AUDIO

Visual Basic tiene clases internas que fácilmente le ayuden en la codificación de las aplicaciones de audio . Media Player es una aplicación de Windows que se puede utilizar en Visual Basic para reproducir audio , tales como archivos de audio en formato MP3. Media Player contiene DLL ( bibliotecas de vínculos dinámicos ) , que se incluyen en los productos de programación de Microsoft. Esto significa que usted puede arrastrar y soltar objetos que tocan música sin muchas líneas de código. Cosas que necesitará  Visual Basic 6.0 Media Player MP3 archivo Mostrar más instrucciones 1Abra su proyecto de Windows en el editor de Visual Basic . Haga doble clic en el formulario para que se abra en el visor de diseño . Es necesario agregar el objeto Media Player para el proyecto , ya que no se carga en la barra de herramientas de forma automática. 2 Haga clic en la barra de herramientas y seleccione la opción "Add /Remove Items " . Esto abrirá una nueva caja de la ventana con una lista de herramientas. Haga clic en la ficha " COM Components ", luego ir a la caja de la opción titulada " Windows Media Player ". Coloque una marca en esta área, para luego haga clic en " Aceptar". 3 Arrastrar y soltar la herramienta Media Player de la barra de herramientas en el formulario de Visual Basic . Entrada " myMedia " en la propiedad " Name" de la herramienta Media Player, haga doble clic en el icono para abrir la vista de código. 4 Asignar el archivo de música MP3 para el componente. En el siguiente código se reproducirá la canción " mySong.mp3 " mediante el componente Reproductor de medios: " . MySong.mp3 " Me.myMedia.URL = 5 Pulse la tecla " F5 " después de guardar la forma . "F5 " se ejecuta el código en el depurador que pone a prueba la aplicación. "F5 " se utiliza para asegurarse de que el nuevo código se compila y reproduce la canción dentro de la aplicación de Visual Basic .

REPRODUCTOR DE AUDIO

Parece un poco largo el código, pero en realidad es corto ya que la mayoría es para habilitar o deshabilitar los controles de Play, Pause y Stop..

Para el ejemplo colocar los siguientes controles en un form:

• 4 CommandButton: Command1 (Play) , Command2(stop) , Command3 (Pause) y Command4 (Abrir archivo)
• Un Commondialog1
• Un Label1: Para mostrar el Path

1. Option Explicit  
2. 'Función Api GetShortPathName para obtener _  
3. los paths de los archivos en formato corto  
4. Private Declare Function GetShortPathName _  
5.     Lib "kernel32" _  
6.     Alias "GetShortPathNameA" ( _  
7.         ByVal lpszLongPath As String, _  
8.         ByVal lpszShortPath As String, _  
9.         ByVal lBuffer As Long) As Long  
10.   
11. 'Función Api mciExecute para reproducir los archivos de música  
12. Private Declare Function mciExecute _  
13.     Lib "winmm.dll" ( _  
14.         ByVal lpstrCommand As String) As Long  
15. Dim ret As Long, path As String  
16.   
17. 'Le pasamos el comando Play  
18. Private Sub Command1_Click()  
19.     ejecutar ("Play ")  
20.     Habilitar "Play"  
21. End Sub  
22.   
23. Private Sub Command2_Click()  
24.     'Le pasamos el comando Stop  
25.     ejecutar ("Stop ")  
26.     Habilitar "Stop"  
27. End Sub  
28.   
29. 'Le pasamos el comando Pause  
30. Private Sub Command3_Click()  
31.     ejecutar ("Pause ")  
32.     Habilitar "Pause"  
33. End Sub  
34.   
35. 'Le pasamos el comando Close a MciExecute para cerrar el dispositivo  
36. Private Sub Form_Unload(Cancel As Integer)  
37.     mciExecute "Close All"  
38. End Sub  
39.   
40. 'Botón para abrir seleccionar los archivos de audio  
41. Private Sub Command4_Click()  
42.     With CommonDialog1  
43.         .Filter = "Archivos Wav|*.wav|Archivos Mp3|*.mp3|Archivos MIDI|*.mid"  
44.         .ShowOpen  
45.         If .FileName = "" Then  
46.             Habilitar "Iniciar"  
47.             Exit Sub  
48.         Else  
49.             'Le pasamos a la sub que obtiene con _  
50.             el Api GetShortPathName el nombre corto del archivo  
51.             PathCorto .FileName  
52.             Label1 = .FileName  
53.             'cerramos todo  
54.             mciExecute "Close All"  
55.             'Para Habilitar y deshabilitar botones  
56.             Habilitar "Stop"  
57.         End If  
58.     End With  
59. End Sub  
60.   
61. 'Sub que obtiene el path corto del archivo a reproducir  
62. Private Sub PathCorto(archivo As String)  
63. Dim temp As String * 250 'Buffer  
64.     path = String(255, 0)  
65.     'Obtenemos el Path corto  
66.     ret = GetShortPathName(archivo, temp, 164)  
67.     'Sacamos los nulos al path  
68.     path = Replace(temp, Chr(0), "")  
69. End Sub  
70.   
71. 'Procedimiento que ejecuta el comando con el Api mciExecute  
72. '************************************************************  
73. Private Sub ejecutar(comando As String)  
74.     If path = "" Then MsgBox "Error", vbCritical: Exit Sub  
75.     'Llamamos a mciExecute pasandole un string que tiene el comando y la ruta  
76.   
77.     mciExecute comando & path  
78.   
79. End Sub  
80.   
81. Private Sub Form_Load()  
82.     Command1.Caption = "Play >>"  
83.     Command2.Caption = "Stop ||||"  
84.     Command3.Caption = "Pause ||"  
85.     Command4.Caption = ":::: Abrir archivo de música ::::"  
86.     Habilitar "Iniciar"  
87.     Label1 = "": Label1.AutoSize = True  
88. End Sub  
89.   
90. Private Sub Habilitar(Accion As String)  
91.     Select Case Accion  
92.         Case "Iniciar"  
93.             Command1.Enabled = False  
94.             Command2.Enabled = False  
95.             Command3.Enabled = False  
96.         Case "Play"  
97.             Command1.Enabled = False  
98.             Command2.Enabled = True  
99.             Command3.Enabled = True  
100.         Case "Stop"  
101.             Command1.Enabled = True  
102.             Command2.Enabled = False  
103.             Command3.Enabled = False  
104.         Case "Pause"  
105.             Command1.Enabled = True  
106.             Command2.Enabled = True  
107.             Command3.Enabled = False  
108.     End Select  
109. End Sub