Campbell AVW200 series - D.1 Forced Measurement Program

Appendix D. The Public Table
D-4
D.1 Forced Measurement Program
SequentialMode
Public UsrForcedMsmnt
Public SVResult(2), GVResult(2), TimeSeries(11)
Dim TS_done
BeginProg
TimeSeries(1) = 101 'Measure command with XYY as described below.
'X is the AVW channel, 1 or 2, and YY is the multiplexer channel, 00-32
TimeSeries(2) = 450 'Sweep start frequency, 450 Hz minimum.
TimeSeries(3) =6500 'Sweep stop frequency, 6500 Hz maximum.
TimeSeries(4) = 1 'Excitation level code, 0=5Volt, 1=12Volt.
' TimeSeries(5) 'Echo of what was used For TimeSeries(1) measure command, XYY.
' TimeSeries(6) 'Frequency of peak, Hz.
' TimeSeries(7) 'Amplitude of peak frequency, mVrms.
' TimeSeries(8) 'SNR, Signal To Noise Ratio.
' TimeSeries(9) 'Peak noise frequency, Hz.
' TimeSeries(10) 'Decay ratio.
' TimeSeries(11) 'Thermistor measurement, Ohms.
SerialOpen (Com1,38400,0,0,0)
Scan(5,Sec,0,0)
If UsrForcedMsmnt=True Then
'Set remote measurement parameters.
SendVariables(SVResult(1),Com1,200,200,0000,100, "Public","TimeSeries(2)",TimeSeries(2),3)
'Next Force measurement on indicated channel.
SendVariables(SVResult(2),Com1,200,200,0000,100, "Public","TimeSeries(1)",TimeSeries(1),1)
Delay (1,2,Sec) 'wait for 2 second measurement
Do 'Check that measure is done
GetVariables(GVResult(1),Com1,200,200,0000,100,"Public","TimeSeries(1)",TS_done,1)
If GVResult(1)
Exit Do 'failed communications
EndIf
Loop Until TS_done 'when TS_done equals zero.. the measurement is done
'Get the data from AVW206.
GetVariables(GVResult(2),Com1,200,200,0000,100,"Public","TimeSeries(5)",TimeSeries(5),7)
UsrForcedMsmnt=False
If SVResult(1) OR SVResult(2) OR GVResult(1) OR GVResult(2) Then '
Move (TimeSeries(5),7,NAN,1) 'failed communication..so fill win NAN's
EndIf
EndIf
NextScan
EndProg