Cómo escribir el código para Easy Language Player

. ¿Versión 2?

.Ensamblaje de ventana 1

.Número de archivo,? variable?mp3,?tipo de texto,?,?"0"

.Variable de ensamblaje?opción,?tipo de texto

.Subprograma?__ventana de inicio _Creación completada

. ¿Variable local? Nombre de archivo,? Tipo de texto

Cuadro combinado 1. ¿Agregar elemento? ("Seleccione una canción",?)

Botón 2. ¿Título?=?" Reproducir"

¿Opciones?=?"Repetir"

Nombre de archivo?=?¿Buscar archivo?(¿Obtener el directorio en ejecución?()?＋?" \*.mp3”,?)

¿Bucle para determinar el primer nombre de archivo?()

¿Nombre de archivo?=?¿Buscar archivo?(,?)

.Si es verdadero?(Archivo name?=?"")

¿Escapar del bucle?()

Si es verdadero final

Cuadro combinado 1. ¿Agregar proyecto?(¿Nombre de archivo,? )

¿Agregar miembro?(mp3,?nombre de archivo)

¿Bucle para determinar el final?(¿nombre de archivo?≠?"")

Configuración aleatoria. ¿Número inicial?()

Cuadro combinado 1. ¿Elemento seleccionado actualmente?=?0

_¿Se hizo clic en el botón 1?()

¿Programa?_Se hizo clic en el botón 1

.¿Si es cierto?(Botón2.Título?=?"Continuar")

Botón2.Título?=?"Reproducir"

Botón 1. ¿Título?=? Opción

¿Dejar de jugar?()

Cuadro combinado 1. ¿Elemento seleccionado actualmente?=?0

.Finalizar si es verdadero

. Si es verdadero? (opción?=?"Repetir")

Botón 1. ¿Título?=?"Repetir"

Opción ?=?"Aleatorio"

Return?()

.Si es verdadero fin

.If?(option?=?"Random")

Botón 1. Título?=?"Random "

¿Opción?=?"Secuencia"

. En caso contrario

Botón 1. ¿Título?= ?"Secuencia"

¿Opción? =?"Repetir"

.Si finalizó

¿Volver?()

.¿Se hizo clic en la subrutina? _Botón 2_

.Si es verdadero ?(¿Obtener estado de reproducción de MP3?()?=?1)

¿Pausar la reproducción de MP3?()

Botón 2. ¿Título?=?"Continuar"

Opciones?=?Botón 1. Título

Botón 1. ¿Título?=?"Parar"

Retorno?()

.Si es verdadero final

.¿Si?(¿Obtener estado de reproducción de MP3?()?=?0)

.¿Si es verdadero?(Cuadro combinado 1. ¿Elemento seleccionado actualmente?=?0)

Número de archivo?=?1

Si realmente terminó

¿Reproducir?()

De lo contrario

Continuar jugando. MP3?()

Botón 1. Título?=?Opción

.Si final

Botón 2. Título?=?"Pausa"

¿Regresar?()

.¿Subrutina?_Cuadro combinado 1_Listar elemento seleccionado

N.º de archivo?=?Cuadro combinado 1. Selección actual

Botón 2 . Título?=?"Reproducir"

¿Detener reproducción?()

Subrutina ?Reproducir

Cuadro combinado 1. ¿Elemento seleccionado actualmente?=?Número de archivo.

¿Reproducir MP3 simultáneamente?(mp3?[número de archivo],?,?Etiqueta 1,?)

.Subrutina?_Tag1_Evento de retroalimentación,?Tipo de entero

.Parámetro?Parámetro uno,?Tipo entero

.Parámetro?Parámetro dos, ?Tipo entero

Barra de progreso 1. Posición?=?Parámetro uno

. ¿Si es verdadero?(Parámetro uno?=?100)

.Si es verdadero?(Botón 1. Título?=?"Aleatorio")

Número de archivo?=?Obtener un número aleatorio ?(1,?Obtener el número de miembros de la matriz?(mp3))

.si realmente termina

.if

¿En serio?(Botón 1. ¿Título?=?"Secuencia")

.¿Si?(¿Número de archivo?＜?¿Obtener el número de miembros de la matriz?(mp3))

Número de archivo ?= ?Número de archivo?＋?1

En caso contrario

Número de archivo?=?1

.Si termina

. Si termina

Play?()

.Si termina