Bucle While-Wend

[Slappter]

Significado: While (mientras), Wend (hasta)

Uso:

Código:

While condicion

Instrucciones

Wend

Explicación:

condicion = condicion a hacer referencia para la ejecución del bucle

Instrucciones = instrucciones a ejecutar si la condicion es verdadera

Ejemplo:

Código:

Dim InformaticaVirtual As String

Private Sub Form_Load()

InformaticaVirtual = "1"

While InformaticaVirtual < 2

MsgBox "xD", vbInformation + vbOkOnly

InformaticaVirtual = 3

Wend

End Sub

Explicación #2:

Código:

Dim InformaticaVirtual As String

Declaramos una variable de tipo String a la cual le llamamos InformaticaVirtual

Código:

Private Sub Form_Load()

Al cargar el formulario (evento Form_Load)

Código:

InformaticaVirtual = "1"

Le decimos a la variable InformaticaVirtual que tome el valor de 1

Código:

While InformaticaVirtual < 2

Comenzamos el bucle y decimos que mientras InformaticaVirtual sea menor que 2 se ejecute el bucle. Esta condicion obiamente es verdadera ya que declaramos en 1 la variable InformaticaVirtual al cargar el Formulario

Código:

MsgBox "xD", vbInformation + vbOkOnly

Esta es la instucción y decimos que muestre un mensaje con el texto "xD" y de tipo informacional (no se si existe esa palabra) y con solamente el botón Ok

Código:

InformaticaVirtual = 3

Cambiamos el valor de la variable InformaticaVirtual y le decimos que tome el valor 3, por lo tanto el bucle termina de producirse ya que la condicion deja de ser verdadera. Atención: si nos salteamos este paso, seguramente se produzca un Overflow en la PC donde se ejecute, ya que la condición no terminaría nunca jamás de reproducirse, en mi caso es un error que hago muy frecuentemente y da como resultado que se cuelgue la aplicación en curso

Código:

Wend

End Sub

Terminamos el bucle y el evento Form_Load

Espero les sirva, es un bucle de fácil uso y muy útil

# By Slappter # WwW.InformaticaVirtual.InFo #