Campbell CDM-VW300 Series, Руководство пользователя

Страница: 95 / 118

Appendix G. CRBasic Program Library
G-5
'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 '<<<<<<<<<<<<<<SET CPI ADDRESSES HERE
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)
Public DynStdDev1(8), DynStdDev2(8), DynStdDev3(8) 'Dynamic standard deviations
Public DynStdDev4(8), DynStdDev5(8), DynStdDev6(8)
'Setup for First Device
' CH1 CH2 CH3 CH4 CH5 CH6 CH7 CH8
' --- --- --- --- --- --- --- ---
Dim Enable1(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP1(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low1(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High1(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm1(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult1(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Second Device
Dim Enable2(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP2(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low2(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High2(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm2(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult2(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Third Device
Dim Enable3(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP3(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low3(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High3(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}