Appendix G. CRBasic Program Library
G-2
Dim
SteinC(2)
=
{ 0.0, 0.0}
'Rainflow configuration (not used in this program,
'but required as configuration arguments)
Dim
RFMB(2)
As Long
=
{ 20, 20}
Dim
RFAB(2)
As Long
=
{ 20, 20}
Dim
RFLL(2)
=
{ 400.0, 400.0}
Dim
RFHL(2)
=
{4000.0,4000.0}
Dim
RFHY(2)
=
{ 0.005, 0.005}
Dim
RFOF(2)
As Long
=
{ 100, 100}
'Configure the CDM-VW300 series device
'Use the variable arrays declared above
CDM_VW300Config
(0,CPI_ADDR,0,Enable(),Max_AMP(),F_Low(),F_High(), _
OutForm(),Mult(),Off(), SteinA(),SteinB(),SteinC(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
DataTable
(static,true,-1)
'Static Frequency reading (1 Hz output)
Sample
(2,StaticFreq(),IEEE4)
'Thermistor reading : Ohms or DegC
Sample
(2,Therm(),IEEE4)
'Standard Deviation of dynamic readings
'taken during the most recent second
Sample
(2,DynStdDev(),IEEE4)
EndTable
DataTable
(dynamic,true,-1)
'Dynamic Frequency (20 Hz output)
Sample
(2,Freq(),IEEE4)
'Diagnostic code for the current dynamic reading
Sample
(2,Diag(),IEEE4)
EndTable
BeginProg
'20 Hz/50msec scan rate
Scan
(50,msec,500,0)
CDM_VW300Dynamic
(CPI_ADDR,Freq(),Diag())
'Get dynamic readings
CallTable
dynamic
If TimeIntoInterval
(0,1,Sec)
Then
' Process static data only once per second
CDM_VW300Static
(CPI_ADDR,StaticFreq(),Therm(),DynStdDev())
'Get static readings
CallTable
static
EndIf
NextScan
EndProg
G.1.2 20 Hz Measurement Example
— One CDM-VW305, Eight
Channels
'===20Hz-1Device8Ch_4-25===
'CR3000 datalogger
'CDM-VW305 vibrating-wire analyzer
'Program to read 20-Hz dynamic data from one CDM-VW305 analyzer measuring eight channels
'IMPORTANT -- Ensure that the CPI address coded on the following line matches the address
'reported for the attached analyzer in the DevConfig or DVWTool software.
Const
CPI_ADDR
=
1
'<<<<<<<<<<<<<<SET CPI ADDRESS HERE
Public
Freq(8)
'dynamic frequencies
Public
Diag(8)
As Long
'diagnostic code
Public
StaticFreq(8)
'Static (1Hz output) frequencies
Public
Therm(8)
'Thermistor readings
'Standard Deviation of the dynamic readings that occurred during the latest one-second interval
Public
DynStdDev(8)
'The following arrays are used to configure the CDM-VW300 series device. Refer to the
'CDM_VW300Config instruction used below.
'
' CH1 CH2 CH3 CH4 CH5 CH6 CH7 CH8
' --- --- --- --- --- --- --- ---
'Set to true (Enabled=1, Disabled=0) only those channels which have sensors connected
Dim
Enable(8)
As Long
=
{ 1, 1, 1, 1, 1, 1, 1, 1}
'Specify the target/desired resonant amplitude at which the sensor will be maintained
'via excitation, given in volts. This should be in the range 0.010 to 0.001
Dim
Max_AMP(8)
=
{ 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Summary of Contents for CDM-VW300 Series
Page 2: ......
Page 4: ......
Page 6: ......
Page 12: ......
Page 59: ...User Manual 47 Figure 7 16 LoggerNet connect screens showing frequencies from CDM VW300 ...
Page 70: ...CDM VW300 Series Dynamic Vibrating Wire Analyzers 58 ...
Page 76: ...Appendix B SC CPI Datalogger to CPI Interface B 4 ...
Page 80: ...Appendix C CDM Devices and CPI Bus C 4 Figure C 2 Long cable lengths of a distributed CPI bus ...
Page 86: ...Appendix E Calculating Measurement Error E 4 ...
Page 116: ...Appendix G CRBasic Program Library G 26 ...
