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

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
'50 Hz/20msec scan rate
Scan (20,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.8 50 Hz Measurement Example — One CDM-VW300, Two
Channels, Rainflow Histogram
'===RFH-50HzExample2Ch_3-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.
'Demonstrate use of rainflow histogram.
'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 '<<<<<<<<<<<<<
Public Freq(2)
Public Diag(2) As Long
Public StaticFreq(2)
Public Therm(2)
Public DynStdDev(2)
'Rainflow : Mean Bins and Amplitude Bins dimensions
Const MBINS = 10
Const ABINS = 10
'Rainflow-Histogram Outputs - 2 dimensional arrays
Public RF1(MBINS,ABINS)
Public RF2(MBINS,ABINS)
G-12