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

CR1000 Example Program

Get Campbell Scientific 52202 PDF manuals and user guides View all Campbell Scientific 52202 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 12 highlights

52202 Electrically Heated Rain and Snow Gage 5.2.1 CR1000 Example Program 'CR1000 'RM_Young Tipping Blk > C4 ' Wht > 5v 'Cabling for heater goes to 24VAC power supply 'Declare Variables and Units Public BattV Public RM_Young Units BattV = Volts Units RM_Young =inch DataTable(OneMin,True,-1) DataInterval(0,1,Min,10) Totalize (1,RM_Young,FP2,False) EndTable 'Define Data Tables DataTable(OneDay,True,-1) DataInterval(0,1440,Min,10) Minimum(1,BattV,FP2,False,False) Totalize (1,RM_Young,FP2,False) EndTable 'RM Young tipping bucket 'Main Program BeginProg Scan(5,Sec,1,0) 'Default Datalogger Battery Voltage measurement BattV PanelTemp (PTemp,_60Hz) Battery(BattV) 'RM Young Heated Rain Gage measurement Rain_in PulseCount(RM_Young,1,14,2,0,0.0039,0) 'Call Data Tables and Store Data CallTable(OneMin) CallTable(OneDay) NextScan EndProg 8

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
52202 Electrically Heated Rain and Snow Gage
5.2.1
CR1000 Example Program
'CR1000
'RM_Young Tipping
Blk > C4
'
Wht > 5v
'Cabling for heater goes to 24VAC power supply
'Declare Variables and Units
Public BattV
Public RM_Young
Units BattV = Volts
Units RM_Young =inch
DataTable(OneMin,True,-1)
DataInterval(0,1,Min,10)
Totalize (1,RM_Young,FP2,False)
EndTable
'Define Data Tables
DataTable(OneDay,True,-1)
DataInterval(0,1440,Min,10)
Minimum(1,BattV,FP2,False,False)
Totalize (1,RM_Young,FP2,False)
'RM Young tipping bucket
EndTable
'Main Program
BeginProg
Scan(5,Sec,1,0)
'Default Datalogger Battery Voltage measurement BattV
PanelTemp (PTemp,_60Hz)
Battery(BattV)
'RM Young Heated Rain Gage measurement Rain_in
PulseCount(RM_Young,1,14,2,0,0.0039,0)
'Call Data Tables and Store Data
CallTable(OneMin)
CallTable(OneDay)
NextScan
EndProg
8