CRBasic Example 55. Using SDI12Sensor() to Test Cv Command
'This program example demonstrates how to use CRBasic to simulate four SDI-12 sensors. This
program can be used to
'produce measurements to test the CRBasic example Using Alternate Concurrent Command (aC)
(p. 277).
Public Temp(4)
DataTable(Temp,True,0)
DataInterval(0,5,Min,10)
Sample(4,Temp(),FP2)
EndTable
BeginProg
Scan(5,Sec,0,0)
PanelTemp(Temp(1),250) 'Measure CR1000 wiring panel temperature to use as base for
'simulated temperatures Temp(2), Temp(3), and Temp(4).
Temp(2) = Temp(1) + 5
Temp(3) = Temp(1) + 10
Temp(4) = Temp(1) + 15
CallTable Temp
NextScan
SlowSequence
Do
'Note SDI12SensorSetup / SDI12SensorResponse must be renewed
'after each successful SDI12Recorder() poll.
SDI12SensorSetup(1,1,0,95)
Delay(1,95,Sec)
SDI12SensorResponse(Temp(1))
Loop
EndSequence
SlowSequence
Do
SDI12SensorSetup(1,3,1,95)
Delay(1,95,Sec)
SDI12SensorResponse(Temp(2))
Loop
EndSequence
SlowSequence
Do
SDI12SensorSetup(1,5,2,95)
Delay(1,95,Sec)
SDI12SensorResponse(Temp(3))
Loop
EndSequence
276