Easy Language realiza un efecto de escritura automática en el cuadro de edición

.Versión 2

.Ventana de ensamblaje ensamblaje 1

.Grupo de texto variable de ensamblaje, tipo de texto, "0"

. Variable de ensamblaje i, tipo entero

.Texto actual de la variable de ensamblaje, tipo de texto

.Tipo de variable de ensamblaje, tipo de texto

.Programa Establece el número de palabras de la variable, entero type

. Subrutina __start window_created

Grupo de texto = { "Easy Language realiza un efecto de escritura automática en el cuadro de edición", "Puedes usar el reloj para lograr una implementación simple", "Fácil El lenguaje es más adecuado para que lo aprendan los programadores principiantes" }

Tipo = "escribir"

Número de palabras = 0

i = 1

p>

Reloj 1. Período de reloj = 50

.Subrutina_Reloj 1_Evento de período

Texto actual = grupo de texto [i]

.Inicio de juicio (número de palabras ≤ tomar la longitud del texto (texto actual))

.Inicio del juicio (tipo = "escribir")

Cuadro de edición 1. Contenido = tomar el lado izquierdo de texto (texto actual), recuento de palabras)

Predeterminado

Cuadro de edición 1. Contenido = Toma el lado izquierdo del texto (texto actual, toma la longitud del texto (texto actual) - recuento de palabras)

Fin del juicio

Número de palabras = número de palabras + 1

Predeterminado

Número de palabras =. 0

Inicio del juicio (tipo = "escribir")

Tipo = "Eliminar"

Predeterminado

Tipo = ". Escribiendo"

. Comienza el juicio (i < Obtener el número de miembros de la matriz (grupo de texto))

i ＝ i + 1

.Default

i ＝ 1

.Fin del juicio

.Fin del juicio

.Fin del juicio