Campbell Scientific CDM-VW300 Series Dynamic Vibrating-Wire Analyzer System - Manual (Page 97)

Appendix G. CRBasic Program Library
CDM_VW300Config (1,CPI_ADDR3,0,Enable3(),Max_AMP3(),F_Low3(),F_High3(), _
OutForm3(),Mult3(),Off3(), SteinA3(),SteinB3(),SteinC3(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
DataTable (static,true,-1)
Sample (8,StaticFreq1(),IEEE4)
Sample (8,Therm1(),IEEE4)
Sample (8,DynStdDev1(),IEEE4)
Sample (8,StaticFreq2(),IEEE4)
Sample (8,Therm2(),IEEE4)
Sample (8,DynStdDev2(),IEEE4)
Sample (8,StaticFreq3(),IEEE4)
Sample (8,Therm3(),IEEE4)
Sample (8,DynStdDev3(),IEEE4)
EndTable
DataTable (dynamic,true,-1)
Sample (8,Freq1(),IEEE4)
Sample (8,Diag1(),IEEE4)
Sample (8,Freq2(),IEEE4)
Sample (8,Diag2(),IEEE4)
Sample (8,Freq3(),IEEE4)
Sample (8,Diag3(),IEEE4)
EndTable
BeginProg
'20 Hz/50msec scan rate
Scan (50,msec,500,0)
CDM_VW300Dynamic (CPI_ADDR1,Freq1(),Diag1()) 'Get dynamic readings
CDM_VW300Dynamic (CPI_ADDR2,Freq2(),Diag2())
CDM_VW300Dynamic (CPI_ADDR3,Freq3(),Diag3())
CallTable dynamic
If TimeIntoInterval (0,1,Sec) Then
CDM_VW300Static (CPI_ADDR1,StaticFreq1(),Therm1(),DynStdDev1()) 'Get static readings
CDM_VW300Static (CPI_ADDR2,StaticFreq2(),Therm2(),DynStdDev2())
CDM_VW300Static (CPI_ADDR3,StaticFreq3(),Therm3(),DynStdDev3())
CallTable static
EndIf
NextScan
EndProg
G.1.4 20 Hz Measurement Example — Six CDM-VW305s, 48
Channels
'===20Hz-6Devices8Ch_4-25-13.CR3===
'CR3000 datalogger
'CDM-VW305 vibrating-wire analyzer
'Program to read 20-Hz dynamic data from six CDM-VW305 analyzers (8x6=48 channels)
'IMPORTANT -- Ensure that the CPI addresses coded on the following lines matches the addresses
'reported for each attached analyzer in the DevConfig or DVWTool software.
Const CPI_ADDR1 = 5 '<<<<<<<<<<<<<
Const CPI_ADDR2 = 15
Const CPI_ADDR3 = 25
Const CPI_ADDR4 = 35
Const CPI_ADDR5 = 45
Const CPI_ADDR6 = 55
Public Freq1(8), Freq2(8), Freq3(8) 'dynamic frequencies
Public Freq4(8), Freq5(8), Freq6(8)
Public Diag1(8) As Long , Diag2(8) As Long , Diag3(8) As Long 'diagnostic codes
Public Diag4(8) As Long , Diag5(8) As Long , Diag6(8) As Long
Public StaticFreq1(8), StaticFreq2(8), StaticFreq3(8) 'Static (1-Hz output) frequencies
Public StaticFreq4(8), StaticFreq5(8), StaticFreq6(8)
Public Therm1(8), Therm2(8), Therm3(8) 'Thermistor readings
Public Therm4(8), Therm5(8), Therm6(8)
G-5