Campbell Scientific RDP500 Remote Data Platform - Manual (Page 30)

Appendix A. CRBasic Program for Version 18
Public PrecipF_in 'inches. Precipitation amount in inches
Public Precip_in 'inches. Rrecipitatoin amount in inches rounded to nearest 1/100th
Public FifteenMinAccum 'inches. Precipitation Accumulation Over 15 min period
Public TotFAccum
'inches. Total precip accumulation
Public TotAccum 'inches. Total precip accumulation rounded to nearest 1/100th
Public RecordAccumulation As Boolean
Public CalWeight_gr
'Weight in Grams of Calibration weight used.
Public TareGauge As String * 32
Public TriggerCalibration As String * 32
Public Cal_Result As String * 32
Public CalibrateNow
Public RecordCalibration As Boolean
Public TimeStampOfLastCal As String * 32
Public CalibrationTimer As Long 'This tracks the number of seconds the calibration
routine is running.
Public CalTime As Long 'This is the number of seconds to run the
calibration.
Public PostCalTimer As Long 'This tracks the number of seconds since the
calibration routine finished.
Public Time As String * 31
Dim StaName As String * 31
Dim OSVer As String * 31
Dim StartTime As String * 31
Dim ProgName As String * 31
'Declare units associated with public variables.
Units PTemp_C=degC
Units PTemp_F=degF
Units batt_volt=volts
Units LC_mV=mV
Units Lc_mV_Ofst=mV
Units LC_mV_Avg=mV
Units LC_gr=gr
Units PrecipF_in=in
Units Precip_in=in
Units FifteenMinAccum=in
Units TotFAccum=in
Units TotAccum=in
Units PRT_raw=mV
Units PRT_C=degC
Units PRT_F=degF
''Declaration of constants:
'Timer Constants so I can keep track of what timer is for what.
Const CalTim = 2
Const PostCalTim = 3
'Define Data Tables
DataTable (Rain_15m,1,-1)
DataInterval
(0,15,Min,10)
CardOut (0,35136) ' (366*24*60)/15
Minimum (1,batt_volt,FP2,False,False)
Sample (1,Precip_in,IEEE4)
Sample (1,TotAccum,IEEE4)
Average (1,PRT_F,IEEE4,False)
Average (1,PTemp_F,FP2,False)
EndTable
A-2