Red de conocimiento informático - Conocimiento informático - Código fuente del sistema de navegación del mini programa

Código fuente del sistema de navegación del mini programa

Código de programa

{

Versión 2

Biblioteca de soporte shellEx

. Biblioteca de soporte eAPI

. Conjunto ventana conjunto 1

. Identificador de tecla de acceso rápido variable de ensamblaje, número entero.

. Recuento de variables de ensamblaje, tipo entero

. Subrutina_ _Iniciar ventana_Creada

Identificador de tecla de acceso directo = tecla de acceso rápido registrada (obtener identificador de ventana (), etiqueta 1. Obtener identificador de ventana (), 0, tecla #F10).

Subrutina_Reloj 1_Evento Periódico

. Número de variable local, tipo de texto

. Variable local b grado, tipo entero.

Contar=contar+1

Teclas analógicas (tecla #A, tecla #2 y tecla #espacio)

. Encabezado del bucle de conteo (obtener la longitud del texto (al texto (contar)), contar b)

Número = obtener la mitad del texto (al texto (contar), contar B, 1)

Si es verdadero (número = "0")

Simular clave (# clave 0,,)

Si es verdadero.

Si es verdadero (número = "1")

Simular clave (# clave 1,,)

Si es verdadero.

Si es verdadero (número = "2")

Simular clave (# clave 2,,)

Si es verdadero.

Si es verdadero (número = "3")

Simular clave (# clave 3,,)

Si es verdadero.

Si es verdadero (número = "4")

Simular clave (tecla # 4,,)

Si es verdadero.

Si es verdadero (número = "5")

Simular clave (# clave 5,,)

Si es verdadero.

Si es verdadero (número = "6")

Simular clave (# clave 6,,)

Si es verdadero.

Si es verdadero (número = "7")

Simular clave (# clave 7,,)

Si es verdadero.

Si es verdadero (número = "8")

Simular clave (# clave 8,,)

Si es verdadero.

Si es verdadero (número = "9")

Simular clave (# clave 9,,)

Si es verdadero.

. Cola del ciclo de conteo ()

Tecla analógica (tecla #Intro,,)

Título = a texto (recuento)

. Si es verdadero (recuento = 10)

_ Etiqueta 1_Evento de retroalimentación (0, 0)

Si es verdadero.

. Subrutina _ Etiqueta 1_Evento de retroalimentación, tipo entero

Parámetro parámetro 1, tipo entero

Parámetro parámetro 2, tipo entero

. If(clock1.clockperiod=0)

reloj1. período de reloj = 1000.

Etiqueta 1. Título = "Abierto"

En caso contrario.

Reloj 1. período de reloj = 0.

Etiqueta 1. Title="Close"

Title="Close"

Si finaliza

La subrutina _ _Ventana de inicio_ será destruida.

Deshacer tecla de acceso rápido (obtener identificador de ventana (), identificador de tecla de acceso rápido)

}Fin

Solo hay dos controles, un reloj y una etiqueta.

Si desea probar la estabilidad sin otras configuraciones, puede activar el período de reloj en el código del cuaderno y configurarlo en =1.

Rápido, fuerte estabilidad y código simple.

Si tienes alguna otra pregunta, por favor pregunta a Baidu hola.

-

Por cierto, si quieres controlar el número de veces, agrega un código. a la subrutina del ciclo de reloj.

Código complementario{

Si es verdadero (recuento = 100000), este 100000 es el número de veces que limitas.

_ Etiqueta 1_Evento de retroalimentación (0, 0)

}