Instruction manual

Model DCP-NextG Digital Cell Phone Kit
22
' Check to see if we received the response we expected (0 indicates an error)
If SMS_Result <> 0 Then
' Send the SMS message to the modem
SerialOut (COMPORT,SMS_Msg,"",1,100)
' Terminate the message with a CTRL-Z character and wait for CMGS to be returned
SMS_Result = SerialOut (COMPORT,CHR(26),"+CMGS:",1,500)
EndIf
' Close the serial port
SerialClose (COMPORT)
' Store the sent message to a datatable
CallTable SMSSent
EndSub
' === PROGRAM START ===================================================================
BeginProg
' Set a default values for the SMS number (this can be changed in the
' Connect screen in LoggerNet)
SMS_PhNo = "0412345678"
' === MAIN SCAN =======================================================================
Scan (15,Sec,0,0)
'Measure the panel temperature
PanelTemp (P_Temp,250)
'Measure the battery voltage
Battery (Batt_Volt)
'Measure the thermocouple
TCDiff (AirTemp_TC,1,mV2_5C,1,TypeT,P_Temp,True ,0,_50Hz,1.0,0)
'If the temperature is above 30 degrees, then send the SMS
If AirTemp_TC > 30 Then
'Create message to be sent - message must end with ctrl z (CHR26)
SMS_Msg = "Temperature is"+CHR(32)+AirTemp_TC+CHR(32)+"Degrees Celsius"+CHR(26)
'Send SMS message
Call SMSSend
EndIf
'Call data table to store data
CallTable TenMin
NextScan
EndProg
9 Advanced Communications
Our CR800, CR1000 and CR3000 data loggers are capable of TCP/IP communications
including email, FTP and more by utilising Point-to Point Protocol (PPP) to send IP packets
through the SAM3G+ over a serial link.
Use of these options requires custom data logger programs and configuration and is beyond
the scope of this manual. If you are interested in IP communications or if you wish to learn
more about telemetry options and their use, contact Campbell Scientific Australia for
information and a quote on our Communications training course, held in state capitals through
the year.