Campbell Scientific 52202 Electrically Heated Rain and Snow Gage - Manual (Page 10)

52202 Electrically Heated Rain and Snow Gage
5.1.1 CR1000 Example Program
'CR1000
'RM_Young Tipping Blk > P1
' Wht
> ground
'Cabling for heater goes to 24VAC power supply
Public Rain_mm
Units Rain_mm=mm
DataTable(Rain,True,-1)
DataInterval(0,60,Min,0)
Totalize(1,Rain_mm,FP2,0)
EndTable
BeginProg
Scan(1,Sec,1,0)
PulseCount(Rain_mm,1,1,2,0,0.1,0)
CallTable(Rain)
NextScan
EndProg
5.1.2 CR200(X) Series Example Program
'CR200(X) Series
'RM_Young Tipping Blk > P_SW
' Wht
> ground
'Cabling for heater goes to 24VAC power supply
'Declare Variables and Units
Public Rain_mm
Units Rain_mm=mm
'Define Data Tables
DataTable(Rain,True,-1)
DataInterval(0,60,Min)
Totalize(1,Rain_mm,0)
EndTable
'Main Program
BeginProg
Scan(1,Sec)
'52202 Rain Gage measurement Rain_mm:
PulseCount(Rain_mm,P_SW,2,0,0.1,0)
'Call Data Tables and Store Data
CallTable(Rain)
NextScan
EndProg
6