Campbell Scientific AVW200 AVW200-series Vibrating Wire Interfaces - Page 82

D.1 Forced Measurement Program

Get Campbell Scientific AVW200 PDF manuals and user guides View all Campbell Scientific AVW200 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 82 highlights

Appendix D. The Public Table 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 D-4

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
Appendix D.
The Public Table
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
D-4