Naoya Takamura / Mbed 2 deprecated C027_SupportTest_xively_location

インターフェース2014年10月号のu-blox C027で3G通信する記事で使用したプログラム。　　 CQ publishing Interface 2014.10 issue, C027 3G test program.

Dependencies:   C027_Support C027_SupportTest mbed picojson

Fork of C027_SupportTest by u-blox

インターフェース2014年10月号のu-blox C027で3G通信する記事で使用したプログラムです。

main.cpp@15:ea10b6cf8c85, 2014-05-13 (annotated)

Committer:
mazgch
Date:
Tue May 13 09:35:14 2014 +0000
Revision:
15:ea10b6cf8c85
Parent:
14:ab7c8627f950
Child:
16:43f6de7bc38b
update libs

Who changed what in which revision?

UserRevisionLine numberNew contents of line
lawliet 0:4e3cb26f6019 1 #include "mbed.h"
mazgch 2:b77151f111a9 2 #include "GPS.h"
mazgch 2:b77151f111a9 3 #include "MDM.h"
lawliet 0:4e3cb26f6019 4
mazgch 9:26f694bc31b4 5 //----------------------------------------------------------------------
mazgch 9:26f694bc31b4 6 // You may need to configure these parameters
mazgch 9:26f694bc31b4 7
mazgch 9:26f694bc31b4 8 /** Set your secret SIM pin here "1234"
mazgch 9:26f694bc31b4 9 */
mazgch 9:26f694bc31b4 10 #define SIMPIN NULL
mazgch 9:26f694bc31b4 11
mazgch 9:26f694bc31b4 12 /** The APN of your network operator, sometimes it is "internet"
mazgch 9:26f694bc31b4 13 check your contract with the network operator
mazgch 9:26f694bc31b4 14 */
mazgch 9:26f694bc31b4 15 #define APN "gprs.swisscom.ch"
mazgch 9:26f694bc31b4 16
mazgch 9:26f694bc31b4 17 /** Set the user name for your APN, or NULL if not needed
mazgch 9:26f694bc31b4 18 */
mazgch 9:26f694bc31b4 19 #define USERNAME NULL
mazgch 9:26f694bc31b4 20
mazgch 9:26f694bc31b4 21 /** Set the password for your APN, or NULL if not needed
mazgch 9:26f694bc31b4 22 */
mazgch 9:26f694bc31b4 23 #define PASSWORD NULL
mazgch 9:26f694bc31b4 24
mazgch 10:d2da2028a233 25 //----------------------------------------------------------------------
mazgch 11:b8505cbbd55c 26 /* This example was tested on C027-U20 and C027-G35 with the on board modem.
mazgch 11:b8505cbbd55c 27
mazgch 11:b8505cbbd55c 28 Additionally it was tested with a shield where the SARA-G350 RX/TX/PWRON
mazgch 11:b8505cbbd55c 29 is connected to D0/D1/D4 and the GPS SCL/SDA is connected D15/D15. In this
mazgch 11:b8505cbbd55c 30 configuration the following platforms were tested (it is likely that others
mazgch 11:b8505cbbd55c 31 will work as well)
mazgch 12:96c7b62c7aaf 32 - U-BLOX: C027-XX.
mazgch 12:96c7b62c7aaf 33 - NXP: LPC1549v2
mazgch 12:96c7b62c7aaf 34 - Freescale: FRDM-KL25Z, FRDM-KL46Z
mazgch 12:96c7b62c7aaf 35 - STM: NUCLEO-F401RE, NUCLEO-F030R8
mazgch 11:b8505cbbd55c 36 */
mazgch 13:662bd1df9a72 37 #if defined(TARGET_UBLOX_C027)
mazgch 13:662bd1df9a72 38 #define C027_USEONBOARD // remove this if you have the GSM/GPS shield mounted
mazgch 10:d2da2028a233 39 #endif
mazgch 10:d2da2028a233 40
mazgch 13:662bd1df9a72 41 #ifdef C027_USEONBOARD
mazgch 13:662bd1df9a72 42 #include "C027.h"
mazgch 13:662bd1df9a72 43 C027 c027;
mazgch 15:ea10b6cf8c85 44 #elif TARGET_LPC4088
mazgch 15:ea10b6cf8c85 45 // mapping for use with the EA QSB base board
mazgch 15:ea10b6cf8c85 46 #define GPSSCL p20
mazgch 15:ea10b6cf8c85 47 #define GPSSDA p19
mazgch 15:ea10b6cf8c85 48 #define GPSADR (66<<1) // GPS I2C Address
mazgch 15:ea10b6cf8c85 49 #define MDMPWRON p33
mazgch 15:ea10b6cf8c85 50 #define MDMTXD p9
mazgch 15:ea10b6cf8c85 51 #define MDMRXD p10
mazgch 15:ea10b6cf8c85 52 #define MDMCTS NC
mazgch 15:ea10b6cf8c85 53 #define MDMRTS NC
mazgch 15:ea10b6cf8c85 54 #define MDMBAUD 115200
mazgch 13:662bd1df9a72 55 #else
mazgch 10:d2da2028a233 56 #define GPSSCL D15
mazgch 10:d2da2028a233 57 #define GPSSDA D14
mazgch 10:d2da2028a233 58 #define GPSADR (66<<1) // GPS I2C Address
mazgch 10:d2da2028a233 59 #define MDMPWRON D4
mazgch 10:d2da2028a233 60 #define MDMTXD D1
mazgch 10:d2da2028a233 61 #define MDMRXD D0
mazgch 10:d2da2028a233 62 #define MDMCTS NC
mazgch 10:d2da2028a233 63 #define MDMRTS NC
mazgch 10:d2da2028a233 64 #define MDMBAUD 115200
mazgch 10:d2da2028a233 65 #endif
mazgch 10:d2da2028a233 66
mazgch 10:d2da2028a233 67 // no tracing if serial is shared with the VCP
mazgch 15:ea10b6cf8c85 68 #define DOTRACE ((USBRX!=MDMRXD)&&(USBTX!=MDMTXD))
mazgch 15:ea10b6cf8c85 69 #define TRACE (!DOTRACE)?:printf
lawliet 0:4e3cb26f6019 70
lawliet 0:4e3cb26f6019 71 int main(void)
lawliet 0:4e3cb26f6019 72 {
mazgch 2:b77151f111a9 73 int ret;
mazgch 2:b77151f111a9 74 char buf[512] = "";
lawliet 0:4e3cb26f6019 75
mazgch 13:662bd1df9a72 76 // only trace if the serial is different from our modem port
mazgch 15:ea10b6cf8c85 77 if (DOTRACE) {
mazgch 11:b8505cbbd55c 78 Serial pc(USBTX,USBRX);
mazgch 11:b8505cbbd55c 79 pc.baud(115200);
mazgch 11:b8505cbbd55c 80 }
mazgch 11:b8505cbbd55c 81
mazgch 11:b8505cbbd55c 82 wait_ms(1000);
mazgch 2:b77151f111a9 83
mazgch 10:d2da2028a233 84 TRACE("GSM/GPS Support Example\r\n");
mazgch 11:b8505cbbd55c 85
mazgch 10:d2da2028a233 86 #ifdef C027_USEONBOARD
mazgch 10:d2da2028a233 87 // turn on the supplies of the Modem and the GPS
mazgch 2:b77151f111a9 88 c027.mdmPower(true);
mazgch 4:90ab1ec64b0e 89 c027.gpsPower(true);
mazgch 10:d2da2028a233 90 #else
mazgch 10:d2da2028a233 91 // turn on the Modem
mazgch 10:d2da2028a233 92 DigitalOut mdmPwrOn(MDMPWRON, 0);
mazgch 10:d2da2028a233 93 wait_ms(150);
mazgch 10:d2da2028a233 94 mdmPwrOn = 1;
mazgch 10:d2da2028a233 95 #endif
mazgch 2:b77151f111a9 96 wait(2);
mazgch 11:b8505cbbd55c 97
mazgch 10:d2da2028a233 98 // Create the GPS object
mazgch 13:662bd1df9a72 99 #if GPSADR // use GPSI2C class
mazgch 13:662bd1df9a72 100 GPSI2C gps(GPSSDA,GPSSCL,GPSADR);
mazgch 13:662bd1df9a72 101 #elif GPSBAUD // or GPSSerial class
mazgch 13:662bd1df9a72 102 GPSSerial gps(GPSTXD,GPSRXD,GPSBAUD);
mazgch 10:d2da2028a233 103 #else
mazgch 10:d2da2028a233 104 #warning "please define the pins for the GPS"
mazgch 10:d2da2028a233 105 #endif
mazgch 11:b8505cbbd55c 106
mazgch 10:d2da2028a233 107 // Create the modem object
mazgch 7:e000317ddef6 108 MDMSerial mdm(MDMTXD,MDMRXD,MDMBAUD
mazgch 10:d2da2028a233 109 #if DEVICE_SERIAL_FC
mazgch 7:e000317ddef6 110 ,MDMRTS,MDMCTS
mazgch 10:d2da2028a233 111 #endif
mazgch 2:b77151f111a9 112 );
mazgch 11:b8505cbbd55c 113
mazgch 2:b77151f111a9 114 // initialize the modem
mazgch 10:d2da2028a233 115 TRACE("Device Init\r\n");
mazgch 5:5366d39d3719 116 MDMParser::DevStatus devStatus;
mazgch 5:5366d39d3719 117 MDMParser::NetStatus netStatus;
mazgch 10:d2da2028a233 118 bool mdmOk = mdm.init(SIMPIN, &devStatus);
mazgch 10:d2da2028a233 119 if (mdmOk)
mazgch 4:90ab1ec64b0e 120 {
mazgch 15:ea10b6cf8c85 121 if (DOTRACE) mdm.dumpDevStatus(&devStatus);
mazgch 5:5366d39d3719 122
mazgch 4:90ab1ec64b0e 123 // wait until we are connected
mazgch 10:d2da2028a233 124 TRACE("Network Check\r\n");
mazgch 5:5366d39d3719 125 while (!mdm.checkNetStatus(&netStatus))
mazgch 4:90ab1ec64b0e 126 wait_ms(1000);
mazgch 2:b77151f111a9 127
mazgch 15:ea10b6cf8c85 128 if (DOTRACE) mdm.dumpNetStatus(&netStatus);
mazgch 10:d2da2028a233 129 TRACE("Network Join\r\n");
mazgch 4:90ab1ec64b0e 130 // join the internet connection
mazgch 5:5366d39d3719 131 MDMParser::IP ip =
mazgch 9:26f694bc31b4 132 mdm.join(APN,USERNAME,PASSWORD);
mazgch 5:5366d39d3719 133 if (ip != NOIP)
mazgch 2:b77151f111a9 134 {
mazgch 15:ea10b6cf8c85 135 if (DOTRACE) mdm.dumpIp(ip);
mazgch 10:d2da2028a233 136 TRACE("Socket Create\r\n");
mazgch 4:90ab1ec64b0e 137 int socket = mdm.socketSocket(MDMParser::IPPROTO_TCP);
mazgch 4:90ab1ec64b0e 138 if (socket >= 0)
mazgch 2:b77151f111a9 139 {
mazgch 10:d2da2028a233 140 TRACE("Socket Connect\r\n");
mazgch 4:90ab1ec64b0e 141 if (mdm.socketConnect(socket, "mbed.org", 80))
mazgch 4:90ab1ec64b0e 142 {
mazgch 10:d2da2028a233 143 TRACE("Make a Http Post Request\r\n");
mazgch 4:90ab1ec64b0e 144 const char http[] = "GET /media/uploads/mbed_official/hello.txt HTTP/1.0\r\n\r\n";
mazgch 10:d2da2028a233 145 TRACE("Socket Send\r\n");
mazgch 4:90ab1ec64b0e 146 mdm.socketSend(socket, http, sizeof(http)-1);
mazgch 4:90ab1ec64b0e 147
mazgch 10:d2da2028a233 148 TRACE("Socket Recving\r\n");
mazgch 4:90ab1ec64b0e 149 while (true) {
mazgch 4:90ab1ec64b0e 150 ret = mdm.socketReadable(socket);
mazgch 4:90ab1ec64b0e 151 if (ret > 0)
mazgch 4:90ab1ec64b0e 152 ret = mdm.socketRecv(socket, buf, sizeof(buf)-1);
mazgch 4:90ab1ec64b0e 153 if (ret < 0)
mazgch 4:90ab1ec64b0e 154 break;
mazgch 4:90ab1ec64b0e 155 else if (ret > 0)
mazgch 10:d2da2028a233 156 TRACE("Socket Recv \"%*s\"\r\n", ret, buf);
mazgch 4:90ab1ec64b0e 157 }
mazgch 10:d2da2028a233 158 TRACE("Socket Close\r\n");
mazgch 4:90ab1ec64b0e 159 mdm.socketClose(socket);
mazgch 4:90ab1ec64b0e 160 }
mazgch 10:d2da2028a233 161 TRACE("Socket Free\r\n");
mazgch 4:90ab1ec64b0e 162 mdm.socketFree(socket);
mazgch 4:90ab1ec64b0e 163 }
mazgch 2:b77151f111a9 164
mazgch 4:90ab1ec64b0e 165 // disconnect
mazgch 10:d2da2028a233 166 TRACE("Network Disconnect\r\n");
mazgch 4:90ab1ec64b0e 167 mdm.disconnect();
mazgch 2:b77151f111a9 168 }
mazgch 2:b77151f111a9 169
mazgch 5:5366d39d3719 170 const char* ussd = "*#134#"; // You may get answer "UNKNOWN APPLICATION"
mazgch 10:d2da2028a233 171 TRACE("Send Ussd Command %s\r\n", ussd);
mazgch 5:5366d39d3719 172 ret = mdm.ussdCommand(ussd, buf);
mazgch 4:90ab1ec64b0e 173 if (ret > 0)
mazgch 10:d2da2028a233 174 TRACE("Got Ussd Answer: \"%*s\"\r\n", ret, buf);
mazgch 10:d2da2028a233 175 }
mazgch 10:d2da2028a233 176 TRACE("Checking SMS and GPS\r\n");
mazgch 10:d2da2028a233 177 char link[128] = "";
mazgch 10:d2da2028a233 178 unsigned int i = 0xFFFFFFFF;
mazgch 10:d2da2028a233 179 const int wait = 100;
mazgch 10:d2da2028a233 180 bool abort = false;
mazgch 11:b8505cbbd55c 181 //DigitalOut led(LED1);
mazgch 10:d2da2028a233 182 while (!abort) {
mazgch 11:b8505cbbd55c 183 // led = !led;
mazgch 10:d2da2028a233 184 while ((ret = gps.getMessage(buf, sizeof(buf))) > 0)
mazgch 10:d2da2028a233 185 {
mazgch 10:d2da2028a233 186 int len = LENGTH(ret);
mazgch 10:d2da2028a233 187 //TRACE("NMEA: %.*s\r\n", len-2, msg);
mazgch 14:ab7c8627f950 188 if ((PROTOCOL(ret) == GPSParser::NMEA) && (len > 6) && !strncmp("$GPGLL", buf, 6))
mazgch 4:90ab1ec64b0e 189 {
mazgch 10:d2da2028a233 190 double la = 0, lo = 0;
mazgch 10:d2da2028a233 191 char ch;
mazgch 10:d2da2028a233 192 if (gps.getNmeaAngle(1,buf,len,la) &&
mazgch 10:d2da2028a233 193 gps.getNmeaAngle(3,buf,len,lo) &&
mazgch 10:d2da2028a233 194 gps.getNmeaItem(6,buf,len,ch) && ch == 'A')
mazgch 4:90ab1ec64b0e 195 {
mazgch 10:d2da2028a233 196 TRACE("GPS Location: %.5f %.5f\r\n", la, lo);
mazgch 10:d2da2028a233 197 sprintf(link, "I am here!\n"
mazgch 10:d2da2028a233 198 "https://maps.google.com/?q=%.5f,%.5f", la, lo);
mazgch 4:90ab1ec64b0e 199 }
mazgch 4:90ab1ec64b0e 200 }
mazgch 10:d2da2028a233 201 }
mazgch 10:d2da2028a233 202 if (mdmOk && (i++ == 10000/wait)) {
mazgch 10:d2da2028a233 203 i = 0;
mazgch 10:d2da2028a233 204 // check the network status
mazgch 15:ea10b6cf8c85 205 if (mdm.checkNetStatus(&netStatus)) {
mazgch 15:ea10b6cf8c85 206 if (DOTRACE) mdm.dumpNetStatus(&netStatus);
mazgch 15:ea10b6cf8c85 207 }
mazgch 10:d2da2028a233 208
mazgch 10:d2da2028a233 209 // checking unread sms
mazgch 10:d2da2028a233 210 int ix[8];
mazgch 10:d2da2028a233 211 int n = mdm.smsList("REC UNREAD", ix, 8);
mazgch 10:d2da2028a233 212 if (8 < n) n = 8;
mazgch 10:d2da2028a233 213 while (0 < n--)
mazgch 10:d2da2028a233 214 {
mazgch 10:d2da2028a233 215 char num[32];
mazgch 10:d2da2028a233 216 TRACE("Unread SMS at index %d\r\n", ix[n]);
mazgch 10:d2da2028a233 217 if (mdm.smsRead(ix[n], num, buf, sizeof(buf))) {
mazgch 10:d2da2028a233 218 TRACE("Got SMS from \"%s\" with text \"%s\"\r\n", num, buf);
mazgch 10:d2da2028a233 219 TRACE("Delete SMS at index %d\r\n", ix[n]);
mazgch 10:d2da2028a233 220 mdm.smsDelete(ix[n]);
mazgch 10:d2da2028a233 221 // provide a reply
mazgch 10:d2da2028a233 222 const char* reply = "Hello my friend";
mazgch 10:d2da2028a233 223 if (strstr(buf, /*w*/"here are you"))
mazgch 10:d2da2028a233 224 reply = *link ? link : "I don't know"; // reply wil location link
mazgch 10:d2da2028a233 225 TRACE("Send SMS reply \"%s\" to \"%s\"\r\n", reply, num);
mazgch 10:d2da2028a233 226 mdm.smsSend(num, reply);
mazgch 4:90ab1ec64b0e 227 }
mazgch 4:90ab1ec64b0e 228 }
mazgch 9:26f694bc31b4 229 }
mazgch 10:d2da2028a233 230 wait_ms(wait);
lawliet 0:4e3cb26f6019 231 }
mazgch 10:d2da2028a233 232 mdm.powerOff();
mazgch 10:d2da2028a233 233 gps.powerOff();
mazgch 10:d2da2028a233 234 TRACE("Shutdown\r\n");
mazgch 10:d2da2028a233 235 #ifdef C027_USEONBOARD
mazgch 10:d2da2028a233 236 // now it is safe to switch LDOs off
mazgch 2:b77151f111a9 237 c027.mdmPower(false);
mazgch 4:90ab1ec64b0e 238 c027.gpsPower(false);
mazgch 10:d2da2028a233 239 #endif
lawliet 0:4e3cb26f6019 240 return 0;
lawliet 0:4e3cb26f6019 241 }
mazgch 2:b77151f111a9 242