Hice un reproductor MP3 sencillo en un lenguaje sencillo, pero algunas canciones no se pueden reproducir, tampoco en formato MP3. ¿Qué está sucediendo?

. Si es verdadero (valor del elemento ≠ -1)

memoria del cuadro de lista (listbox1.tomar texto del elemento (valor del elemento), 1)

.Fin si es verdadero

imagen Cuadro 1. Reproducir animación = false

. Subrutina _ImageBox1_Left Se ha presionado el botón izquierdo del mouse, tipo lógico

Parámetro posición horizontal, tipo entero

. posición vertical, tipo entero

Estado de la tecla de función del parámetro, tipo entero

Reproducción de subprograma

. Parámetro Parameter_filename, tipo de texto

. Nombre del archivo de la barra de estado de la variable local, tipo de texto, "0"

. Nombre de archivo de variable local, tipo de texto

Reproducir MP3 (, nombre_archivo_parámetro)

Nombre de archivo de la barra de estado = Texto dividido (listbox1.take_item_text (listbox1.current_selected_item), "\", )

Nombre de archivo = nombre del archivo de la barra de estado [obtener subíndice de matriz (nombre del archivo de la barra de estado,)]

Salida de depuración (nombre del archivo)

Barra de estado 1. Texto (0, "Reproduciendo:" Obtener texto izquierdo (nombre de archivo)

Salida de depuración (nombre de archivo)

Barra de estado 2. caption = buscar texto a la izquierda (nombre de archivo, buscar longitud del texto (nombre de archivo) ) - 4))

Etiqueta transparente 1.title = Toma el lado izquierdo del texto (nombre de archivo, toma la longitud del texto (nombre de archivo) - 4))

Cuadro de edición 1 .content = ListBox1. Obtener texto del elemento (ListBox1.Selección actual)

.Subroutine_ListBox1_DoubleClickSelect

Reproducir (eliminar el primer y último espacio en blanco (ListBox1.FetchItemText (ListBox1.CurrentSelectedItem)))

PictureBox1.PlayAnimation = True

PictureBox2.Visible = False

.Memoria del cuadro de lista de subrutinas

.Parámetro nueva información, tipo de texto, se puede dejar en blanco

.Tipo de operación de parámetro, entero

.Datos de campo de variable local, información de campo, "1"

.Número de registro de variable local, entero

.

Si es verdadero (¿existe el archivo? (tome el directorio de ejecución () "\db.dat") = falso)

Datos del campo [1].Nombre = "ruta"

Datos del campo [ 1]. Tipo = #Tipo de texto

Datos del campo [1]. Longitud máxima del texto = 500

. Si es verdadero (crear (tomar directorio de ejecución () "\db.dat", datos de campo) = falso)

Cuadro de mensaje ("Error al crear datos", 0,)

Return ()

.Si es verdadero final

.Si es verdadero (abrir (tomar el directorio de ejecución () "\db.dat", , , , , ) = false)

Cuadro de mensaje ("Error al abrir la base de datos", 0,)

Retorno ()

Si es verdadero fin

Si es verdadero Fin<. /p>

. OK Inicio(ActionType = 1)

.Si es verdadero (AddRecord(NewMessage) = False)

MessageBox("Error al agregar el registro", 0,)

Retorno()

.Finalizar si es verdadero

. Juicio (tipo de operación = 2)

.Si es verdadero (número de registros obtenidos () = 0)

Devuelve ()

.Si es verdadero, entonces finaliza

. El primer ciclo del ciclo de conteo (obtener el número de registros (), obtener el número de registros)

listbox1.add item (leer ("ruta"),)

omitir ()

.Contar cola de bucle ()

.Predeterminado

.Fin del juicio

.Crear subrutina _Ventana1_

Shadow FX ()

Apariencia de recurso (#Imagen 1)

Abrir (tomar el directorio de ejecución () "\db.dat", , , , , , )

Memoria de Listbox (, 2)

Editbox1.= "Aquí puedes agregar música"

Subrutina_Listbox1_botón derecho del mouse presionado, tipo lógico

. .Posición horizontal del parámetro, tipo entero

.Posición vertical del parámetro, tipo entero

.Estado de la tecla de función del parámetro, tipo entero

Menú emergente (clic derecho , , )

.Subroutine_DeleteRecord_Selected

.Si es verdadero (Eliminar (Buscar (Leer ("Ruta") = Listbox1.Obtener texto del elemento (Listbox1.Actualmente seleccionado))))

.Si es verdadero (eliminar completamente ())

listbox1.empty ()

listboxmemory (, 2)

.Si es verdadero final

.

Si es verdadero, finalice

.Subrutina_Eliminar todos los registros_seleccionados

.Variable local nn, tipo entero

Eliminar (verdadero)

Eliminar completamente ( )

ListBox1.Empty()

Memoria ListBox(,2)

.Subroutine_ListBox1_ListItemSelected

.Subroutine_SliderBar2_Position se cambia, , , volumen ajuste

.Variable local Sonido izquierdo, entero

.Variable local sonido_derecho, tipo entero

.Variable local n1, tipo entero

Volumen del sistema 1. activado (4)

.Si (barra deslizante 2. posición = 1)

Volumen del sistema 1. De lo contrario

Volumen del sistema 1.silenciado (falso)

.Si final

.Si es verdadero (barra deslizante 2.posición = 10)

Volumen del sistema 1.Establezca el volumen (Volumen del sistema 1. Tome el volumen máximo (), Volumen del sistema 1.Tome el volumen máximo ())

.Fin si es verdadero

.Primer bucle de conteo (8, n1) 'Conserva 8 volúmenes excepto el volumen máximo y silencio.

Si es verdadero (barra deslizante 2. posición = n1)

Volumen del sistema 1. Configure el volumen (volumen del sistema 1. Tome el volumen máximo () × (n1 - 10) × 0,1, volumen del sistema 1. Tome el volumen máximo () × (n1 - 10) × 0,1)

Pausa fuera del bucle ()

. Si es verdadero, finaliza

. Fin del ciclo de conteo ()

.Subrutina_Barra de estado 1_Botón izquierdo del mouse presionado, valor lógico

.Parámetro posición horizontal, número entero

.Parámetro posición vertical, número entero

Estado de la tecla de función del parámetro, número entero

. La subrutina _EditBox1_content cambió

PictureBox4.visible = true

Retraso (3000)

PictureBox4.visible = false

. La subrutina _Window1_ será destruida

End ()

El elemento de la subrutina _Rollup Menu1_ está seleccionado

. Índice del menú de parámetros, número entero

. Índice de elemento de parámetro, número entero

end ()

Subrutina Subrutina_Inicializar

Subrutina para obtener el tiempo de la canción Rutina de subrutina. obtener tiempo MP3