Campbell AVW200 series Bedienerhandbuch PDF herunterladen (Seite 105)

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

1 2 ... 100 101 102 103 104 105 106 107 108 109 110 ... 113 114

Keine Kommentare

Campbell AVW200 series Bedienerhandbuch Seite 105