Campbell 4WPB100 Especificaciones descargar pdf (Pagina 52)

'resets the MUX (so that even if 12V switched is powered, the MUX itself shoul

PortSet(1,false)

'do now whatever needs the 12V switched supply to be ON and requires warm-up, bu

'GPS work for Garmin (G) or NAL (N) units, or both!

PreParseStr(7) = 0

PreParseStr(9) = 0

'The Garmin part finds its com2 already open and the prog closes it afterwar

'around the CR1000 bug causing higher power draw if we open/close com2 here

If GarminInitOk AND TxModuleGPSpowerOn AND (GPSinUse = "G") Then

GGPSFLAG = true

GPGGAsentence = ""

SerialFlush(com2)'added yesterday

If SerialOut(com2,"","$GPGGA",1,250) Then

SplitStr(PreParseStr(1),GPGGAsentence,CHR(44),15,5)

PreQual_FP = PreParseStr(7)'we need to do this explicit conversion to

PreHDP_FP = PreParseStr(9)'we need to do this explicit conversion to f

If PreQual_FP > 0 AND PreHDP_FP > 0 AND PreHDP_FP <= BestHDPseen Then

SplitStr(ParseStr(1),GPGGAsentence,CHR(44),15,5)

BestHDPseen = HDP

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

' For ParseStrIT=1 To 15

' ParseStr(ParseStrIT)=""

' Next

EndIf

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

For ParseStrIT=1 To 15

ParseStr(ParseStrIT)=""

EndIf

GGPSFLAG = false

TxPowerDueForSwOff = True

EndIf

'The NAL part (it opens and closes his ComRS232 port itself)

If TxInitializeOk AND TxModuleGPSpowerOn AND (GPSinUse = "N") Then

NGPSFLAG = true

GPGGAsentence = ""

SerialOpen(ComRS232,19200,0,0,150)

SerialOut(ComRS232,"AT"+CHR(13)+CHR(10),"",1,10)'this is to let the CR1000

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

If SerialOut(ComRS232,"","$GPGGA",1,150) Then

SerialIn(GPGGAsentence,ComRS232,150,"*",150)'was 13

SplitStr(PreParseStr(1),GPGGAsentence,CHR(44),15,5)

PreQual_FP = PreParseStr(7)'we need to do this explicit conversion to

PreHDP_FP = PreParseStr(9)'we need to do this explicit conversion to f

If PreQual_FP > 0 AND PreHDP_FP > 0 AND PreHDP_FP <= BestHDPseen Then

SplitStr(ParseStr(1),GPGGAsentence,CHR(44),15,5)

BestHDPseen = HDP

EndIf

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

''' For sParseStrIT=1 To 15

''' sParseStr(sParseStrIT)=""

''' Next

''' EndIf

Else

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

Comentarios a estos manuales

Sin comentarios

Campbell 4WPB100 Especificaciones Pagina 52

Comentarios a estos manuales

Relacionado con productos y manuales para Redes Campbell 4WPB100