ESTRUCTURAS DE CONTROL
Permiten tomar decisiones y realizar un proceso repetidas veces. Son los
denominados bifurcaciones y bucles. Este tipo de estructuras son comunes
en cuanto a concepto en la mayoría de los lenguajes de programación,
aunque su sintaxis puede variar de un lenguaje de programación a otro. Se
trata de unas estructuras muy importantes ya que son las encargadas de
controlar el flujo de un programa según los requerimientos del mismo.
Visual Basic 6.0 dispone de las siguientes estructuras de control:
If …
Then … Else
Select Case For … Next Do … Loop
While … Wend
For Each … Next
Select Case For … Next Do … Loop
While … Wend
For Each … Next
Sentencia IF … THEN … ELSE …
Esta
estructura permite ejecutar condicionalmente una o más sentencias y puede
escribirse de dos formas. La primera ocupa sólo una línea y tiene la forma
siguiente:
If condicion
Then sentencia1 [Else sentencia2]
La segunda es
más general y se muestra a continuación:
If condicion Then
sentencia(s)
[Else
sentencia(s)]
End If
sentencia(s)
[Else
sentencia(s)]
End If
Si condición es True (verdadera), se ejecutan las sentencias que están a
continuación de Then, y si condición es False (falsa), se ejecutan las
sentencias que están a continuación de Else, si esta cláusula ha sido
especificada (pues es opcional). Para indicar que se quiere ejecutar uno de
varios bloques de sentencias dependientes cada uno de ellos de una condición,
la estructura adecuada es la siguiente:
If condicion1 Then
sentencias1
ElseIf condicion2 Then
sentencias2
Else
sentencia-n
End If
sentencias1
ElseIf condicion2 Then
sentencias2
Else
sentencia-n
End If
Si se cumple la condicion1 se ejecutan las sentencias1, y si no se
cumple, se examinan
secuencialmente las condiciones siguientes hasta Else, ejecutándose las sentencias correspondientes al primer ElseIf cuya condición se cumpla. Si todas las condiciones son falsas, se ejecutan las sentencias-n correspondientes a Else, que es la opción por defecto.
secuencialmente las condiciones siguientes hasta Else, ejecutándose las sentencias correspondientes al primer ElseIf cuya condición se cumpla. Si todas las condiciones son falsas, se ejecutan las sentencias-n correspondientes a Else, que es la opción por defecto.
condición 1
True
condición
True
True
condición
True
Bloque 1 de sentencias
False
Bloque 2 de sentencias
False condición 2
False
Bloque 3
Bloque 1
True
Bloque 2
Bifurcaciones If e
If…Else.
Por ejemplo,
Numero = 53 ’
Se inicializa la variable. If Numero < 10 Then
Digitos = 1
ElseIf Numero < 100 Then
‘En este caso la condición se cumple (True) luego se ejecuta lo siguiente.
Digitos = 2
Else ‘En el caso en que no se cumplan los dos anteriores se asigna 3
Digitos = 3
End If
Digitos = 1
ElseIf Numero < 100 Then
‘En este caso la condición se cumple (True) luego se ejecuta lo siguiente.
Digitos = 2
Else ‘En el caso en que no se cumplan los dos anteriores se asigna 3
Digitos = 3
End If
Sentencia SELECT CASE
Esta sentencia permite ejecutar una de entre varias acciones en función
del valor de una expresión. Es una alternativa a If … Then … ElseIf cuando se
compara la misma expresión con diferentes valores.
Su forma
general es la siguiente:
Select Case
expresion
Case etiq1
[sentencias1]
Case etiq2
[sentencias2]
Case Else
sentenciasn
End Select
Case etiq1
[sentencias1]
Case etiq2
[sentencias2]
Case Else
sentenciasn
End Select
donde expresión
es una expresión numérica o alfanumérica, y etiq1, etiq2, … pueden adoptar las
formas siguientes:
1. expresión
2. expresión
To expresión
3. Is
operador-de-relación expresión
4.
combinación de las anteriores separadas por comas
Por ejemplo,
Numero = 8 ’
Se inicializan las variable.
Select Case Numero’ Se va a evaluar la variable Numero.
Case 1 To 5 ‘Numero está entre 1 y 5.
Resultado = “Se encuentra entre 1 y 5″
‘ Lo siguiente se ejecuta si es True la expresión.
Case 6, 7, 8 ‘Numero es uno de los tres valores.
Resultado = “Se encuentra entre 6 y 8″
Select Case Numero’ Se va a evaluar la variable Numero.
Case 1 To 5 ‘Numero está entre 1 y 5.
Resultado = “Se encuentra entre 1 y 5″
‘ Lo siguiente se ejecuta si es True la expresión.
Case 6, 7, 8 ‘Numero es uno de los tres valores.
Resultado = “Se encuentra entre 6 y 8″
Case Is = 9 , Is = 10 ‘ Numero es 9 ó 10.
Resultado =
“El valor es 9 o 10″
Case Else ‘ Resto de valores.
Resultado = “El número no se encuentra entre 1 y 10″
End Select
Case Else ‘ Resto de valores.
Resultado = “El número no se encuentra entre 1 y 10″
End Select
Cuando se
utiliza la forma expresión To expresión, el valor más pequeño debe aparecer en
primer lugar.
Cuando se ejecuta una sentencia Select Case, Visual Basic evalúa la expresión
y el control del programa se transfiere a la sentencia cuya etiqueta tenga el
mismo valor que la expresión evaluada, ejecutando a continuación el
correspondiente bloque de sentencias. Si no existe un valor igual a la
expresion entonces se ejecutan las sentencias a continuación de Case
Else.
Sentencia FOR … NEXT
La sentencia
For da lugar a un lazo o bucle, y permite ejecutar un conjunto de sentencias
cierto número de veces. Su forma general es:
For variable
= expresion1 To expresion2 [Step expresion3] [sentencias]
Exit For
[sentencias]
Next [variable]
Exit For
[sentencias]
Next [variable]
Cuando se ejecuta una sentencia For, primero se asigna el valor de la
expresion1 a la variable y se comprueba si su valor es mayor o menor que la
expresion2. En caso de ser menor se ejecutan las sentencias, y en caso de ser
mayor el control del programa salta a las líneas a continuación de Next. Todo
esto sucede en caso de ser la expresion3 positiva. En caso contrario se
ejecutarán las sentencias cuando la variable sea mayor que expresion2. Una vez
ejecutadas las sentencias, la variable se incrementa en el valor de la
expresion3, o en 1 si Step no se especifica, volviéndose a efectuar la
comparación entre la variable y la expresion2, y así sucesivamente.
La sentencia
Exit For es opcional y permite salir de un bucle For … Next antes de que éste
finalice. Por ejemplo,
finalice. Por ejemplo,
MyString=”Informática ”
For Words = 3 To 1 Step -1 ‘ 3 veces decrementando de 1 en 1.
For Chars = Words To Words+4 ’5 veces.
MyString = MyString & Chars ‘ Se añade el número Chars al string.
Next Chars ‘ Se incrementa el contador
MyString = MyString & ” ” ‘ Se añade un espacio.
Next Words
‘El valor de MyString es: Informática 34567 23456 12345
For Chars = Words To Words+4 ’5 veces.
MyString = MyString & Chars ‘ Se añade el número Chars al string.
Next Chars ‘ Se incrementa el contador
MyString = MyString & ” ” ‘ Se añade un espacio.
Next Words
‘El valor de MyString es: Informática 34567 23456 12345
Sentencia DO … LOOP
Un Loop (bucle) repite la ejecución de un conjunto de sentencias
mientras una condición dada sea cierta, o hasta que una condición dada sea
cierta. La condición puede ser verificada antes o después de ejecutarse el
conjunto de sentencias. Sus posibles formas son las siguientes:
’ Formato 1:
Do [{While/Until} condicion]
[sentencias] [Exit Do] [sentencias]
Loop
’ Formato 2:
Do
[sentencias] [Exit Do] [sentencias]
Loop [{While/Until}condicion]
Do [{While/Until} condicion]
[sentencias] [Exit Do] [sentencias]
Loop
’ Formato 2:
Do
[sentencias] [Exit Do] [sentencias]
Loop [{While/Until}condicion]
La sentencia opcional Exit Do permite salir de una bucle Do … Loop antes de que finalice
éste. Por ejemplo,
Check = True
’ Se inicializan las variables. Counts = 0
Do ‘ Empieza sin comprobar ninguna condición.
Do While Counts < 20 ‘ Bucle que acaba si Counts>=20 o con Exit Do.
Counts = Counts + 1 ‘ Se incrementa Counts.
If Counts = 10 Then ‘ Si Counts es 10.
Check = False ‘ Se asigna a Check el valor False.
Exit Do ‘ Se acaba el segundo Do.
End If
Loop
Loop Until Check = False ‘ Salir del “loop” si Check es False.
Do ‘ Empieza sin comprobar ninguna condición.
Do While Counts < 20 ‘ Bucle que acaba si Counts>=20 o con Exit Do.
Counts = Counts + 1 ‘ Se incrementa Counts.
If Counts = 10 Then ‘ Si Counts es 10.
Check = False ‘ Se asigna a Check el valor False.
Exit Do ‘ Se acaba el segundo Do.
End If
Loop
Loop Until Check = False ‘ Salir del “loop” si Check es False.
En el ejemplo mostrado, se sale de los bucles siempre con Counts = 10.
Es necesario fijarse que si se inicializa Counts con un número mayor o igual a
10 se entraría en un bucle infinito (el primer bucle acabaría con Counts = 20
pero el segundo no finalizaría nunca, bloqueándose el programa y a veces el
ordenador).
Sentencia WHILE … WEND
Esta
sentencia es otra forma de generar bucles que se recorren mientras se cumpla la
condición inicial. Su estructura es la siguiente:
While condicion
[sentencias]
Wend
While condicion
[sentencias]
Wend
Por ejemplo,
Counts = 0 ’
Se inicializa la variable.
While Counts < 20 ’ Se comprueba el valor de Counts.
Counts = Counts + 1 ’ Se incrementa el valor de Counts.
Wend ’ Se acaba el bucle cuando Counts > 19.
While Counts < 20 ’ Se comprueba el valor de Counts.
Counts = Counts + 1 ’ Se incrementa el valor de Counts.
Wend ’ Se acaba el bucle cuando Counts > 19.
En cualquier caso se recuerda que la mejor forma de mirar y aprender el
funcionamiento de todas estas sentencias es mediante el uso del Help de Visual
Basic. Ofrece una explicación de cada comando con ejemplos de utilización.
Sentencia FOR EACH … NEXT
Esta construcción es similar al bucle For, con la diferencia de que la
variable que controla la repetición del bucle no toma valores entre un mínimo y
un máximo, sino a partir de los elementos de un array (o de una colección de
objetos). La forma general es la siguiente:
For Each variable In grupo [sentencias] Next variable
For Each variable In grupo [sentencias] Next variable
Con arrays variable tiene que ser de tipo Variant. Con colecciones variable puede ser Variant o una variable de tipo Object. Esta construcción es muy útil cuando no se sabe el número de elementos que tiene el array o la colección de objetos.
