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

CR1000 Example Program, CR200X Series Example Program

Page 10 highlights

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

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16

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