Os gané, todos dormidos!. Que ya se acaban..jajaja!.
Retomando un ejemplo que tomé de otro ejemplo de Java sobre los enumerados.
Se trata de, tener una variable que pueda tener distintos valores siempre fijos, no puede tener otros.
En este caso, el enumerado facilita la elección de esos valores.
Ejemplo: Tipos de cerveza y cantidad a servir.
Como los enumerados son números tuve que convertir el número a texto, para saber que cerveza se iba a servir.
Main
Clase BebidaCerveza. Valores estáticos prácticamente. En este caso públicos.
Aquí tuve que usar Choose para saber de que cerveza se trataba.
Y tuve que hacer que el enumerado comenzara por 1, ya que en Choose los valores van, 1, 2...
También podía haber sumado uno a la variable $marca.
Public Enum AMBAR = 1, GUINNESS = 2, HEINEKEN = 3
Private $unvaso As Vaso
Private $marca As Integer
Private smarca As String
Public Sub _new(marca As Integer, medida As Integer)
$marca = marca
smarca = Choose(marca, "AMBAR", "GUINESS", "HEINEKEN")
$unvaso = New Vaso(medida)
End
Public Sub servir()
Print "Sirviendo " & $unvaso.getCentimetrosCubicos() & " cc. de cerveza " & smarca
End
Private $unvaso As Vaso
Private $marca As Integer
Private smarca As String
Public Sub _new(marca As Integer, medida As Integer)
$marca = marca
smarca = Choose(marca, "AMBAR", "GUINESS", "HEINEKEN")
$unvaso = New Vaso(medida)
End
Public Sub servir()
Print "Sirviendo " & $unvaso.getCentimetrosCubicos() & " cc. de cerveza " & smarca
End
La clase vaso y sus medidas.
Es muy probable que subiese este ejemplo anteriormente pero no finalizado.
¿ De qué maneras lo habrías hecho tú y que te parece el uso del enumerado en este caso ?.
En gambas no se suele usar mucho esto. En Java si. Quizás en gambas tenemos otras formas.
P.d Usar el ejemplo con moderación.
Saludos
