Campbell Scientific NL115 Ethernet Interface and CompactFlash Module - Manual (Page 15)

NL115 Ethernet and CompactFlash ® Module
7. Operation
7.1 TCP/IP Functionality
This section describes the main TCP/IP functionality of a datalogger with an
NL115 attached. Additional functionality may be added in the future. For
more information, refer to the Information Services section of the datalogger
manual and CRBasic Editor Help.
7.1.1 Communicating Over TCP/IP
Once the datalogger, the NL115, and LoggerNet have been set up as described
in Sections 4.1, Physical Set-up, and 4.2, Communicating via Ethernet,
communication is possible over TCP/IP. This includes program send and data
collection. These are straightforward operations and are accomplished through
LoggerNet’s Connect Screen. For more information, see the LoggerNet
manual.
Data callback and datalogger-to-datalogger communications are also possible
over TCP/IP, as well as the creation of simple HTML pages to view datalogger
variables using a web browser.
7.1.1.1 Data Callback
The following program is an example of doing data callback over TCP/IP. It
first checks to see if a port to the LoggerNet Server already exists. (The
LoggerNet Server is assumed to be at the default PakBus address, 4094.) If
not, a socket to LoggerNet is opened using the TCPOpen() instruction. The
SendVariables() instruction is then used to send data.
PROGRAM
' CR1000
' IP_Callback.cr1
' LoggerNet server Pak Bus Address assumed = 4094
' PC IP address assumed = 192.168.7.231
' LoggerNet IPPort "IP Port Used for Call-Back" = 6785
' LoggerNet IPPort "Call-Back Enabled" is checked
' LoggerNet CR1000 "Call-Back Enabled" is checked
' LoggerNet PakBusPort "PakBus Port Always Open" is checked
' IP Call-back using auto-discover (-1) neighbor in SendVariables
Public PanelTemperature, BatteryVoltage, Result1, dummy1
Dim Socket as LONG
DataTable (CLBK1,1,1000)
DataInterval (0,0,Sec,10)
Sample (1,PanelTemperature,FP2)
Sample (1,BatteryVoltage,FP2)
EndTable
BeginProg
Scan (5,Sec,6,0)
PanelTemp (PanelTemperature,250)
Battery (BatteryVoltage)
If not Route(4094) then Socket = TCPOpen ("192.168.7.231",6785,0)
9