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