Campbell Scientific AVW200-series Vibrating Wire Interfaces - Manual (Page 98)

Appendix H. Additional Programming Examples
Scan (2,Min,0,0)
PanelTemp (PTemp,250)
Battery (Batt_volt)
AVW200(VWResults(1),ComME,0,20,Mux1(1,1),1,1,16,1000,2500,2,_60Hz,1,0)
For i = 1 To 16
Amp1(i) = Mux1(i,2)
Therm1(i) = Mux1(i,6)
VWFreq1(i) = Mux1(i,1)
Sig2Noise1(i) = Mux1(i,3)
DecayRatio1(i) = Mux1(i,5)
FreqOfNoise1(i) = Mux1(i,4)
Digits = (VWFreq1(i)/1000)^2 * 1000 'Convert frequency to Digits
'Convert resistance to temp F.
Temp1(i) = (1/(A + B*LN(Therm1(i)) + C*(LN(Therm1(i)))^3)-273.15)*1.8+32
'Calculate displacement (inches) from Digits and calibration polynomial
Displacement1(i)=PolyCoef1(3*i-2)*Digits^2 + PolyCoef1(3*i-1)*Digits + PolyCoef2(3*i)
Next i
'Sensors 1-8 are excited over the freq range of 1000 - 2500
AVW200(VWResults(2),ComME,0,20,Mux2(1,1),2,1,8,1000,2500,2,_60Hz,1,0)
'Sensors 9-16 are excited over the freq range of 450 – 6500
AVW200(VWResults(2),ComME,0,20,Mux2(9,1),2,9,8,450,6500,2,_60Hz,1,0)
For i = 1 To 16
Amp2(i) = Mux1(i,2)
Therm2(i) = Mux1(i,6)
VWFreq2(i) = Mux1(i,1)
Sig2Noise2(i) = Mux1(i,3)
DecayRatio2(i) = Mux1(i,5)
FreqOfNoise2(i) = Mux1(i,4)
Digits = (VWFreq2(i)/1000)^2 * 1000 'Convert frequency to Digits
'Calculate displacement (inches) from Digits and calibration polynomial
Displacement2(i)=PolyCoef2(3*i-2)*Digits^2 + PolyCoef2(3*i-1)*Digits + PolyCoef2(3*i)
'Convert resistance to temp F.
Temp2(i) = (1/(A + B*LN(Therm2(i)) + C*(LN(Therm2(i)))^3)-273.15)*1.8+32
Next i
CallTable MuxExample
NextScan
EndProg
H-6