beautypg.com

Campbell Scientific AVW200-series Vibrating Wire Interfaces User Manual

Page 103

background image

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