Campbell 4WPB100 Dokumentacja Pobierz pdf (Strona 55)

For StringStripperIT=StripStringStart To Len(TxStringUnstripped)-5'5 i

StringChar=Mid(TxStringUnstripped, StringStripperIT, 1)

If StringChar<>CHR(34) Then TxString=TxString+StringChar

Next StringStripperIT

TxString=TxString+",!M"'*************in summer too

'TxString=Right(TxString,Len(TxString)-InStr(1,TxString,CHR(44),4)+0)

Call IridiumTx

MPFLAG=false'remove!!

If NOT TxSendSuccess Then ExitFor

If SendRecordIT = 0 Then ResetTable(TxBufferTable)

SendRecordBacklog = SendRecordIT

TxPowerDueForSwOff = True

EndIf

If TxPowerDueForSwOff AND NOT (FastScanMode OR LastFastScan) Then

SerialOut(ComRS232,"AT*F"+CHR(13)+CHR(10),"OK",1,100)' to allow 5 secs f

Delay(0,1,sec)

PortSet(6,false)

TxModuleGPSPowerOn = False

TxInitializeOk = False'turn this off??

TxPowerDueForSwOff = False

EndIf

If LastFastScan Then LastFastScan = False

If FanPowerDueForSwOff AND NOT FastScanMode

PortSet(8,false)

Asp_fan_on = False

FanPowerDueForSwOff = False

EndIf

SerialClose(ComRS232)

Batt_VoltI = -999' Batt_VoltF doesn't need such a NODATA value, so it is lef

PulsePort(5,10000)

NextScan

EndProg

1 2 ... 50 51 52 53 54 55 56 57 58 59 60 ... 69 70

Brak uwag

Campbell 4WPB100 Dokumentacja Strona 55