Ayuda ejercicios unidad 30: Enumeraciones en VB

1. Declarar una enumeración para los posibles valores del estado de un semáforo.

Enum Semaforo

Abierto = 1

Cambia = 2

Cerrado = 3

End Enum

2. Declarar una enumeración para los posibles valores de seguridad en los accesos que pueda tener una persona las distintas zonas de un complejo con varios niveles de seguridad.

Enum Seguridad

Prohibido = 0

Normal = 1

Restringidas = 2

Total = 3

End Enum

4. Realizar la carga de los valores de una de las enumeraciones anteriores y visualizarlas por pantalla.

Module Ejemplos

Enum Seguridad

Prohibido = 0

Normal = 1

Restringida = 2

Total = 3

End Enum

Structure Enumeracion

Dim Codigo As Integer

Dim Denom As String

End Structure

Sub Main()

Dim X As Integer

Dim item As String

Dim Valores As Array

Dim Nombres As Array

' Se captura los códigos

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

' Se captura los nombres

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

' Se captura el número de elementos de la enumeración

X = Valores.Length - 1

' Se defina el vector con el valor de X,

Dim V(X) As Enumeracion

' Se pasa al vector los códigos

X = 0

For Each item In Valores

V(X).Codigo = CInt(item)

X = X + 1

' Se pasa al vector los nombres

X = 0

For Each item In Nombres

V(X).Denom = item

X = X + 1

' Se visualiza el contenido

X = 0

Console.WriteLine("Código es {0} y su valor {1} ", V(X).Codigo, V(X).Denom)

X = X + 1

Loop Until X = V.Length

Console.ReadLine()

End Sub

End Module