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

Appendix A. CRBasic Program for Version 18
DataTable (Accum_15m,1,96)
TableHide
DataInterval (0,15,Min,10)
Sample (1,PrecipF_in,IEEE4)
EndTable
DataTable (Rain_1h,1,720)' 30 days
DataInterval (0,60,Min,10)
Sample (1,TotAccum,IEEE4)
Sample (1,PrecipF_in,IEEE4)
EndTable
DataTable (Rain_1d,1,30)' 30 days
DataInterval (0,1440,Min,10)
Sample (1,TotAccum,IEEE4)
Sample (1,PrecipF_in,IEEE4)
EndTable
DataTable (CalData,1,5000)'Table used to record calibration data
Sample(1,Cal_Result,String)
Sample(1,mVtoGram,IEEE4)
Sample(1,Lc_mV_Ofst,IEEE4)
Sample (1,LC_gr,IEEE4)
Sample(1,CalWeight_gr,IEEE4)
EndTable
'Begin custom menu instructions.
DisplayMenu ("----- RDP500 -----",-1)
'To view current rain values
SubMenu (" Current Precip")
DisplayValue (" Precip Inches",Precip_in)
EndSubMenu
'To view key system params
SubMenu (" Status")
DisplayValue (" Time", Time)
DisplayValue (" Stat Name",StaName)
DisplayValue (" Supply Volt",batt_volt)
DisplayValue (" Low 12V Cnt",Status.Low12VCount)
DisplayValue (" Inten Batt",Round(Status.LithiumBattery,2))
DisplayValue (" Panel Temp",Round(PTemp_F,2))
DisplayValue (" OS Version",OSVer)
DisplayValue (" Serial Num",Status.SerialNumber)
DisplayValue (" Prog Name",ProgName)
DisplayValue (" Prog Start",StartTime)
EndSubMenu
'To initialize a gauge
SubMenu (" Initial Setup")
MenuItem(" Step 1",TareGauge) 'Item for Submenu
MenuPick (Tare Gauge)
MenuItem (" Step 2 ",TriggerCalibration)
MenuPick (3289.0,4111.0,6578.0,7400.0,8222.0)
SubMenu (" Cal Results")
DisplayValue("Cal Result ",Cal_Result)
DisplayValue("Time ",TimeStampOfLastCal)
DisplayValue("Multiplier ",CalData.mVtoGram(1,1))
DisplayValue("Offset ",CalData.Lc_mV_Ofst(1,1))
DisplayValue("Weight ",CalData.LC_gr(1,1))
DisplayValue("Cal Weight Used",CalData.CalWeight_gr(1,1))
EndSubMenu
EndSubMenu
EndMenu 'End of custom menu.
A-3