Appendix B. Example Program - Campbell 108 Product Manual

Appendix B. Example program

This following example measures one 108 temperature probe once a second and stores the
average temperature every 60 minutes.
CRBasic Example 1: CR1000X program that measures the 108
'Program measures one 108 temperature probe once a second and
'stores the average temperature every 60 minutes.
'Wiring Diagram
'==============
' Probe
' Wire
' Colour Function
' ----- --------
' Black Voltage-excitation input VX1/EX1
' Red Analogue-voltage output
' Purple Bridge-resistor ground
' Clear Shield
'Declare the variables for the temperature measurement
Public T108_C
'Define a data table for 60 minute averages:
DataTable(Hourly,True,-1)
DataInterval(0,60,Min,0)
Average(1,T108_C,IEEE4,0)
EndTable
BeginProg
Scan(1,Sec,1,0)
'Measure the temperature
Therm108(T108_C,1,1,Vx1,0,60,1.0,0.0)
'Call Data Table
CallTable(Hourly)
NextScan
EndProg
Data logger
Terminal
------
SE1
Ground Symbol
Ground Symbol
108 Temperature Probe 15