Specifications

ManualsBrandsCampbell ManualsComputer equipment4WPB100

' If Batt_VoltI > LoBattThre + LoBattResHyst Then Low_Batt = False

'Initial Datalogger Battery Voltage measurement Batt_Volt (do this before turn

' If Batt_VoltI = -999 Then Battery(Batt_VoltI)

PulsePort(5,10000)

'Excites Vx3 to allow the NT1400 to thermally stabilize

If (TimeIntoInterval(0,ScanRate,sec) OR FastScanMode) Then

ExciteV(Vx3,2500,0)

Timer(3,sec,2)

TimeSinceVx3on = Timer(3,sec,4)

Else

Timer(3,sec,3)'we won't need to also switch Vx3 off explicitly: it is done

EndIf

'deals with the fastscan state

'' C5statusPrev = C5status'to deal with the hardware FastScan switch in a saf

'' 'PortsConfig(&B1000,&B0000)

'' PortGet(C5status,5)'ReadIO(C5status, &B10000)'

'' If C5status AND NOT C5statusPrev Then FastScanMode = True

'' If C5statusPrev AND NOT C5status Then

'' FastScanMode = False

'' LastFastScan = True

'' EndIf

If FastScanMode AND FastScanCount = 0 Then FastScanCount = FastScanReps

If NOT FastScanMode AND FastScanCount > 0 Then FastScanCount = 0

If FastScanMode AND FastScanCount > 0 Then FastScanCount = FastScanCount - 1

If FastScanMode AND FastScanCount = 0 Then LastFastScan = True

If FastScanMode AND FastScanCount = 0 Then FastScanMode = False

'Starts the Rotronics aspirated shield fan

If (TimeIntoInterval(ScanRate-AdvanceFanStart*FastScanRate,ScanRate,sec) OR

If Batt_VoltI = -999 Then Battery(Batt_VoltI)

If NOT Low_Batt Then

PortSet(8,true)

Asp_fan_on = True

EndIf

'if needed, it powers up the Tx module and initializes its integrated GPS re

If (GPSinUse = "G" OR GPSinUse = "N") Then

If Batt_VoltI = -999 Then Battery(Batt_VoltI)

If NOT Low_Batt Then

If IsSummer Then

If (TimeIntoInterval(SummerGPSrate*ScanRate-AdvanceGPSstart,SummerGPSr

If (GPSinUse = "G") Then

PortSet(6,True)

TxModuleGPSPowerOn = True

'\'SerialOpen(com2,4800,0,0,150)'due to a possible bug in the CR10

SerialFlush(Com2)

GPGGAsentence=""

SerialIn (GPGGAsentence,COM2,GarminWarmup * 100,-1,10)

'\'SerialClose(com2)

If Len(GPGGAsentence)>0 Then

GarminInitOk = True

Else

GarminInitOk = False

EndIf

If (GPSinUse = "N") Then