- CRBasic Code Editor

crbasic
'Declare Variables
Public VWFreq1, VWFreq2, VWFreq3 As Float
Public BaroPress As Float
Public CorrectedVW1, CorrectedVW2, CorrectedVW3 As Float

'Declare Constants
Const A = 1.0      ' Calibration constant for VW sensor (example)
Const B = 0.0      ' Calibration constant for VW sensor (example)
Const RefPress = 1013.25 ' Reference pressure in hPa

'Begin Program
BeginProg
  'Set Scan Interval
  Scan(5,Sec,3,0)
  
    'Vibrating Wire Frequency Measurement
    VW(VWFreq1,1,mV2500,1,Vec_FreqOutput, A, B,1, CB_SW14_1,0,10,1.0,1)
    VW(VWFreq2,1,mV2500,2,Vec_FreqOutput, A, B,1, CB_SW14_1,0,10,1.0,2)
    VW(VWFreq3,1,mV2500,3,Vec_FreqOutput, A, B,1, CB_SW14_1,0,10,1.0,3)
    
    'Measure Barometric Pressure
    VoltSe(BaroPress,1,mV2500,4,0,0.001,0.0,2,0)
    
    'Calculated Corrected Vibrating Wire Readings
    CorrectedVW1 = VWFreq1 * (BaroPress / RefPress)
    CorrectedVW2 = VWFreq2 * (BaroPress / RefPress)
    CorrectedVW3 = VWFreq3 * (BaroPress / RefPress)
    
    'Store Data
    CallTable RawData
  NextScan
EndProg

'Data Table Definition
DataTable (RawData, True, -1)
  DataInterval(0,5,Sec,10)
  Average(1,VWFreq1,FP2,False)
  Average(1,VWFreq2,FP2,False)
  Average(1,VWFreq3,FP2,False)
  Sample(1,BaroPress,FP2)
  Average(1,CorrectedVW1,FP2,False)
  Average(1,CorrectedVW2,FP2,False)
  Average(1,CorrectedVW3,FP2,False)
EndTable

Make snippet public

Use mock deployment

Versions