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
No hay comentarios:
Publicar un comentario