Seguimos avanzando en la comprensión de esta fantástica herramienta. Continuaremos analizando en profundidad las sentencias destinadas a controlar el flujo del programa, y proporcionando ejemplos que sirvan para su mejor entendimiento. En esta oportunidad, explicaremos como sacar provecho a Choose() y Select Case.
-
-
También puedes programar juegos en VB2005.
Como hemos visto, existe un grupo de instrucciones que tienen la capacidad de modificar el orden en que se ejecutan las demás sentencias de nuestro programa. En la entrega anterior aprendimos a utilizar “If…Then”, la instrucción de este tipo que se utiliza con mayor frecuencia. Hoy veremos las dos restantes: Choose() y Select Case.
Choose()
Esta función recibe una lista de parámetros, de los cuales el primero se utiliza como índice para determinar cual de los demás se devuelve al ser evaluada. Esto puede parecer difícil de entender, pero en realidad, como demostraremos con los ejemplos, es muy simple. El formato de Choose() es el siguiente:
Variable1 = Choose (indice, valor1, valor1, valor1, valor1,…., valorN)
Al ejecutarse esta sentencia, “Variable1” tomará alguno de los valores de la serie “Valor1” a “ValorN”. El contenido de la variable “indice” será el que determine cual resulta elegido: si “indice” es igual a 1, Choose() hará que “Variable1” tome el valor de “Valor1”; si “indice” es igual a 2 tomará el de “Valor2”; y así sucesivamente.
Pero un ejemplo nos ayudara aún más a comprender el funcionamiento de Choose(): supongamos que tenemos que elegir un color de una lista, donde el valor 1 está asignado al color rojo, el 2 al verde y el 3 al azul. Y queremos que la variable “Variable1” almacene la palabra “rojo”, “verde” o “azul” en función del valor de la variable “color”. Usando Choose(), se haría de la siguiente forma:
variable1 = Choose(color, "rojo", "verde", "azul")
El contenido de la variable "indice" determinará la respuesta.
Si hubiésemos querido hacer lo mismo utilizando “If…Then”, el programa sería mucho mas extenso (y quizás mas confuso):
Dim variable1 As String
Dim color As Integer
color = 2
If color = 1 Then
variable1 = "rojo"
Else
If color = 2 Then
variable1 = "verde"
Else
'asumo que si color no es 1 ni 2, es 3.
variable1 = "azul"
End If
End If
Distinto programa, mismo resultado.
-
¿Y tú, qué opinas?
-
#1
-
#2DragScorpio viernes, 04 de julio de 2008, 06:57
Ariel, excelente curso de VB. Espero muy interesado la próxima clase. Podrías indicarnos si existe algún manual en la red, para practicar mientras llega tu próximo envío?.
Saludos. -
#4luli_99 sábado, 25 de abril de 2009, 02:39
Necesito un fa elaborar un programa que lea un valor x y encuentre el valor numerico de la siguiente ecuacion: y= (x-3)/(x-25)
-
#5victorlp sábado, 30 de octubre de 2010, 04:45
Hola.
Cuando puedo ver la parte 4 de Programacion de Microcontroladores?
Excelente tutorial! -
Cargando...
-
nuevo comentario
Nombre Campo obligatorio
Email Escriba una dirección de correo electrónico con el formato sunombre@ejemplo.com.
Campo obligatorio
-
