Cómo hacer una cuenta atrás en un lenguaje sencillo

1 pestaña, 1 cuadro de edición, 2 botones, 1 reloj, 1 cuadro de lista de selección. Conjunto ventana conjunto 1

. Variable de montaje Cuenta atrás. Subrutina __Start Window_Create_Complete Selecciona el cuadro de lista 1. Agregar elemento("Horas", )

Cuadro de lista de selección 1. Agregar elemento("Minutos", )

Cuadro de lista de selección 1. Agregar elemento("Segundos",) p>

Seleccione el cuadro de lista 1. "Segundos", )

Seleccione el cuadro de lista 1. Se hace clic en radio = true en la subrutina _Button1_ Reloj 1. período de reloj = 0. Se hace clic en la subrutina _Button2_. Comienza el juicio (Seleccione el cuadro de lista 1. Selección actual = 0)

Etiqueta 1.Título = Time_Formatting (Tiempo_a_segundos (Al valor (Editar cuadro 1.Contenido), 2))

Cuenta regresiva = Tiempo_a_segundos (al valor (cuadro de edición 1.Contenido), 2)

.Juicio (seleccione el cuadro de lista 1. Selección actual = 1)

Etiqueta 1.título = formato_tiempo (tiempo_a_segundos) (a valor (editbox 1.content), 1))

Cuenta regresiva = tiempo_a_segundos (a valor (editbox 1.content), 1)

.OK (Seleccione Listbox 1.Current) Selección = 2)

Etiqueta 1.Título = Time_Formatting (a valor (Editbox 1.Content))

Cuenta regresiva = a valor (Editbox 1.Content)

.Valor predeterminado.Subroutine_Clock1_Period Evento Cuenta regresiva = Cuenta regresiva - 1

Etiqueta 1.Título = Time_Formatting (Cuenta regresiva).Subrutina time_formatting, tipo de texto

. Parámetros segundos, entero

. Minutos de variable local, número entero

. Horas de variable local, número entero

día, número entero

.

Determina el punto de inicio del bucle (segundos > 59)

Minutos = minutos + 1

Segundos = segundos - 60

Determina el final del bucle. ()

Determine el punto de inicio del ciclo (minutos > 59)

Horas = horas + 1

Minutos = minutos - 60

.

Determinar el punto final del ciclo ()

Determinar el punto de inicio del ciclo (horas > 23)

Días = días + 1

<. p> Horas = horas - 24

.determinar el final del bucle()

.if (días = 0)

inicializar formato = time_formatted2 (horas ) + "horas" + time_formatted2 (minutos) + "minutos" + time_formatted2 (segundos) + "segundos"

De lo contrario

formato de inicialización = a texto (días) + "días". " + time_formatting2 (horas) + "horas" + time_formatting2 (minutos) + "minutos" + Time_formatted2 (segundos) + "segundos"

. Devuelve si se completa (formato de inicialización). Subrutina time_format2, tipo de texto

. Tiempo del parámetro, número entero

. Formato de variables locales, texto. El juicio comienza (tiempo < 10)

Formato = "0" + al texto (tiempo)

Juicio (tiempo = 0)

Formato = " 00. "

. Valor predeterminado

Formato = a texto (hora)

Juzgar fin

Regresar (formato). Subrutina tiempo_a_segundos, entero

. Tiempo del parámetro, número entero

. Parámetro tipo_tiempo, entero, 1: minutos 2: horas 3: días

Variable local segundos, entero. Comienza el juicio (tipo de tiempo = 1)

Segundos = tiempo × 60

. Juicio (tipo de tiempo = 2)

Segundos = tiempo × 3600

. Juicio (tipo de tiempo = 3)

Segundos = tiempo × 24 × 3600

. valor predeterminado. La sentencia se completa y se devuelve (segundos)

.