Software de producción de lenguaje sencillo

Este software no requiere modo de ventanas múltiples, se puede completar una matriz;

1 Lea las rutas de todas las imágenes y agréguelas a la matriz ArryPIc

3. Añade un evento debajo del botón. Versión 2

. ¿Subrutina?_Se_ha hecho clic en el botón 1

Subrutina_Scroll_Picture?()

.¿Subrutina? Subrutina_ScrollPicture

. ¿parámetro? Valor lógico, puede estar vacío

. Variable local i, número entero

. if (abajo = Falso)

PicSid=PicSid+1

. En caso contrario

PicSid?=?PicSid?-?1

. si final

. si es cierto? (PicSid?>?Obtener el número de miembros de la matriz?(ArryPIc))

PicSid?=?(ArryPIc)

PicSid?(ArryPIc)

. Si es verdadero, finalice

. Si es verdadero, finalice

. (PicSid?≤?0)

PicSid?=?1

.End if true

PicBox1.Picture? =?Leer archivo?(ArryPIc? [ PicSid])

Subroutine_ScrollPicture() ?El valor predeterminado está vacío y la imagen se incrementará hacia arriba. Si es verdadero, la imagen se reducirá hacia atrás.