Campbell Scientific COM9602 Manuel D'utilisation page 19

Modem de rafales de données courtes COM9602
SerialOpen (SBDComPort, 19 200,3, 0,400)
DataDefinitionFlag(1) = True
DataDefinitionFlag(2) = True
'Perform modem initialization
InitializeModem = True
'Configure the power control port for the COM9602 as an output
'Set C3 as output
PortsConfig (& B100, & B100)
Scan (5, Sec, 0,0)
PanelTemp (PTemp,250)
Battery (BattV)
For DataTableCount=1 To NumberDataTables Step 1
If NewTableFile(DataTableCount)=True Then
SendSbdMessage(DataTableCount)=True
NewTableFile(DataTableCount)=False
EndIf
Next DataTableCount
'Must call the data tables
CallTable TableOne
CallTable TableTwo
NextScan
SlowSequence
Scan (60, sec, 0,0)
If SBD_TestTransmissionFlag = True Then
'Set Flag false so that only one test transmission is sent
SBD_TestTransmissionFlag = False
'Turn on power
WriteIO (& B100, & B100)
'wait for warmup
Delay (1,2, sec)
'Call the test subroutine
Call SBD_TestTransmission(SBDComPort, COM9602_ResultString)
Delay(1,1, sec)
WriteIO (& B100, & B000)
'Must delay 1 second for modem to power off fully
Delay(1,2, sec)
EndIf
' The following Checks if there is a new data file created from all required outputs
'If a new data output exists, call a subrouting to prepare the data and tansmit it.
Pour cntr2 = 1 Etape 1 Pour NumberDataTables
If SendSbdMessage(cntr2) Then
'Power on the Modem according to the channel using C3
WriteIO (& B100, & B100)
'wait for warmup
Delay(1,2, sec)
Call SendSBD(SBDComPort, TableFileName(cntr2), cntr2, InitializeModem,
DataDefinitionFlag(cntr2), COM9602_ResultString)
'Power off the Modem
' Using C3
'wait for shutdown
Delay(1,1, sec)
WriteIO (& B100, & B000)
14