Comment #2

JADELottery — Sun, 12 Apr 2009 17:24:02 GMT

<br />Great suggestion though.<br

Comment #1

Todd — Sun, 12 Apr 2009 15:54:21 GMT

<br />It's a highly subjective topic, but I had a couple of comments to throw out there for your consideration.<br /><br />First thing is that I've had to write similar multi-purpose functions, but over the years I've tended to break them into multiple functions -- one function per operation type. So if I were writing similar code today, I'd probably make four separate functions -- such as bitExamine(), bitClear(), bitToggle(), and bitSet(). (All start with "bit" so they sort & group together... [ More ]

Original Blog Entry: Byte Me

JADELottery — Sun, 12 Apr 2009 00:24:21 GMT

Module MyFunctions

'------------------------------------------------------------

'Enumerated Bit States for CSTEBit function

'Used with CSTEBit function

'Example:

' 'This will change the value of MyByte from HF0 to HF8

' Dim MyByte As Byte = HF0

' Dim ChangeThisBit As Byte = H04

' MyByte = CSTEBit(BitState.SetBit, MyByte, ChangeThisBit)

'------------------------------------------------------------

Enum BitState As Byte

ClrBit = 0 'Clear bit

SetBit = 1 'Set bit

TogBit = 2 'Toggle bit

ExmBit = 3 'Examine bit

End Enum

'----------------------------------------------------------------------

'Function for changing and examining bit states within a byte

'A byte has 8 bits to Set or Clear and each position is numbered 0 to 7

'Each position of the bits is as follows:

'Position - 7 6 5 4 3 2 1 0

' Bit - 1 0 1 0 1 1 0 1

' ^ ^ ^ ^ ^ ^ ^ ^

' Position | | | | | | | |

' Values | | | | | | | |

' 128---+ | | | | | | |

' 64-----+ | | | | | |

' 32-------+ | | | | |

' 16---------+ | | | |

' 8-----------+ | | |

' 4-------------+ | |

' 2---------------+ |

' 1-----------------+

'-----------------------------------------------------------------------

Public Function CSTEBit(ByVal CSTE As Byte, ByVal Byt As Byte, ByVal Bit As Byte) As Byte

If Bit 8 Then

'Bit positon mask

Dim Mask As Byte = 2 ^ Bit

Select Case CSTE

Case BitState.ExmBit

'Examine bit

'Returns a byte value of H01 for set and H00 for clear

If ((Byt And Mask) 0) Then

CSTEBit = 1

Else

CSTEBit = 0

End If

Case BitState.ClrBit

'Clear bit

CSTEBit = Byt And Not Mask

Case BitState.TogBit

'Toggle bit

CSTEBit = Byt Xor Mask

Case BitState.SetBit

'Set bit

CSTEBit = Byt Or Mask

Case Else

'Return same byte if CSTE out of bounds

CSTEBit = Byt

End Select

Else

'Return same byte if Bit is out of bounds

CSTEBit = Byt

End If

End Function

End Module

... [ More ]