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

Appendix H. Additional Programming Examples
PortSet(7,1) 'Enable Mux4
For i = 1 To 32 'Do the following for each of 32 sensors:
PulsePort(8,1000) 'Provide pulse to advance to next channel on Mux4
AVW200(VWResults,ComRS232,0,15,Mux(1),1,1,1,2500,3500,2,_60Hz,1,0) 'Make VW measurement
VWFreq4(i) = Mux(1) 'Assign vw frequency to the VWFreq2 variable
Amp4(i) = Mux(2) 'Assign signal amplitude to Amp2 variable
Sig2Noise4(i) = Mux(3) 'Assign signal to noise ratio to Sig2Noise2 variable
FreqOfNoise4(i) = Mux(4) 'Assign frequency of competing noise to FreqOfNoise2 variable
DecayRatio4(i) = Mux(5) 'Assign signal decay ratio to DecayRatio2 variable
Digits = (VWFreq4(i)/1000)^2*1000 'Convert frequency to Digits
'Calculate displacement (inches) from Digits and calibration ploynomial
Displacement4(i) = Coef4(3*i-2)*Digits^2 + Coef4(3*i-1)*Digits + Coef4(3*i)
Next i
PortSet(7,0) 'Reset and disable Mux4
CallTable MuxExample
NextScan
EndProg
H-11