
CRBasic Example 1: CRBasic call-back program
'Declare Public Variables
Public
counter, Result
Public
CallbackFlag
As Boolean
Dim
scratch
'this variable is a place-holder it is not used
'Define Data Tables
DataTable
(OneMin,true,-1)
DataInterval
(0,1,Min,10)
Sample
(1,counter,FP2)
EndTable
'Main Program
BeginProg
'Configure the data logger CS I/O port to match the SDC address and baud rate
'set in the RF451/RF452
SerialOpen
(ComSDC7,-115200,0,0,10000)
Scan
(1,Sec,0,0)
counter = c 1
If
CallbackFlag = true
Then
SendVariables
(Result,ComSDC7,0,4094,0000,0,
"Public"
,
"Callback"
,Scratch,1)
CallbackFlag = false
EndIf
'Call Output Tables
CallTable
OneMin
NextScan
EndProg
RF451/RF452 Spread Spectrum Radio
39