DR - CRBasic Code Editor

VB
'Define Variables
Public PZ(5) As Float
Public Barometer As Float
Public RainGauge As Long
Public ReservoirLevel As Float

'Define Constants
Const RainGaugeMultiplier = 0.2 'Assuming 0.2 mm per pulse

'Setup Geokon Vibrating Wire Piezometers
Public VWFrequency(5) As Float

'Data Table Definitions
DataTable (DailyData, 1, -1)
  DataInterval (0, 1440, Min, 10)
  Average (1, PZ(), FP2)
  Average (1, Barometer, FP2)
  Totalize (1, RainGauge, FP2)
  Average (1, ReservoirLevel, FP2)
EndTable

'Main Program
BeginProg
  Scan (5, Sec, 0, 0)

'Read Geokon Vibrating Wire Piezometers
    For i = 1 To 5
      VibratingWire (VWFrequency(i),1,mV5000,P1+2*i,3000,20,1.2,1,2500,0)
      PZ(i) = VWFrequency(i)
    Next i

'Read Barometer
    'Assumes the barometric sensor is connected to an analog input
    VoltSe (Barometer,1,mV2500,1,0,60,0.1,2500,True,0,0)

'Read Rain Gauge
    'Assumes the rain gauge is connected to a pulse channel
    PulseCount (RainGauge,1,1,1,False)
    RainGauge = RainGauge * RainGaugeMultiplier

'Read Reservoir Level Sensor
    'Assumes the level sensor is an analog sensor
    VoltSe (ReservoirLevel,1,mV2500,2,0,60,0.1,2500,True,0,0)

'Call Data Tables
    CallTable DailyData
  NextScan
EndProg

Make snippet public

Use mock deployment

Versions