Unidad 30. Enumeraciones en VB (II)





30.4. Recorrido

El contenido de una enumeración se puede recorrer capturando primero el contenido mediante la siguiente línea.

 

  ' Se captura los códigos

  Valores = System.Enum.GetValues(GetType(Monedas))

  ' Se captura los nombres

  Nombres = System.Enum.GetNames(GetType(Monedas))

 

Para ello hay que declarar las variables Valores y Nombres del tipo Array

 

  Dim Valores As Array

  Dim Nombres As Array

 

Como el recorrido se hará basándose en un bucle del tipo

 

For each variable in Colección

 

La variable en este caso deberá ser del tipo String

 

Dim item As String

 

Una vez que disponemos de todos los elementos, ya podemos ejecutar el bucle, primero el de código.

 

  ' Se pasa al vector los códigos

  X = 0

  For Each item In Valores

    V(X).Codigo = CInt(item)

    X = X + 1

  Next

 

Y otro bucle para los nombres, el orden de ejecución de los bucles es indistinto.

 

 

  ' Se pasa al vector los nombres

  X = 0

  For Each item In Nombres

    V(X).Denom = item

    X = X + 1

  Next

 

Y ya disponemos del contenido de la enumeración en un vector, para el uso que deseemos.

30.5. Conclusiones.

El uso de una enumeración se convierte en imprescindible si se desea un programa ordenado y claro.

No tiene sentido el uso de valores enteros en un programa, cuando se pueden sustituir por descripciones, que siempre reducirá el número de posibles errores.

 

•Ejercicios propuestos de la Unidad
Octubre-2010
Pág. 30.2

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

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