Código fuente de la plataforma de tareas simples

Por supuesto que se quedó atascado. Hay algún problema con el código fuente roto. Si se utiliza un reloj, la latencia de los eventos periódicos es mayor que el período. ¿Mi programa mágico no puede quedarse bloqueado?

Versión 2

Soporta especificaciones de biblioteca

. Ventana de ensamblaje ventana de ensamblaje_inicio

. Identificador de variable de ensamblaje, número entero.

. Variable ensambladora a, tipo entero

. Variable ensambladora b, tipo entero

. Subrutina_ _Iniciar ventana_Creada

Handle = _Iniciar ventana. Sostenga la manija de la ventana ()

Reloj 1. período de reloj = 1000.

Subrutina_Reloj 1_Evento Periódico

. Si es verdadero (Seleccione el cuadro 1. Marque)

_Seleccione el cuadro 1_ Haga clic()

Si es verdadero, se acabó.

If (checkbox2. checksum a = 2)

_checkbox2_ Click()

else.

a = a + 1

si finalizó

si (casilla 3. marque b = 6)

_seleccione casilla 3_ Haga clic( )

En caso contrario.

b = b + 1

Si termina

. Haga clic en el cuadro de selección de subrutina 1.

. si es verdadero (seleccione la casilla 1. Marque)

Keyboard_Message (identificador, #Tab, 5,)

Salida de depuración("Tab")

Regresar()

Si realmente se acabó.

Se hace clic en el cuadro de selección de subrutina 2.

Si es verdadero (casilla de verificación 2. marcada)

a = 1

Mensaje_teclado (identificador, tecla #Shift, 5,)

p>

Salida de depuración ("tecla Mayús")

Regresar()

Si realmente terminó.

. Se hace clic en el cuadro de selección de subrutina 3_.

Si es verdadero (casilla de verificación 3. marcada)

b = 1

Keyboard_Message(handle,#F3key,5,)

p >

Salida de depuración ("tecla F3")

Retorno()