Código de términos solares en lenguaje sencillo

Versión 2

. Soporte de biblioteca

. Se hizo clic en subrutina_button1_.

Si es verdadero (Cuadro de edición 1. Contenido = " ")

Cuadro de información ("El tiempo establecido no puede estar vacío", 0, "Mensaje de error")

Return()

Si realmente terminó.

Reloj 1. período de reloj = 1000.

. Subrutina_ _StartWindow_Created

Reloj 1. período de reloj = 0.

Cuadro de edición 1. Método de entrada = 3? Entrada de texto entero

Subrutina_reloj1_evento periódico

. Hora variable local, tipo entero, estática.

Juicio de inicio (tiempo ≥ a número entero (cuadro de edición 1. contenido) × 60)

_Ventana de inicio. Title = "Ha llegado el momento, el sistema se está apagando..."

Apaga el sistema (# apagado, verdadero)

. Predeterminado

Tiempo=tiempo+1

_Ventana de inicio. Título = "Cuánto falta para el apagado:" + a texto (a un número entero (cuadro de edición 1. contenido) × 60 veces) + "segundos"

Fin de la prueba