ESTRUCTURAS DE CONTROL

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

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

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

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.

condición 1
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

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

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″

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

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]

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,

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

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]

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.

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

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.

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

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.

VISUAL BASIC PRACTICA 1