crbasic
'Declare Variables and Units
Public VW1, VW2, VW3 as Float
Public BaroPressure as Float
Public CorrectedVW1, CorrectedVW2, CorrectedVW3 as Float
Units VW1 = "Hz"
Units VW2 = "Hz"
Units VW3 = "Hz"
Units BaroPressure = "mbar"

'Constants (if any specific to your sensors, such as gauge factors)
Const BARO_CORR_FACTOR = 0.1 'Example correction factor, adjust as necessary

'Define Data Tables
DataTable(VWData,True,-1)
  DataInterval(0,15,Min,10)
  Minimum(1,VW1,FP2,False,False)
  Minimum(1,VW2,FP2,False,False)
  Minimum(1,VW3,FP2,False,False)
  Minimum(1,BaroPressure,FP2,False,False)
  Minimum(1,CorrectedVW1,FP2,False,False)
  Minimum(1,CorrectedVW2,FP2,False,False)
  Minimum(1,CorrectedVW3,FP2,False,False)
EndTable

'Main Program
BeginProg
  'Scan Interval in Seconds
  Scan(60,Sec,0,0)

    'Read Vibrating Wire Sensors
    'VW200(VW_Channel, VW_Frequency, Excitation, Range, Integration, Settling)
    VW200(1,VW1,12,2,1000,1.0,0)
    VW200(2,VW2,12,2,1000,1.0,0)
    VW200(3,VW3,12,2,1000,1.0,0)

    'Read Barometric Sensor
    'VoltSE(Channel, Range, Reps, Integration, Settling)
    VoltSE(BaroPressure, 1, mV5000, 1, 0, 60,0)

    'Apply Barometric Correction (Example, adjust logic as per actual requirement)
    CorrectedVW1 = VW1 - (BaroPressure * BARO_CORR_FACTOR)
    CorrectedVW2 = VW2 - (BaroPressure * BARO_CORR_FACTOR)
    CorrectedVW3 = VW3 - (BaroPressure * BARO_CORR_FACTOR)

    'Call Data Table
    CallTable VWData

  NextScan
EndProg