'CR1000
'Created by Short Cut (3.1)
' 5/20/2017 eky added SDI sensor
' 5/24/2017 eky added barometer delay
' 5/25/2017 EKY removed slow seq if/then for pb delay and added pb delay of 3 sec after set port hi
' 9/19/2017 eky changed modem on to 5 minutes (was 15 minutes).
' 9/20/2017 eky changed modem on to once per week (Monday at noon)



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 each Monday at noon
    If IfTime(720,10080,Min) Then PortSet(9,1)
    If IfTime(725,10080,min) Then PortSet(9,0)
    'Default Datalogger Battery Voltage measurement 'BattV'
    Battery(BattV)
    'Default Wiring Panel Temperature measurement 'PTemp_C'
    PanelTemp(PTemp_C,_60Hz)
    
'Global Water PTs  What is cp2?
    PortSet(2,1)
    Delay(0,2,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 PTs, up to 3 PTs
    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(4,1)
    Delay(0,2,Sec)
    VoltSe(Pb,1,mV2500,5,1,0,_60Hz,0.240,500)
    PortSet(4,0)


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