Important changes to repositories hosted on mbed.com
Mbed hosted mercurial repositories are deprecated and are due to be permanently deleted in July 2026.
To keep a copy of this software download the repository Zip archive or clone locally using Mercurial.
It is also possible to export all your personal repositories from the account settings page.
main.cpp@0:dab8b518248d, 2020-03-12 (annotated)
- Committer:
- irsanjul
- Date:
- Thu Mar 12 08:08:38 2020 +0000
- Revision:
- 0:dab8b518248d
- Child:
- 1:ab9e1950496a
yesyes
Who changed what in which revision?
| User | Revision | Line number | New contents of line |
|---|---|---|---|
| irsanjul | 0:dab8b518248d | 1 | #include "mbed.h" |
| irsanjul | 0:dab8b518248d | 2 | #include "GSM.h" |
| irsanjul | 0:dab8b518248d | 3 | #include "myDebug.h" |
| irsanjul | 0:dab8b518248d | 4 | #include <string> |
| irsanjul | 0:dab8b518248d | 5 | |
| irsanjul | 0:dab8b518248d | 6 | #define APN "TELKOMSEL"//NULL |
| irsanjul | 0:dab8b518248d | 7 | #define USERNAME NULL |
| irsanjul | 0:dab8b518248d | 8 | #define PASSWORD NULL |
| irsanjul | 0:dab8b518248d | 9 | |
| irsanjul | 0:dab8b518248d | 10 | #define SERVER "192.168.0.111" |
| irsanjul | 0:dab8b518248d | 11 | #define PORT 80 |
| irsanjul | 0:dab8b518248d | 12 | |
| irsanjul | 0:dab8b518248d | 13 | GSM mdm(D1, D0, 115200, NULL); |
| irsanjul | 0:dab8b518248d | 14 | Serial dbg(USBTX, USBRX); |
| irsanjul | 0:dab8b518248d | 15 | |
| irsanjul | 0:dab8b518248d | 16 | int main() |
| irsanjul | 0:dab8b518248d | 17 | { |
| irsanjul | 0:dab8b518248d | 18 | INFO("<PROGRAM START>\r\n"); |
| irsanjul | 0:dab8b518248d | 19 | char buf[512] = ""; |
| irsanjul | 0:dab8b518248d | 20 | |
| irsanjul | 0:dab8b518248d | 21 | int ret = mdm.init(); |
| irsanjul | 0:dab8b518248d | 22 | if(ret < 0) |
| irsanjul | 0:dab8b518248d | 23 | { |
| irsanjul | 0:dab8b518248d | 24 | ERROR("Failed modem init!\r\n"); |
| irsanjul | 0:dab8b518248d | 25 | return -1; |
| irsanjul | 0:dab8b518248d | 26 | } |
| irsanjul | 0:dab8b518248d | 27 | TRACE("Success Modem Init...\r\n"); |
| irsanjul | 0:dab8b518248d | 28 | |
| irsanjul | 0:dab8b518248d | 29 | ret = mdm.networkInit(APN, USERNAME, PASSWORD); |
| irsanjul | 0:dab8b518248d | 30 | if(ret < 0) |
| irsanjul | 0:dab8b518248d | 31 | { |
| irsanjul | 0:dab8b518248d | 32 | ERROR("Failed network init!\r\n"); |
| irsanjul | 0:dab8b518248d | 33 | return -1; |
| irsanjul | 0:dab8b518248d | 34 | } |
| irsanjul | 0:dab8b518248d | 35 | TRACE("Success Network Init...\r\n"); |
| irsanjul | 0:dab8b518248d | 36 | |
| irsanjul | 0:dab8b518248d | 37 | while(true) |
| irsanjul | 0:dab8b518248d | 38 | { |
| irsanjul | 0:dab8b518248d | 39 | INFO("Ready to post...\r\n"); |
| irsanjul | 0:dab8b518248d | 40 | if(!mdm.connectTCP(SERVER, PORT)) |
| irsanjul | 0:dab8b518248d | 41 | { |
| irsanjul | 0:dab8b518248d | 42 | string buff; |
| irsanjul | 0:dab8b518248d | 43 | buff += "kirim-kirim\r\n"; |
| irsanjul | 0:dab8b518248d | 44 | |
| irsanjul | 0:dab8b518248d | 45 | INFO("Sending request...\r\n"); |
| irsanjul | 0:dab8b518248d | 46 | if(!mdm.sendTCPData(const_cast<char *>(buff.c_str()))) |
| irsanjul | 0:dab8b518248d | 47 | { |
| irsanjul | 0:dab8b518248d | 48 | TRACE("Berhasil-berhasil...hore...hore...\r\n"); |
| irsanjul | 0:dab8b518248d | 49 | ret = mdm.receivedTCPData(buf, sizeof(buf)-1); |
| irsanjul | 0:dab8b518248d | 50 | if(ret > 0) |
| irsanjul | 0:dab8b518248d | 51 | { |
| irsanjul | 0:dab8b518248d | 52 | FLOW("Socket Recv \"%*s\"\r\n", ret, buf); |
| irsanjul | 0:dab8b518248d | 53 | if(strstr(buf, "HTTP/1.0 200") || strstr(buf, "HTTP/1.0 201")) |
| irsanjul | 0:dab8b518248d | 54 | { |
| irsanjul | 0:dab8b518248d | 55 | INFO("Data success\r\n"); |
| irsanjul | 0:dab8b518248d | 56 | } |
| irsanjul | 0:dab8b518248d | 57 | else |
| irsanjul | 0:dab8b518248d | 58 | { |
| irsanjul | 0:dab8b518248d | 59 | ERROR("Data failed\r\n"); |
| irsanjul | 0:dab8b518248d | 60 | } |
| irsanjul | 0:dab8b518248d | 61 | } |
| irsanjul | 0:dab8b518248d | 62 | else |
| irsanjul | 0:dab8b518248d | 63 | { |
| irsanjul | 0:dab8b518248d | 64 | ERROR("have not return\r\n"); |
| irsanjul | 0:dab8b518248d | 65 | } |
| irsanjul | 0:dab8b518248d | 66 | } |
| irsanjul | 0:dab8b518248d | 67 | else |
| irsanjul | 0:dab8b518248d | 68 | { |
| irsanjul | 0:dab8b518248d | 69 | ERROR("Failed to send\r\n"); |
| irsanjul | 0:dab8b518248d | 70 | } |
| irsanjul | 0:dab8b518248d | 71 | } |
| irsanjul | 0:dab8b518248d | 72 | else |
| irsanjul | 0:dab8b518248d | 73 | { |
| irsanjul | 0:dab8b518248d | 74 | ERROR("Failed to connect\r\n"); |
| irsanjul | 0:dab8b518248d | 75 | } |
| irsanjul | 0:dab8b518248d | 76 | INFO("Disconnect...\r\rn"); |
| irsanjul | 0:dab8b518248d | 77 | mdm.closeTCP(); |
| irsanjul | 0:dab8b518248d | 78 | mdm.shutTCP(); |
| irsanjul | 0:dab8b518248d | 79 | wait_ms(5000); |
| irsanjul | 0:dab8b518248d | 80 | } |
| irsanjul | 0:dab8b518248d | 81 | } |