Programar con el condicional SELECT CASE.

SELECT CASE


Esta instrucción nos permite seleccionar los posibles valores que puede tomar una variable.
Ejemplo1:
Se desea desarrollar un programa que capture una edad y se debe mostrar un mensaje que muestre:
Si es un Bebe, de 0 a 3 años.
Si es un Niño, de 4 a 12 años.
Si es un Adolescente, de 13 a 17 años.
Si es un Adulto, de 18 en adelante.


1. Diseñe el siguiente formulario:

2. Doble clic en el botón Aceptar y copie el siguiente código:
Private Sub Command1_Click()
Dim Edad As Integer
Edad = Val(Text1)
Select Case Edad
  Case 0 To 3
    MsgBox "Es un Bebe", vbInformation, "Calcular Edad"
  Case 4 To 12
    MsgBox "Es un Niño", vbInformation, "Calcular Edad"
  Case 13 To 17
    MsgBox "Es un Adolescente", vbInformation, "Calcular Edad"
  Case Else
    MsgBox "Es un Adulto", vbInformation, "Calcular Edad"
End Select
End Sub

3. Presione F5, introduzca diferentes edades para que el programa calcule la edad.

EXPLICACIÓN DEL CÓDIGO:
La instrucción SELECT CASE, evalua los valores que pueda tener la variable EDAD (Selecciona los posibles casos o valores para la variable EDAD).
En este ejemplo la parte CASE 0 TO 3, Pregunta si la variable contiene un valor en el rango de cero hasta tres, si es verdadera la expresión se ejecuta las instrucciones siguientes:
MsgBox "Es un Bebe", vbInformation, "Calcular Edad"
Y salta al END SELECT (FINAL DEL SELECT).

CASE ELSE
Esta instrucción solo se ejecuta si las instrucciones anteriores son falsas.


Ejemplo 2:
Desarrolle un programa que calcule el valor comisión de un vendedor. Tenga en cuenta:
Nombre Vendedor
Valor Venta.
Calcular Valor comisión, el cual depende de:
Si la venta es menor de 1.000.000 la comisión es el 5% de la venta.
Si la venta está entre un 1.000.000 y 2.000.000  la comisión es el 10% de la venta.
Si la venta es mayor de 2.000.000 la comisión es el 15% de la venta.


1. Diseñe el siguiente formulario:

2. Doble clic en el botón Aceptar y copie el siguiente código:
Private Sub Command1_Click()
  Dim ValorVenta As Currency, Comision As Currency
  ValorVenta = Val(Text2)
  Select Case ValorVenta
    Case Is < 1000000
      Comision = ValorVenta * 5 / 100
    Case 1000000 To 2000000
      Comision = ValorVenta * 10 / 100
    Case Else
      Comision = ValorVenta * 15 / 100
  End Select
  Text3 = Comision
End Sub

3. F5, Introduzca diferentes valores de venta y presione CLIC en Aceptar y verifique que se estén realizando los cálculos correctos.

EXPLICACIÓN DEL CÓDIGO:
CASE IS < 1000000
realiza el calculo solo si la variable ValorVenta es menor de 1000000.

CASE 1000000 To 2000000
  Realiza el calculo solo si la variable ValorVenta está entre 1000000 y 2000000.

CASE ELSE
  Realiza el calculo solo si el Valor de la Venta Supera los 2000000.