Enums en Visual Basic
Constantes con nombre, sus enteros y [Enum] entre corchetes.
Dim order = Roast.Medium
Console.WriteLine(order)
Console.WriteLine(CInt(order))
If order > Roast.Light Then Console.WriteLine("bold enough")
For Each level In [Enum].GetValues(Of Roast)()
Console.WriteLine($"{CInt(level)}: {level}")
Next
Enum Roast
Light = 1
Medium
Dark
End Enum
Cómo funciona
- Los miembros cuentan hacia arriba desde el primer valor explícito.
CIntextrae el número; WriteLine imprime el nombre.- Los corchetes dejan que la palabra clave
Enumactúe como nombre de tipo. GetValues(Of Roast)()enumera cada miembro en orden.
Palabras clave y builtins usados aquí
CIntDimEachEndEnumForIfNextOfThen
El intento, en números
- Líneas
- 15
- Caracteres a escribir
- 283
- Tokens
- 71
- Ritmo de tres estrellas
- 85 tpm
Al ritmo de tres estrellas de 85 tokens por minuto, este intento toma unos 50 segundos.
Paso 2 de 3 en Tipos por valor; paso 20 de 29 en Fundamentos del lenguaje.