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

Appendix G. CRBasic Program Library

DataInterval (0,1,Min,10)

'Using TableFile, write the 1 minute averages out each

'15 minutes to a file on the CRD (Compact Flash) device

TableFile ("CRD:"&Status.StationName(1,1)&".TFStatic", _

64,-1,0,15,Min,NewStaticFileStored,LastStaticFileName)

Average (2,StaticStrain(),IEEE4,False)

Average (2,Temp(),IEEE4,False)

Average (2,StrainStdDev(),IEEE4,False)

EndTable

DataTable (dynamic,true,-1)

'Using DataEvent, only store data in this table when

'the Microstrain reading is greater than 200 on either channel

DataEvent (100,(Strain(1) > 200) OR (Strain(2) > 200),1,100)

'Using TableFile, write out the 50Hz data to the CRD (Compact

'flash) into a new file whenever 600 data records have been captured

TableFile ("CRD:"&Status.StationName(1,1)&".TFDynamic", _

64,-1,600,0,Sec,NewDynFileStored,LastDynFileName)

Sample (2,Strain(),IEEE4)

Sample (2,DCode(),IEEE4)

EndTable

DataTable(CalHist,NewFieldCal,-1)

CardOut (0 ,2000)

SampleFieldCal

EndTable

BeginProg

'50 Hz/20msec scan rate

Scan(20,msec,500,0)

CDM_VW300Dynamic(CPI_ADDR,Strain(),DCode()) 'Get unshifted strain

'Now shift the given Strain using the Baseline/Offset value

Strain(1) = Strain(1) + StrainBL(1) : Strain(2) = Strain(2) + StrainBL(2)

'Zeroing calibration for Geokon 4000 Vibrating Wire Strain Gage

'Strain offset and Temperature baseline readings

FieldCal(0,Strain(),2,0,StrainBL(),ZeroMode,0,1,100) 'Calibrate for 2 seconds

FieldCal(4,Temp(),2,0,TempBL(),ZeroMode,0,1,100)

CallTable dynamic

CallTable CalHist

If TimeIntoInterval (0,1,Sec) Then

CDM_VW300Static(CPI_ADDR,StaticStrain(),Temp(),StrainStdDev()) 'Obtain unshifted static

'strain

'Calculate static digits reading (for troubleshooting)

StaticDigits(1) = StaticStrain(1)/GageFactor/NomBatchFactor

StaticDigits(2) = StaticStrain(2)/GageFactor/NomBatchFactor

'Now shift the given StaticStrain using the Offset/Baseline reading to obtain

'Final/adjusted StaticStrain

StaticStrain(1) = StaticStrain(1) + StrainBL(1) : StaticStrain(2) = StaticStrain(2) + _

StrainBL(2)

'Calculate static frequency from static digits (for troubleshooting)

StaticFreq(1) = SQR(StaticDigits(1)*1000) : StaticFreq(2) = SQR(StaticDigits(2)*1000)

CallTable static

EndIf

NextScan

EndProg

G-22

1 2 ... 109 110 111 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 114

Komentarze do niniejszej Instrukcji

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