Campbell CDM-VW300 Series Instrukcja Obsługi Pobierz pdf (Strona 117)

Appendix G. CRBasic Program Library

Dim RFHL(8) = {4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0}

Dim RFHY(8) = { 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005}

Dim RFOF(8) As Long = { 100, 100, 100, 100, 100, 100, 100, 100}

'Configure the CDM-VW300 series device. Use the variable arrays declared above.

CDM_VW300Config(1,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 (1Hz output)

Sample (8,StaticFreq(),IEEE4)

'Thermistor reading : Ohms or DegC

Sample (8,Therm(),IEEE4)

'Standard Deviation of dynamic readings

'taken during the most recent second

Sample (8,DynStdDev(),IEEE4)

EndTable

DataTable (dynamic,true,-1)

'Dynamic Frequency (100Hz output)

Sample (8,Freq(),IEEE4)

'Diagnostic code for the current dynamic reading

Sample (8,Diag(),IEEE4)

EndTable

BeginProg

'100 Hz/10msec scan rate

Scan(10,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.2 Static Measurements

G.2.1 1 Hz Measurement Example — One CDM-VW300, Two

Channels

'===1Hz-1Device2Ch_3-25-13.CR3===

'CR3000 datalogger

'CDM-VW300 vibrating-wire analyzer

'Program to read 1-Hz static 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 StaticFreq(2) 'Static (1Hz output) frequencies

Public Therm(2) 'Thermistor readings

Dim Freq(2) 'dynamic instruction is required

Dim Diag(2) As Long

Dim DynStdDev(2)

Dim Enable(2) As Long = { 1, 1}

Dim Max_AMP(2) = { 0.002, 0.002}

Dim F_Low(2) = { 300, 300}

Dim F_High(2) = { 6000, 6000}

Dim OutForm(2) As Long = { 0, 0}

Dim Mult(2) = { 1.0, 1.0}

Dim Off(2) = { 0.0, 0.0}

G-25

1 2 ... 112 113 114 115 116 117 118 119 120 121 122

Komentarze do niniejszej Instrukcji

Brak uwag

Campbell CDM-VW300 Series Instrukcja Obsługi Strona 117

Komentarze do niniejszej Instrukcji

Powiązane produkty i podręczniki dla Pomiary, testowanie i kontrola Campbell CDM-VW300 Series