'CR1000
'Created by Short Cut (3.1)
' 5/20/2017 eky added SDI sensor
' 5/24/2017 eky added barometer delay


ConstTable
  ' site-specific constants:
  Const PAKBUS_INFO = 170
  Const SITE_NAME = "Put River"
  Const SITE_DESCR = "hydro+cam station"
  Const LATITUDE = 70.27
  Const LONGITUDE = -148.63
  Const ELEVATION_M = 9
  Const TZ_HOURS = -9
  Const PT_QTY = 2
  Const HAVE_SR50 = 0

  ' PTs:
  Const PT_MODL = "INW AquiStar PT12"
  Const PT_SDI12__CP = 3
  Const CM_PER_PSI = 70.377

  ' barometer:
  Const PB_MODL = "CS106"
  Const PB_UNITS = "mBar"
  Const PB_MULT = 0.24
  Const PB_OFS = 500
  Const PB__SE = 4
  Const PB_PWR__CP = 4

EndConstTable

'Declare Variables and Units
Public progSig As Long
Public BattV
Public PTemp_C
Public PT1
Public PT2
Public Pb

Dim pt_output(3)
Public pt_stage(PT_QTY) : Units pt_stage = cm
Public pt_temp(PT_QTY)  : Units pt_temp = degC
Public pt_batt(PT_QTY)  : Units pt_batt = V
Public pt_addr(PT_QTY) As Long
Dim i

Units BattV=Volts
Units PTemp_C=Deg C
Units PT1=ft
Units PT2=ft
Units Pb=mbar

'Define Data Tables
DataTable(QtrHrWtr,True,-1)
  DataInterval(0,15,Min,10)
  Average(1,PT1,FP2,0)
  Average(1,PT2,FP2,0)
  Average (PT_QTY,pt_stage,FP2,False)
  Sample(PT_QTY,pt_stage,fp2)
  Average(PT_QTY,pt_temp,fp2,0)
  Sample(PT_QTY,pt_addr,uint2)
  Sample(1,progSig,uint2)
EndTable

DataTable(Daily,True,-1)
  DataInterval(0,1440,Min,10)
  Minimum(1,BattV,FP2,False,False)
EndTable

DataTable(Hourly,True,-1)
  DataInterval(0,60,Min,10)
  Sample(1,Pb,FP2)
  Average(1,BattV,fp2,0)
  Average(1,PTemp_C,fp2,0)
EndTable

'Main Program
BeginProg
  progSig = status.ProgSignature

  For i = 1 To PT_QTY
    pt_addr(i) = i
  Next i

  'Main Scan
  Scan(60,Sec,1,0)
    'Turn modem on at the top of every hour for 15mins
    If IfTime(0,60,Min) Then PortSet(9,1)
    If IfTime(15,60,min) Then PortSet(9,0)
    'Default Datalogger Battery Voltage measurement 'BattV'
    Battery(BattV)
    'Default Wiring Panel Temperature measurement 'PTemp_C'
    PanelTemp(PTemp_C,_60Hz)
    PortSet(2,1)
    Delay(0,3,Sec)
    'Generic 4-20 mA Input measurement 'PT1'
    VoltDiff(PT1,1,mV2500,1,True,0,_60Hz,0.009375,-4.39)
    'Generic 4-20 mA Input measurement 'PT2'
    VoltDiff(PT2,1,mV2500,2,True,0,_60Hz,0.009375,-4.39)
    PortSet(2,0)

    'sdi PT
    For i = 1 To PT_QTY
      SDI12Recorder(pt_output(),PT_SDI12__CP,pt_addr(i),"M!",1.0,0)
      pt_stage(i) = pt_output(1) * CM_PER_PSI
      pt_temp(i) = pt_output(2)
      pt_batt(i) = pt_output(3)
    Next i

    'CS106 Barometric Pressure Sensor measurement 'Pb'
    PortSet(1,1)
    Delay(0,150,mSec)
    VoltSe(Pb,1,mV2500,5,1,0,_60Hz,0.240,500)
    Pb=Pb*0.0145
    PortSet(1,0)


    'Call Data Tables and Store Data
    CallTable QtrHrWtr
    CallTable Daily
    CallTable Hourly
  NextScan
EndProg