Unidad 10. Primer programa en VB, procedimientos (III)





10.5. Estructuras en los procedimientos.

Todas las estructuras que hemos visto, o sea las tres que hay, son de aplicación en el interior de un procedimiento, pero nos falta ver cual es su sintaxis, así que empecemos por ahí.

1    Estructuras alternativas.

Una estructura alternativa es una instrucción en la que se puede ejecutar una de entre varias posibilidades, la más sencilla es del tipo If.

 

if (Expresión) Then  dat1 = dato

 

 

Donde expresión será cualquier expresión cuyo resultado de evaluación final siempre es del tipo cierto o falso.

Pueden ir o no acompañadas de un else, en función de que sea necesario para nuestro programa.

 

if (dato > 0) then

    dat1 = dato

  else

    dat1 = 25

end if

 

 

Hay otra instrucción alternativa que es Select Case, que mucho más estructurada y más potente en cuanto a sencillez de posibilidades de creación de estructuras.

Aquí tenemos un ejemplo con los posibles valores que nos interese de X, pero hay un sin fin de posibilidades en cuanto a posibles expresiones para evaluar.

 

 Select case X

 

     case 1

        Instrucción;

        Instrucción;

     case 2

        Instrucción;

        Instrucción;

     Case else

       Console.writeline("error" )

 End Select

 

Otro ejemplo de un Select Case

 

Select case Mes

     case 1: nombremes = "Enero"

     case 2: nombremes = "Febrero"

     case 3: nombremes = "Marzo"

     .. / ..

     case 12: nombremes = "Diciembre"

     Case Else

       NombreMes = "Incorreccto"

End Select

 

En el ejemplo podemos observar varias formas de escribir la instrucción.

 

En caso de que en la estructura deseemos dar una salida para la situación en la que no se cumpla ninguna de las situaciones previstas, podemos utilizar la opción de Case else

 

   Case Else

     NombreMes = "Incorreccto"

End Select

 

Dicho de otra forma es el equivalente del else en la instrucción If, vista anteriormente.

 

En el ejemplo tenemos una variable con un valor previsto de -1 y desconocemos cuales son las otras posibilidades, por lo tanto utilizamos case else para el resto.

 

Select Case valor

   case -1

     Console.writeline("No existe")

   Case else

     Console.writeline("Encontrado en la posición {0} " , valor)

End Select

 

Las estructuras alternativas pueden ir anidadas una en el interior de otra hasta alcanzar el nivel necesario para resolver la estructura que se nos presenta.

 

 if (x > 0) then

     y = 15

     if (x > 10) then 

        x = 2

      else

        x = 25

     end if

   else

     x = 25

 end if

Octubre-2010
Pág. 10.3

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

Síguenos en:   Facebook       Sobre aulaClic            Política de Cookies