Código fuente del reproductor de vídeo en lenguaje sencillo

Las rutinas en la biblioteca de soporte de Easy Language, específicamente abren Easy Language

de la siguiente manera:

Versión 2

. p> .Biblioteca de soporte iext2

.Programa Windows Assembly 1

.Subroutine_Play_Button_is_clicked

Media Play 1. Play(-1)

Media Play 1. Obtener longitud()

Se hace clic en la subrutina _botón de pausa_

. if (MediaPlay1.fetchState() = 1)

MediaPlay1.pause()

En caso contrario

MediaPlay1.Play (MediaPlay1.TakePosition())p>

.Si final

. Se hizo clic en la subrutina _Botón Detener_

Media Play 1.Stop ()

.Seleccione subrutina_Abrir_

Diálogo general 1.Filter = " Archivo multimedia|*.wav; *.mid;*.avi;*.mpg;*.mp3;*.wmv;*.rm"

.Si es verdadero (Diálogo general 1.Open () = verdadero)

Reproducción de medios 1.Abrir (Diálogo general 1.Nombre de archivo)

.If (Reproducción de medios 1.Es video () = Verdadero)

_Launch Window.Title = "Archivo de video "

. En caso contrario

_Launch window.Title = "Archivo de sonido"

.if end

. Si es verdadero, final

.Subrutina__Ventana de lanzamiento_ Creada

Botón Reproducir .Imagen = tomar una imagen de grupo (#Grupo de imágenes, 0, tomar color de fondo predeterminado ())

Botón de pausa.Imagen = tomar imagen del grupo de imágenes (#grupo de imágenes, 1, tomar color de fondo predeterminado ())

Botón Detener. Imagen = tomar una foto de grupo (#Grupo de imágenes, 2, usar el color de fondo predeterminado())

Haga clic en subrutina_SelectBox1_

.if (selectbox1.checked = true)

.

MediaPlay1.set handle (groupbox1. Obtener identificador de ventana ())

De lo contrario

Media Player1.handle (0)

.if end<. /p>

.

Subroutine_Media_Message_Selected

Variable local Texto de información, tipo de texto

Texto de información = "Relación:" + al texto (reproducción multimedia 1. relación de toma ()) + # saltos de línea + "Total tiempo:" + a texto (reproducción multimedia 1. toma proporción ()) + # saltos de línea + "Tiempo total:" + a texto (reproducción multimedia 1. toma proporción ())+ a texto (reproducción multimedia 1. toma tiempo total ()) + # saltos de línea + "Longitud:" + al texto (reproducción multimedia 1. toma el tiempo total ()) + # saltos de línea+ al texto (reproducción multimedia 1. toma el tiempo total ()) + # saltos de línea + "Longitud :" + a texto (reproducción multimedia 1.+ a texto (reproducción multimedia 1. toma el tiempo total ()) + # saltos de línea + "Longitud:"+ a texto (reproducción multimedia1. toma el tiempo total ()) + # saltos de línea "Duración:" + al texto (reproducción multimedia1. toma el tiempo total ()) + # saltos de línea "Longitud:"+ al texto (reproducción multimedia1.fetch longitud ()) + #salto de línea+ "posición de reproducción:" + al texto ( reproducción multimedia1.fetch posición ()) + # avance de línea + "alias MCI:" + reproducción multimedia1.fetch posición ()) + # avance de línea + "alias MCI:" + reproducción multimedia1.fetch posición ()) + # avance de línea + "alias MCI." + Reproductor multimedia 1. Obtener alias()

Cuadro de información (texto informativo, 0,)