Campbell CR800 Series - FIGURE 45: Bool8 Data from Bit Shift Example (PC Data File)

Section 7. Installation
196
FIGURE 45: Bool8 Data from Bit Shift Example (PC Data File)
Bool8 and a Bit Shift Operator
'This program example demonstrates the use of the Bool8 data type and the ">>" 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