Campbell-scientific CR9000X Measurement and Control System Manual de usuario descargar pdf (Pagina 365)

Section 9. Program Control Instructions

FieldCal Example

'\\\\\\\\\\\\\\\\\\\\ DECLARE VARIABLES //////////////////////////////

Public ZeroMode1, KnownVar1, ZeroMode2, KnownVar2, ZeroMode3, KnownVar3(3)

Public AccelA(1), AccelB(1), AccelC(3)

Units ACCELA = GForce : Units AccelB = GForce : Units AccelC = GForce

Public AccelAmult(1), AccelBmult(1),AccelCmult(3), AccelAoset(1), AccelBoset(1), AccelCoset(3)

Alias AccelA(1) = Accel1 : Alias AccelB(1) = Accel2 : Alias AccelC(1) = Accel3

Alias AccelC(2) = Accel4 : Alias AccelC(3) = Accel5

Public LoadTest, Flag(8)

Dim I

Public RepA, IndexA, RepB, IndexB, RepC, IndexC

DataTable (ACCEL,True,-1) 'Trigger, auto size

DataInterval (0,0,0,0) 'Synchronous, 0 lapses, autosize

Sample (1,AccelA(),IEEE4) '1 Reps,Source,Res

Sample (1,AccelB(),IEEE4) '1 Reps,Source,Res

Sample (3,AccelC(),IEEE4) '3 Reps,Source,Res,Enabled

EndTable 'End of table ACCEL

DataTable (CalTable,NewFieldCal,100) 'Cal Table that stores Calibration values

CardOut (0 ,100) 'for retrieval by user for tracking purposes

SampleFieldCal

EndTable

BeginProg 'Program begins here

‘Inilialize rep and Index parameters

RepA = 1 : IndexA = 1 : RepB = 1 : IndexB = 1 : RepC = 3 : IndexC = 1

KnownVar2 = 1 ‘Set KnownVar2 used for the Offset calibration

' Initialize mult & offset values for ACCELA & B

AccelAMult(1) = 1 : AccelBMult(1) = 1: AccelAoset(1) = 0 : AccelBoset(1) = 0

For I = 1 To 3

AccelCmult(I)=1 : AccelCoset(I) = 0 'Initialize mult & offset values for ACCELC

Next I

LoadTest = LoadFieldCal(0) 'Load Cal Values from Calibration File

Scan(1,mSec,100,0) 'Scan once every 1 mSecs, 100 Scan Buffer, non-burst

' Input Var,Reps, Range,InChan, Excit mV, Reverse, Integ/Settling, Mult Offset

BrFull(AccelA(),1, mV200,4,5, 5,7,1,5000, False,False, 20,20, AccelAmult,AccelAoset())

BrFull(AccelB(),1, mV200,4,6, 5,8,1,5000, False,False, 20,20, AccelBmult,AccelBoset())

BrFull(AccelC(),3, mV200,4,7, 5,9,1,5000, False,False, 20,20, AccelCmult,AccelCoset())

' Setup a two point Calibration function for AccelA

'(Function,Var, Rep,Multiplier, Offset, Mode, KnownVar, Index, Avg)

FieldCal (2,AccelA(),RepA,AccelAmult(1),AccelAoset(1),ZeroMode1,KnownVar1, IndexA, 1)

' Setup a offset function for AccelB

'(Function,Var, Rep, Multiplier, Offset, Mode, KnownVar,Index, Avg)

FieldCal (1,AccelB(),RepB, 0, AccelBoset(), ZeroMode2,KnownVar2, IndexB, 1)

' Setup a zero function for the 3 reps of AccelC

'(Function,Var, Rep, Multiplier, Offset, Mode, KnownVar,Index, Avg)

FieldCal (0,AccelC(), RepC, 0, AccelCoset(), ZeroMode3, 0, IndexC, 1)

CallTable ACCEL

CallTable CalTable

Next Scan 'Loop up for the next scan

EndProg 'Program ends here

9-35

1 2 ... 360 361 362 363 364 365 366 367 368 369 370 ... 441 442

Comentarios a estos manuales

Sin comentarios

Campbell-scientific CR9000X Measurement and Control System Manual de usuario Pagina 365

Comentarios a estos manuales

Relacionado con productos y manuales para Instrumentos de medición Campbell-scientific CR9000X Measurement and Control System