Figure 57. Bool8 Data from Bit-Shift Example (PC Data File)
CRBasic Example 34. Programming with 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
200
To Next Page
Loading...
