La condición Do While ejecuta el bloque de instruciones mientras la condición sea verdadera; en el momento en que se evalua como falsa automáticamente termina el ciclo y el programa continua su ejecución en la siguiente linea de la instrucción Loop.
Sintaxis
Do While condición
[sentencias]
Exit Do
[sentencias]
Loop
Do
[sentencias]
Exit Do
[sentencias]
Loop While condición
La condición se puede verificar antes o despues de ejecutar las sentencias.
Ejemplo:
Crear una aplicación que desplace un objeto Picture Box de izquierda a derecha en un formulario, la imagen debe partir de cero, y al encontrar el borde derecho del formulario presentar un mensaje "termino" y denuevo mostrar la figura en cero.
-Para poder resolver debemos saber las medidas de un objeto dentro de un formulario, las cuales son:
- Left = distancia del borde izquierdo del form hasta borde izquierdo del objeto.
- Top = distancia del borde superior del objeto hasta borde superior del form.
- Width = Ancho del objeto.
- Heigth = Alto del objeto.
- Escale Width = Ancho del form.
- Escale Heigth = Alto del form.
En este caso el nombre del objeto se llamara cara.
Insertamos la imagen de la carita desde el escritorio, internet o paint.
Vamos a código
Do Private sub Form_click ()
Form1_click()
Do While (cara.left + cara.width) < left =" cara.left">
Loop
MsgBox termino
Cara. left = 0
No hay comentarios:
Publicar un comentario