Campbell 4WPB100 Especificaciones descargar pdf (Pagina 53)

TxInitializeOk = False

EndIf

If NOT (FastScanMode OR LastFastScan) Then

SerialOut(ComRS232,"AT+PP=0"+CHR(13)+CHR(10),"",1,10)

EndIf

SerialClose(ComRS232)

NGPSFLAG = false

TxPowerDueForSwOff = True

ElseIf (FastScanMode OR LastFastScan)

Call TxModuleInit

If TxInitializeOk Then

SerialOut(ComRS232,"AT*S=0"+CHR(13)+CHR(10),"",1,10)

SerialOut(ComRS232,"AT+PP=1"+CHR(13)+CHR(10),"",1,10)'should be sent as

SerialOut(ComRS232,"AT+PNAV=1"+CHR(13)+CHR(10),"",1,10)'should be sent a

SerialClose(ComRS232)

EndIf

If NOT (BestHDPseen < 100) Then'so to avoid deleting a previously obtained

For ParseStrIT=1 To 15

ParseStr(ParseStrIT)=""

EndIf

'Final Battery Voltage measurement Batt_Volt and Low_Batt check (do this befor

Battery(Batt_VoltF)

Batt_V_Drop = Batt_VoltI - Batt_VoltF

If Batt_VoltF < LoBattThre Then Low_Batt = True

If Batt_VoltF >= LoBattThre + LoBattResHyst Then Low_Batt = False

'***************************************************************************

'\'SerialClose(com2)

Timer(2,sec,3)

SW12(False)'Disables switched 12V supply

SW12Von=False

EndIf

If TimeIntoInterval(0,ScanRate,sec) Then

CallTable(TableDiagnostics)

CallTable(TableMem)

' If TableMem.Output(1,1) Then

' BestHDPseen = 100

' EndIf

If FanPowerDueForSwOff AND NOT FastScanMode

PortSet(8,false)

Asp_fan_on = False

FanPowerDueForSwOff = False

EndIf

If IsSummer Then

CallTable(TableSummerTx)

If TableSummerTx.Output(1,1) Then

BestHDPseen = 100

TxBufferString=""

TableInstantaneousString=""

TxStringUnstripped=""

TxString=""

GetRecord(TxBufferString,TableSummerTx,1)

If AppendInstantaneous AND TimeIntoInterval(0, HoursInstantaneous, hr) T

CallTable(InstantaneousTable)

GetRecord(TableInstantaneousString,InstantaneousTable,1)

1 2 ... 48 49 50 51 52 53 54 55 56 57 58 ... 69 70

Comentarios a estos manuales

Sin comentarios

Campbell 4WPB100 Especificaciones Pagina 53

Comentarios a estos manuales

Relacionado con productos y manuales para Redes Campbell 4WPB100