El código fuente en lenguaje sencillo está todo en chino

Vea si este es el caso. Lo escribí aproximadamente como me pediste. Si algo no le parece bien, ¡haga preguntas adicionales! ¡Haz mi mejor esfuerzo para ayudarte a mejorar y ayudarte!

El código es el siguiente:

-

Versión 2

. Conjunto ventana conjunto 1

. Tiempo de variable de ensamblaje, tipo entero

. Temporización variable de ensamblaje entero

. ¿Se pueden desactivar las variables de ensamblaje? Tipo lógico.

Subrutina_Reloj 1_Evento Periódico

Tiempo=Tiempo-1

. Comienza el juicio (tiempo = 0)

Apaga el sistema (# apagado, verdadero)

. Valor predeterminado

Fin de prueba

Etiqueta 1. Título = "Ingresa Te amo en " para enviar el mensaje de texto (hora) ", de lo contrario, ¡te verás obligado a cerrar!"

. Se ha modificado el contenido de la subrutina _cuadro de edición 1_.

Si es verdadero(cuadro de edición 1. Contenido = "Te amo")

if (cuadro de mensaje("¿Estás seguro?", 32 1, "Por favor confirma") = #botón confirmar)

Cuadro de imagen 1. Imagen = leer archivo (obtener el directorio en ejecución () "1. jpg").

Cuadro 1. Visible=True

Se puede desactivar=True

De lo contrario.

Reloj 1. período de reloj = 1000.

¿Se puede desactivar=false?

Si se acabó

Return()

Si realmente se acabó.

Reloj 1. período de reloj = 1000.

. Subrutina_ _StartWindow_Created

Tiempo = 60

. Subrutina_ _Ventana de inicio_ ¿Se puede cerrar?, tipo lógico

Si es verdadero (Falso = si se puede cerrar)

Si (cuadro de mensaje ("¡Al finalizar este programa se cerrará este sistema! Son ¿Estás seguro de que deseas finalizar este programa? , 32 4, "Operación de apagado") = # botón Sí)

Apagar el sistema (# apagado, verdadero)

Fin ()

En caso contrario

Return(false)

Si finaliza

Return()

Si true Se acabó.

Fin()