Red de conocimiento informático - Aprendizaje de código fuente - Cómo hacer un carrusel de idiomas fácil con docenas de palabras desplazándose hacia arriba y hacia abajo y un carrusel infinito, abra la fuente -

Cómo hacer un carrusel de idiomas fácil con docenas de palabras desplazándose hacia arriba y hacia abajo y un carrusel infinito, abra la fuente -

.Versión 2

.Ventana de ensamblaje Ensamblaje 1

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

.Variable de ensamblaje Recuento, Entero

.Recuento de variables, entero

.Entero

.Arriba/abajo, valor lógico

.Subrutina __Launch Window_Create_Complete

Label1.whether autofold = true

Label1.title = a texto (leer en el archivo (tomar el directorio de ejecución () + "\123.txt"))

Conjunto de texto = dividir texto (label1.title, # nueva línea, )

Conjunto de texto = texto dividido (label1.title, # nueva línea, )

Conteo, entero, lógico

p >

./p>

Conteo = 2

Arriba y abajo = verdadero

Reloj1.período de reloj = 2000

.Subroutine_clock1_cycle_event

Etiqueta 1.title = ""

.Bucle variable Primero (contar, tomar miembros de la matriz (grupo de texto), 1, contar)

Etiqueta1 .Título = Etiqueta1.Título + grupo de texto [recuento] + # carácter de nueva línea

. El bucle variable finaliza ()

El juicio comienza (arriba y abajo)

recuento = recuento + 1

.Valor predeterminado

Recuento = Conteo - 1

.El juicio ha terminado

. Si es verdadero (recuento = tomar miembro de la matriz (grupo de texto) o recuento = 1)

Arriba y abajo = revertir (arriba y abajo)

Si es verdadero, Fin