Campbell CDM-VW300 Series, User Manual

Page: 97 / 118

Appendix G. CRBasic Program Library
G-7
Sample (8,DynStdDev3(),IEEE4)
Sample (8,StaticFreq4(),IEEE4)
Sample (8,Therm4(),IEEE4)
Sample (8,DynStdDev4(),IEEE4)
Sample (8,StaticFreq5(),IEEE4)
Sample (8,Therm5(),IEEE4)
Sample (8,DynStdDev5(),IEEE4)
Sample (8,StaticFreq6(),IEEE4)
Sample (8,Therm6(),IEEE4)
Sample (8,DynStdDev6(),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)
Sample (8,Freq4(),IEEE4)
Sample (8,Diag4(),IEEE4)
Sample (8,Freq5(),IEEE4)
Sample (8,Diag5(),IEEE4)
Sample (8,Freq6(),IEEE4)
Sample (8,Diag6(),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())
CDM_VW300Dynamic (CPI_ADDR4,Freq4(),Diag4())
CDM_VW300Dynamic (CPI_ADDR5,Freq5(),Diag5())
CDM_VW300Dynamic (CPI_ADDR6,Freq6(),Diag6())
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())
CDM_VW300Static (CPI_ADDR4,StaticFreq4(),Therm4(),DynStdDev4())
CDM_VW300Static (CPI_ADDR5,StaticFreq5(),Therm5(),DynStdDev5())
CDM_VW300Static (CPI_ADDR6,StaticFreq6(),Therm6(),DynStdDev6())
CallTable static
EndIf
NextScan
EndProg
G.1.5 50 Hz Measurement Example
— One CDM-VW300, Two
Channels
'===50Hz-1Device2Ch_4-25-13.CR3===
'CR3000 datalogger
'CDM-VW300 vibrating-wire analyzer
'Program to read 50-Hz dynamic data from one CDM-VW300 analyzer measuring two 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(2) 'dynamic frequencies
Public Diag(2) As Long 'diagnostic code
Public StaticFreq(2) 'Static (1Hz output) frequencies
Public Therm(2) 'Thermistor readings
'Standard Deviation of the dynamic readings that occurred during the latest one-second interval
Public DynStdDev(2)
'The following arrays are used to configure the CDM-VW300 series device. Refer to the
'CDM_VW300Config instruction used below.
'
' CH1 CH2
' --- ---
'Set to true (Enabled=1, Disabled=0) only those channels which have sensors connected