Unidad 30. Enumeraciones en VB (I)





30.1. Objetivos del tema.

Ilustrar el uso de las enumeraciones en VB.

30.2. Introducción.

El uso de las enumeraciones en VB está muy logrado, pues el entorno de programación las integra de una manera muy cómoda para el programador, utilizándola como ayuda en las llamadas a los procedimientos y funciones.

30.3. Creación.

La sintaxis a usar es la que vemos a continuación

 

  Enum Monedas

    Euro = 1

    Dolar = 2

    Libra = 3

    Yen = 4

  End Enum

 

  Enum Monedas

    Euro

    Dolar

    Libra

    Yen

  End Enum

 

En ambos casos la sintaxis es correcta, la diferencia es que en el primer caso forzamos los valores, Euro sería uno, y en el segundo sería cero, que es el valor que VB le da por defecto.

 

Es la definición del nombre de la enumeración.

 

Enum Monedas

 

  Euro = 1

  Dolar = 2

  Libra = 3

  Yen = 4

 

Es el contenido.

 

End Enum

 

Es el final de la descripción de los elementos de la enumeración.

 

Una de las utilizaciones se refleja en la imagen:

 

 

Podemos observar como se introduce un dato en la inicialización del objeto, y luego al llegar al campo de la enumeración, automáticamente aparece el contenido de la enumeración, ya que el dato que ahí se espera es del tipo  Monedas, y solo hay que elegir una de las opciones disponibles, que además estamos viendo.

 

  Public Function Convertir(ByVal Cual As Monedas) As Double

    Select Case Moneda

      Case Monedas.Euro

        Select Case Cual

          Case Monedas.Dolar

            Convertir = Import * 1.22

          Case Monedas.Libra

          Case Monedas.Yen

        End Select

      Case Monedas.Dolar

 

      Case Monedas.Libra

 

      Case Monedas.Yen

 

    End Select

  End Function

 

Lo mismo sucede con la escritura de un Select Case, por ejemplo, en la que en el momento de escribir la palabra case se despliega automáticamente la enumeración para poder ver los valores disponibles y su valor.

 

 

Su uso en el principal quedaría:

 

Module Module1

  Sub Main()

    Dim Importe As Double = Console.ReadLine

    Dim Objeto As Ejemplos = New Ejemplos(Importe, Ejemplos.Monedas.Euro)

    Console.WriteLine(Objeto.Convertir(Ejemplos.Monedas.Dolar))

    Console.ReadLine()

  End Sub

End Module

Octubre-2010
Pág. 30.1

Atrás  Inicio  Adelante






Página inicial  Cursos Informática Gratuitos

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