Estructura Do While Loop

La estructura Do While Loop nos permiten realizar bucles que se repiten mientras una condicion dada sea cierta, osea, cuando la condicion no se cumpla, se sale del bucle y se continua con el programa.

El seudocodigo es

01 MIENTRAS <Condicion> HACER
02     Accion 1
03     Accion 2
04     ...
05     Accion n
06 FIN MIENTRAS

El diagrama de flujo

Ejemplo: Escribir numeros mintras el contador sea menor o igual a 10

01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do While contador <= 10
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop
10         Console.Read()
11     End Sub
12 
13 End Module

A veces tambien es necesario que la "accion" se realice una ves antes de ejecutar la condicion del bucle While, para esto se utiliza la forma Do Loop While

El seudocodigo en español

01 REPETIR
02     Accion 1
03     Accion 2
04     ...
05     Accion 3
06 MIENTRAS QUE <condicion>

Y el diagrama de flujo

Ej.: El mismo ejemplo anterior pero esta ves la condicion esta al final

01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop While contador <= 10
10         Console.Read()
11     End Sub
12 
13 End Module

Estos bucles se ejecutan cuando la condicion dada es verdadera (TRUE), pero si queremos que el ciclo se ejecuta mientras la condicion sea falsa (FALSE), debemos cambiar el WHILE por el UNTIL, quedando para el primer caso de la siguiente forma:

01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do Until contador > 10
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop
10         Console.Read()
11     End Sub
12 
13 End Module

Y para la segunda forma con la condicion al final:

01 Module Module1
02 
03     Sub Main()
04         Dim contador As Integer
05         contador = 1
06         Do
07             Console.WriteLine("Contador: " & contador)
08             contador = contador + 1
09         Loop Until contador > 10
10         Console.ReadLine()
11     End Sub
12 
13 End Module

Posted in: Estructuras Repetitivas,Visual Basic