Ilustrar el uso de las enumeraciones en VB.
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.
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
Síguenos en: Facebook Sobre aulaClic Política de Cookies