Jugando con las Ventanas y Controles

Este programa que se anexa realiza la redimension de un formulario al mismo tiempo que recorre la pantalla del pc en sentido de izquierda a derecha. Este es un ejercicio sencillo para los alumnos de Programación 4 del IUT «Jacinto Navarro Vallenilla» de Carúpano.

El codigo debe ser colocado dentro de un objeto timer. basicamente debe ser este:

PUBLIC SUB Timer1_Timer()
DIM acumulador AS Integer

carl2.X = carl2.X + acumulador + 5

IF carl2.X = 100 THEN
carl2.Y = carl2.Y + 10
acumulador = carl2.X
carl2.Height = carl2.Height – 50
carl2.Width = carl2.Width – 50
Timer1.Delay = Timer1.Delay – 10
carl2.X = 0

IF carl2.Width = 50 OR carl2.Height = 50 THEN
Message.Info(«Estoy muy chiquito\n cierrame por favor…»)
ME.Close
ENDIF

ENDIF

END

Deben tomar en consideracion lo siguiente:

1. En este caso Carl2 es el nombre de un formulario (ventana).
2. Las propiedades width y height deben inicializarse en 500, usando la barra de propiedades.
3. OJO: A los alumnos de la materia programacion 4 del IUT JNV. el Jueves 5 y viernes 6, tienen examen, parecido a esto pero un poco mas fuerte.

Consultas: todas las que quieran.

saludos.