Red de conocimiento informático - Descarga de software - Escribir un programa de cuenta regresiva en Easy Language

Escribir un programa de cuenta regresiva en Easy Language

.Versión?2

.¿Biblioteca de soporte?shellEx

.Biblioteca de soporte?eAPI

.Assembly?Ensamblaje de ventana 1

.¿Variable de ensamblaje?Tecla F1,?Tipo de entero

.Subrutina?_Evento de reloj 1_Período

.¿Variable local?Bureau_hora actual,? >

¿Variable local? Oficina_mes actual,?Tipo de texto

¿Variable local? Oficina_fecha actual?

Oficina_hora actual?=?Obtener la hora actual?().

¿Mes actual de la oficina?=?¿Ir al mensaje de texto?(¿Obtener el mes?(hora actual de la oficina))

¿Fecha actual de la oficina?=?al mensaje de texto?(¿tomar fecha?(hora actual de la oficina) )

.Si es cierto?(bureau_now mes?=?edit box_month.content?and?bureau_now Fecha?=?Edit box_date.content)

Cuadro de información?("¡Se acabó el tiempo! ",?0,?)

Fin?()

.Si es verdadero fin

Etiqueta_tiempo restante.título?=?al texto?(bureau_hora actual)

.Subrutina?__iniciar ventana_creada

p>

.Variable local?mutex,?text

mutex?=?_iniciar ventana.título?+?label 4. título

.if True?(¿objeto de sincronización de eventos abierto?(2031619,?false,?mutex)?≠?0)

Fin?()

.Si es verdadero, final

¿Crear objeto de sincronización de eventos?(0,?false,?false,?mutex)

¿Tecla F1?=?Registrar tecla de acceso rápido?(_iniciar ventana. Obtener identificador de ventana ?(), ?Tag_remaining time.Get window handle?(),?0,?#F1 key)

¿Establecer ejecución automática?("Countdown 725.exe",?Obtener el directorio de ejecución?() ?+? "\Countdown 725.exe",?1)

.¿Subrutina?__Ventana de inicio_¿se puede cerrar?Lógica

_Ventana de inicio.Visible?=Falso

¿Retorno?(falso)

.¿Subrutina?_etiqueta_tiempo restante_evento de retroalimentación,?tipo entero

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

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

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

_Iniciar ventana.Visible?=?True

.Si true end

.Versión?2

.Comando DLL?Abrir objeto de sincronización de eventos,?Tipo entero, ?,?"OpenEventA",?,?Prohibir la apertura de múltiples archivos DLL

.Parámetro?Rellene 2031619,?Tipo entero,?,?dwDesiredAccess

.Parámetro?False,?Tipo lógico,?,?bINheritHandle

.Parámetro?Recurso nombre,?Tipo de texto,?,?LpName

.comando DLL?Crear objeto de sincronización de eventos,?,?,?"CreateEventA" ,?,?Prohibir la apertura múltiple de DLL

.Parámetro?Atributo de evento 0,?Tipo entero,?,?LpEventAttributes

.Parámetro?Reinicio manual,?Tipo lógico,?,?bManualReset

.Parámetro?Estado inicial,? Tipo lógico,?,?bEstado inicial

.Parámetro?Nombre del recurso,?Tipo de texto,?,?LpName