Campbell CELL200 Series - Page 80

CRBasic Example 3: CELL200 series settings configuration and status retrieval using terminal
functionality
SetSetting("CellDiversity", 0)
SetSetting("CELLBIllingDay", 10)
SetSetting("PPPInterface", COMSDC8) 'Set PPP Interface to COMSDC8
'Open a serial connection to the modem using the SDC address listed in the
modem's
'Terminal Port CS I/O SDC Address: setting.
SerialOpen(ComSDC11, 460800, 0, 0, 500)
#Else
modem_reset_needed = FALSE
'Open a serial connection to the modem using the SDC address listed in the
modem's
'Terminal Port CS I/O SDC Address: setting.
SerialOpen(ComSDC11, 460800, 0, 0, 500)
SerialOut(ComSDC11, CRLF , "CELL2xx>", 1, 200)
SerialOut(ComSDC11, "set apn ****.****" & CRLF, CRLF, 1, 200)
'Replace *s with APN assigned by cellular provider
SerialIn(returned_value, ComSDC11, 100, CHR(13), 1000)
If (returned_value = "APN saved. Cellular module reset required!" & _
CHR(13)) Then
modem_reset_needed = TRUE
EndIf
SerialOut(ComSDC11, "set div 0" & CRLF, CRLF, 1, 200)
'Tell the modem not to use the diversity antenna on the cellular
'modem (default). 0 = off 1 = on
SerialIn(returned_value, ComSDC11, 100, CHR(13), 1000)
If (returned_value = "Diversity saved. Cellular module reset required!" & _
CHR(13)) Then
modem_reset_needed = TRUE
EndIf
SerialOut(ComSDC11, "set baud 115200" & CRLF, CRLF, 1, 200)
'Set the baud rate on the RS-232 port of the cellular modem
SerialIn(returned_value, ComSDC11, 100, CHR(13), 1000)
If (returned_value = "Baud rate saved. Cellular module reset required!" & _
CHR(13)) Then
modem_reset_needed = TRUE
EndIf
SerialOut(ComSDC11, "set mode PPP" & CRLF, CRLF, 1, 200)
'Set the mode the modem operates in PPP or SERIAL
SerialIn(returned_value, ComSDC11, 100, CHR(13), 1000)
If (returned_value = "Mode set to PPP mode. Reboot required!" & _
CHR(13)) Then
modem_reset_needed = TRUE
CELL200-Series 4G LTE Cellular Module 67