beautypg.com

1 cr1000 example program, 2 cr200(x) series example program – Campbell Scientific 52202 Electrically Heated Rain and Snow Gage User Manual

Page 10

background image

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