Enum question

[Coccoliso]

Hello,
there is a more "elegant" ( 1 row of code ) to get the enum value from a knowed ENUM better than reported in ToEnum function ?
thanks.

Code: Select all

Module VisConsts

Public enum VisEnum
    Reset          = 0
    Chiamate       = 1
    Attesa         = 2
    Connessione    = 3
    Mappa          = 4
end enum

public function ToEnum(bVis as byte) as VisEnum
   select bVis
      case 0  : ToEnum = VisEnum.Reset         : exit function
      case 1  : ToEnum = VisEnum.Chiamate      : exit function
      case 2  : ToEnum = VisEnum.Attesa        : exit function
      case 3  : ToEnum = VisEnum.Connessione   : exit function
      case 4  : ToEnum = VisEnum.Mappa         : exit function
   end select 
end function

end module


[Jerry Messina]

It's not safe, but you could always just cast the byte...

Code: Select all

dim ve as VisEnum
dim bVis as byte

ve = VisEnum(bVis)


The thing is, that will let you put anything into variable 've', not just valid enum settings so it's not really a good idea.

You should probably have an 'else' clause in your ToEnum() function. What do you want to happen if bVis isn't a valid VisEnum item?

[Coccoliso]

Yes Jerry, I ate the row ELSE ..
Nice system that you showed me.
I was expecting some conversion function, but in reality is the compiler that provides a specific function after an enum declaration.
Nice. I need to store the state in EEPROM, and reload at the power on : the user finds the last selected item in the previously and the ELSE case is not proposed.