Campbell CR850 - Figure 78: Bool8 Data from Bit-Shift Example (PC Data File)

Section 7. Installation
230


Figure 78: Bool8 data from bit-shift example (PC data file)
CRBasicExample47. ProgrammingwithBool8andabit‐shiftoperator
Public Alarm(32)
Public Flags As Long
Public FlagsBool8(4) As Long
DataTable(Bool8Data,True,-1)
DataInterval(0,1,Sec,10)
'store bits 1 through 16 in columns 1 through 16 of data file
Sample(2,FlagsBool8(1),Bool8)
'store bits 17 through 32 in columns 17 through 32 of data file
Sample(2,FlagsBool8(3),Bool8)
EndTable
BeginProg
Scan(1,Sec,3,0)
'Reset all bits each pass before setting bits selectively
Flags = &h0
'Set bits selectively. Hex is used to save space.
'Logical OR bitwise comparison