Make your own free website on Tripod.com

 

Do... Loop, Do While, Do Until

 

 

La estructura Do.. Loop se usa para crear un bucle interminable o un bucle que se detiene cuando se cumple una condición.

 

Do... Loop. Bucle interminable

 

Do

        Form1.ForeColor = QBColor(15 * Rnd)

        Print "Para parar, manten pulsada Ctrl y Break"

Loop

 

Otra forma de parar un bucle interminable sería incluyendo dentro del bucle la sentencia DoEvents para que pueda responder a eventos externos como el botón Salir. Estos bucles no prestan mucha utilidad, a no ser que incluyan una condición, de tal forma que cuando sea True finalice el Loop.

 

Do While

 

Sintaxis

 

Do Wile condición

            Bloque de sentencias a ejecutar

Loop

 

 

Ejemplo:

 

Do While Nombre <>” Fin”

            Nombre = InputBox("Escribe tu nombre o Fin para salir")

            If Nombre <> "Fin" Then  Print Nombre

Loop

 

Si se desea ejecutar el bucle al menos una vez habría que colocar la prueba condicional al final del bucle:

 

Do

            Nombre = InputBox("Escribe tu nombre o Fin para salir")

            If Nombre <> "Fin" Then  Print Nombre

Loop While Nombre <>” Fin”

 

Conversión de Temperaturas

 

1.      Inicia un proyecto nuevo.

2.      No incluyas ningún objeto en el formulario.

3.      Asigna el valor False a la propiedad Visible del formulario Form1 (Esta propiedad oculta el formulario durante la ejecución del programa).

4.      Da doble clic en el centro del formulario y escribe el siguiente código:

 

Guarda el proyecto y Ejecuta el programa.

 

 

 

Do... Until

 

VB también permite utilizar la palabra clave Until en los bucles Do para ejecutar un bucle hasta que cierta condición sea verdadera. Al igual que el While, la palabra clave puede utilizarse al principio o al final del Do para evaluar una condición. Es indistinto usar la sentencia While o Until.

 

Do

            Nombre = InputBox (“Escribe tu nombre o Fin para salir.”)

            If nombre <> “Fin” Then Print Nombre

Loop Until Nombre = “Fin”

 

Si comparas los códigos de While y Until , te darás cuenta que lo único que cambia son los operadores.

 

Actividad

 

¿Qué es lo que imprime este bloque de código?

 

Private Sub ....

N = 10

Do While n >= 0

            Print n

            N = n-1

Loop

End Sub

 

La sentencia n = n-1 decrece en 1 el valor de la variable n.

 

 

Home | VB |