Enumeraciones - I

Una enumeración consiste en un conjunto de constantes relacionadas. A cada constante se le asigna un nombre, mientras que la agrupación de tales constantes, es decir, la propia enumeración recibe también un nombre identificativo. 

Supongamos por ejemplo, que en un programa debemos realizar clasificaciones por estilos musicales: Rock, Blues, New Age, Funky, etc. El modo más sencillo de manipular estos valores en el código es identificarlos mediante números, de forma que cuando en un procedimiento tengamos que saber la selección del estilo que ha realizado un usuario, empleemos el número identificativo en lugar de cadenas de caracteres. Veamos el Código fuente 301.

Public Sub SelecEstilo(ByVal liEstiloMusical As Integer)

Select Case liEstiloMusical

Case 1

' se ha seleccionado Rock

' ....

Case 2

' se ha seleccionado Blues

' ....

Case 3

' se ha seleccionado New Age

' ....

Case 4

' se ha seleccionado Funky

' ....

End Select

End Sub

Código fuente 301

Sin embargo, la sencillez que supone el uso de números para identificar determinadas características en nuestra aplicación, tiene el efecto adverso de dificultar la lectura del código, ya que, en todos los procedimientos donde debamos trabajar con estilos musicales, deberemos de añadir un comentario de código junto al número de estilo, para saber de cuál se trata. 

Podemos solucionar parcialmente el problema utilizando constantes, de modo que por cada estilo musical, crearemos una constante a la que asignaremos el número de un estilo. Veamos el Código fuente 302.

Public Const ROCK As Integer = 1

Public Const BLUES As Integer = 2

Public Const NEWAGE As Integer = 3

Public Const FUNKY As Integer = 4

Public Sub SelecEstilo(ByVal liEstiloMusical As Integer)

Select Case liEstiloMusical

Case ROCK

' ....

Case BLUES

' ....

Case NEWAGE

' ....

Case FUNKY

' ....

End Select

End Sub

Código fuente 302