Specifications

48
temptemp=temptemp+1
PortSet(6,True)
TxModuleGPSPowerOn = True
SerialOpen(ComRS232,19200,0,0,100)
SerialFlush(ComRS232)
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
SerialOut(ComRS232,"AT+PNAV=1"+CHR(13)+CHR(10),"",1,10)'should b
SerialClose(ComRS232)
EndIf
EndIf
If NOT(GarminInitOk OR TxInitializeOk) Then
TxPowerDueForSwOff = True
EndIf
EndIf
Else'else it is winter
If (TimeIntoInterval(WinterGPSrate*ScanRate-AdvanceGPSstart,WinterGPSr
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
EndIf
If (GPSinUse = "N") Then
temptemp=temptemp+1
PortSet(6,True)
TxModuleGPSPowerOn = True
SerialOpen(ComRS232,19200,0,0,100)
SerialFlush(ComRS232)
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
SerialOut(ComRS232,"AT+PNAV=1"+CHR(13)+CHR(10),"",1,10)'should b
SerialClose(ComRS232)
EndIf
EndIf
If NOT(GarminInitOk OR TxInitializeOk) Then
TxPowerDueForSwOff = True
EndIf
EndIf
EndIf
EndIf
EndIf
'Executes the measurements *************************************************
'***************************************************************************
If Batt_VoltI = -999 Then Battery(Batt_VoltI)
If (FastScanMode AND FastScanCount > 0) OR TimeIntoInterval(0,ScanRate,sec)
SW12(True)'Enabling switched 12V supply
SW12Von = True