Gustavo Ramirez / Mbed 2 deprecated AnalogMeasurements_GSM

mide voltaje por gsm

Dependencies:   mbed

Fork of AnalogMeasurements_GSM by Juan Pablo Viana Villa

main.cpp@0:d7d64e8b652a, 2015-11-21 (annotated)

Committer:
PabloViana
Date:
Sat Nov 21 16:58:55 2015 +0000
Revision:
0:d7d64e8b652a
Analog measuremnts sent as answer using GSM Network

Who changed what in which revision?

UserRevisionLine numberNew contents of line
PabloViana 0:d7d64e8b652a 1 /*==========================================================================================
PabloViana 0:d7d64e8b652a 2 PROGRAMA PARA EL ENVÍO DE MEDICIONES ANALÓGICAS MEDIANTE RED GSM.
PabloViana 0:d7d64e8b652a 3 ING. JUAN PABLO VIANA VILLA
PabloViana 0:d7d64e8b652a 4 UNIVERSIDAD NACIONAL DE COLOMBIA - SEDE MEDELLÍN
PabloViana 0:d7d64e8b652a 5
PabloViana 0:d7d64e8b652a 6 DESCRIPCIÓN DEL FUNCIONAMIENTO:
PabloViana 0:d7d64e8b652a 7 El programa comienza realizando la inicialización del modem GSM mediante el envío de comandos "AT", se configuraron 10 intentos de conexión, en caso de no recibir respuesta del modem el programa terminará y será necesario reiniciar la plataforma KL25z.
PabloViana 0:d7d64e8b652a 8 Una vez detectada actividad por parte del modem el programa ingresa en un bucle infinito y se pone a la espera de recibir un mensaje de texto.
PabloViana 0:d7d64e8b652a 9 El programa está constantemente tratando de leer el modem, una vez detecta el mensaje SMS entrante (+CMTI), envía al modem el comando AT para la lectura de la cadena recibida y se activa una variable bandera para el envío de la respuesta.
PabloViana 0:d7d64e8b652a 10 NOTA: La cadena entrante sólo es útil para encontrar el número remitente, no se programó restricción alguna sobre el mensaje (sirve cualquiera).
PabloViana 0:d7d64e8b652a 11 Una vez leído el mensaje e identificado el remitente se sensa el valor de entrada analógica como valor de punto flotante. Se incluye una secuencia de líneas que convierten el valor medido en caracteres ASCII de la forma "Volt=x.xV" y estos a su vez son convertidos en octetos para proceder a su envío.
PabloViana 0:d7d64e8b652a 12 La trama PDU generada se despliega en pantalla en el pc monitor y es enviada al modem GSM finalizando con el caracter ASCII submit (26 - 0x1A) para de esta manera finalizar la transmisión del valor.
PabloViana 0:d7d64e8b652a 13 ==========================================================================================
PabloViana 0:d7d64e8b652a 14 */
PabloViana 0:d7d64e8b652a 15 #include "mbed.h"
PabloViana 0:d7d64e8b652a 16 #include "mbed.h"
PabloViana 0:d7d64e8b652a 17 #include "stdio.h"
PabloViana 0:d7d64e8b652a 18 #include "string.h"
PabloViana 0:d7d64e8b652a 19
PabloViana 0:d7d64e8b652a 20 //DEFINO PUERTOS Y ENTRADAS;
PabloViana 0:d7d64e8b652a 21 Serial pc(USBTX, USBRX);//Puerto Serial monitor;
PabloViana 0:d7d64e8b652a 22 AnalogIn A(PTB1); //Entrada analógica;
PabloViana 0:d7d64e8b652a 23 Serial GSM(PTE0,PTE1); //Puerto GSM. TX - RX
PabloViana 0:d7d64e8b652a 24 Timer t; //Un temporizador.
PabloViana 0:d7d64e8b652a 25
PabloViana 0:d7d64e8b652a 26
PabloViana 0:d7d64e8b652a 27 DigitalOut LedVerde(LED2);
PabloViana 0:d7d64e8b652a 28 DigitalOut LedRojo(LED1);
PabloViana 0:d7d64e8b652a 29 DigitalOut LedAzul(LED3);
PabloViana 0:d7d64e8b652a 30
PabloViana 0:d7d64e8b652a 31 //DEFINO VARIABLES GLOBALES
PabloViana 0:d7d64e8b652a 32 char DE[30] ="Volt=3.3V";
PabloViana 0:d7d64e8b652a 33 char DS[30];
PabloViana 0:d7d64e8b652a 34 char Tel[11]="1359252144";
PabloViana 0:d7d64e8b652a 35 int i=0;
PabloViana 0:d7d64e8b652a 36 int LENOUT;
PabloViana 0:d7d64e8b652a 37 int LENIN;
PabloViana 0:d7d64e8b652a 38 float V_float;
PabloViana 0:d7d64e8b652a 39 int V_int;
PabloViana 0:d7d64e8b652a 40 char bf[100]; //En esta variable voy a leer lo que mande el GMS;
PabloViana 0:d7d64e8b652a 41
PabloViana 0:d7d64e8b652a 42
PabloViana 0:d7d64e8b652a 43 //DEFINO VARIABLES DE LAS FUNCIONES RECICLADAS;
PabloViana 0:d7d64e8b652a 44
PabloViana 0:d7d64e8b652a 45 void Rx_interrupt();
PabloViana 0:d7d64e8b652a 46 int position=0;
PabloViana 0:d7d64e8b652a 47 int intentos=0;
PabloViana 0:d7d64e8b652a 48 int lenpack=6;
PabloViana 0:d7d64e8b652a 49 int ret=1;
PabloViana 0:d7d64e8b652a 50 int longi=0;
PabloViana 0:d7d64e8b652a 51 char tel[11];
PabloViana 0:d7d64e8b652a 52 char buffer[100];
PabloViana 0:d7d64e8b652a 53 char buffermsg[100];
PabloViana 0:d7d64e8b652a 54 char buffer1[100];
PabloViana 0:d7d64e8b652a 55 char datos[100];
PabloViana 0:d7d64e8b652a 56 char NUMBER[13];
PabloViana 0:d7d64e8b652a 57 char resp[6];
PabloViana 0:d7d64e8b652a 58 char CMT[]="+CMTI";
PabloViana 0:d7d64e8b652a 59 char tam[2];
PabloViana 0:d7d64e8b652a 60 int index;
PabloViana 0:d7d64e8b652a 61 int count;
PabloViana 0:d7d64e8b652a 62 int j = 0;
PabloViana 0:d7d64e8b652a 63 int c=0;
PabloViana 0:d7d64e8b652a 64 unsigned char CtrlZ = 0x1A; // comodin de emision controlZ
PabloViana 0:d7d64e8b652a 65 bool Flag = false; // bandera
PabloViana 0:d7d64e8b652a 66 char r[]=""; //Cadena de recepcion de la trama PDU si se usa!!
PabloViana 0:d7d64e8b652a 67 char msg[256];
PabloViana 0:d7d64e8b652a 68 char char1;
PabloViana 0:d7d64e8b652a 69
PabloViana 0:d7d64e8b652a 70
PabloViana 0:d7d64e8b652a 71 //Flush serial para el buffer
PabloViana 0:d7d64e8b652a 72 void FlushGSM(void) {
PabloViana 0:d7d64e8b652a 73 char1 = 0;
PabloViana 0:d7d64e8b652a 74 while (GSM.readable()){
PabloViana 0:d7d64e8b652a 75 char1 = GSM.getc();}
PabloViana 0:d7d64e8b652a 76 return;}
PabloViana 0:d7d64e8b652a 77
PabloViana 0:d7d64e8b652a 78 void callback() {
PabloViana 0:d7d64e8b652a 79 // Note: you need to actually read from the serial to clear the RX interrupt
PabloViana 0:d7d64e8b652a 80 pc.printf("%c\n", GSM.getc());
PabloViana 0:d7d64e8b652a 81
PabloViana 0:d7d64e8b652a 82 }
PabloViana 0:d7d64e8b652a 83
PabloViana 0:d7d64e8b652a 84 /*==================================================================================================================================================================
PabloViana 0:d7d64e8b652a 85 A Continuación se añaden una serie de funciones que se usarán posteriormente en el programa principal y que son provistas por el usuario Tony63;
PabloViana 0:d7d64e8b652a 86 Su funcionamiento se ha verifcado solo hasta el alcance de este programa.
PabloViana 0:d7d64e8b652a 87 ==================================================================================================================================================================*/
PabloViana 0:d7d64e8b652a 88
PabloViana 0:d7d64e8b652a 89
PabloViana 0:d7d64e8b652a 90
PabloViana 0:d7d64e8b652a 91
PabloViana 0:d7d64e8b652a 92 //****************************************************************************************************************
PabloViana 0:d7d64e8b652a 93 //esta funcion de abajo lee todo un bufer hasta encontrar CR o LF y el resto lo rellena de
PabloViana 0:d7d64e8b652a 94 //$, count es lo que va a leer.Lo leido lo mete en buffer que es una cadena previamente definida
PabloViana 0:d7d64e8b652a 95 //incorpora medida de tiempo si se demora mas de tres segundos retorna fracaso con -1
PabloViana 0:d7d64e8b652a 96 //****************************************************************************************************************
PabloViana 0:d7d64e8b652a 97 int readBuffer(char *buffer,int count)
PabloViana 0:d7d64e8b652a 98 {
PabloViana 0:d7d64e8b652a 99 int i=0;
PabloViana 0:d7d64e8b652a 100 t.start(); // start timer
PabloViana 0:d7d64e8b652a 101 while(1) {
PabloViana 0:d7d64e8b652a 102 while (GSM.readable()) {
PabloViana 0:d7d64e8b652a 103 char c = GSM.getc();
PabloViana 0:d7d64e8b652a 104 if (c == '\r' || c == '\n') c = '$';
PabloViana 0:d7d64e8b652a 105 buffer[i++] = c;
PabloViana 0:d7d64e8b652a 106 if(i > count)break;
PabloViana 0:d7d64e8b652a 107 }
PabloViana 0:d7d64e8b652a 108 if(i > count)break;
PabloViana 0:d7d64e8b652a 109 if(t.read() > 3) {
PabloViana 0:d7d64e8b652a 110 t.stop();
PabloViana 0:d7d64e8b652a 111 t.reset();
PabloViana 0:d7d64e8b652a 112 break;
PabloViana 0:d7d64e8b652a 113 }
PabloViana 0:d7d64e8b652a 114 }
PabloViana 0:d7d64e8b652a 115 wait(0.5);
PabloViana 0:d7d64e8b652a 116 while(GSM.readable()) { // display the other thing..
PabloViana 0:d7d64e8b652a 117 char c = GSM.getc();
PabloViana 0:d7d64e8b652a 118 }
PabloViana 0:d7d64e8b652a 119 return 0;
PabloViana 0:d7d64e8b652a 120 }
PabloViana 0:d7d64e8b652a 121 //********************************************************************************
PabloViana 0:d7d64e8b652a 122 /* esta funcion de abajo limpia o borra todo un "buffer" de tamaño "count"
PabloViana 0:d7d64e8b652a 123 lo revisa elemento por elemento y le mete el caracter null que indica fin de cadena
PabloViana 0:d7d64e8b652a 124 no retorna nada
PabloViana 0:d7d64e8b652a 125 */
PabloViana 0:d7d64e8b652a 126 //***************************************************************************************
PabloViana 0:d7d64e8b652a 127 void cleanBuffer(char *buffer, int count)
PabloViana 0:d7d64e8b652a 128 {
PabloViana 0:d7d64e8b652a 129 for(int i=0; i < count; i++) {
PabloViana 0:d7d64e8b652a 130 buffer[i] = '\0';
PabloViana 0:d7d64e8b652a 131 }
PabloViana 0:d7d64e8b652a 132 }
PabloViana 0:d7d64e8b652a 133 /* esta funcion de abajo envia un comando parametrizado como cadena
PabloViana 0:d7d64e8b652a 134 puede ser un comando tipo AT
PabloViana 0:d7d64e8b652a 135 */
PabloViana 0:d7d64e8b652a 136 //***************************************************************************************
PabloViana 0:d7d64e8b652a 137 void sendCmd(char *cmd)
PabloViana 0:d7d64e8b652a 138 {
PabloViana 0:d7d64e8b652a 139 GSM.puts(cmd);
PabloViana 0:d7d64e8b652a 140 }
PabloViana 0:d7d64e8b652a 141 //****************************************************************************************
PabloViana 0:d7d64e8b652a 142 /* esta funcion de abajo espera la respuesta de un comando que debe ser identica a la cadena "resp" y un tiempo timeout"
PabloViana 0:d7d64e8b652a 143 si todo sale bien retorna un cero que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 144 si algo sale mal ( no se parece o se demora mucho )retorna -1 que debera validarse con alguna expresion logica
PabloViana 0:d7d64e8b652a 145 */
PabloViana 0:d7d64e8b652a 146 //***************************************************************************************
PabloViana 0:d7d64e8b652a 147 int waitForResp(char *resp, int timeout)
PabloViana 0:d7d64e8b652a 148 {
PabloViana 0:d7d64e8b652a 149 int len = strlen(resp);
PabloViana 0:d7d64e8b652a 150 int sum=0;
PabloViana 0:d7d64e8b652a 151 t.start();
PabloViana 0:d7d64e8b652a 152
PabloViana 0:d7d64e8b652a 153 while(1) {
PabloViana 0:d7d64e8b652a 154 if(GSM.readable()) {
PabloViana 0:d7d64e8b652a 155 char c = GSM.getc();
PabloViana 0:d7d64e8b652a 156 sum = (c==resp[sum]) ? sum+1 : 0;// esta linea de C# sum se incrementa o se hace cero segun c
PabloViana 0:d7d64e8b652a 157 if(sum == len)break; //ya acabo se sale
PabloViana 0:d7d64e8b652a 158 }
PabloViana 0:d7d64e8b652a 159 if(t.read() > timeout) { // time out chequea el tiempo minimo antes de salir perdiendo
PabloViana 0:d7d64e8b652a 160 t.stop();
PabloViana 0:d7d64e8b652a 161 t.reset();
PabloViana 0:d7d64e8b652a 162 return -1;
PabloViana 0:d7d64e8b652a 163 }
PabloViana 0:d7d64e8b652a 164 }
PabloViana 0:d7d64e8b652a 165 t.stop(); // stop timer antes de retornar
PabloViana 0:d7d64e8b652a 166 t.reset(); // clear timer
PabloViana 0:d7d64e8b652a 167 while(GSM.readable()) { // display the other thing..
PabloViana 0:d7d64e8b652a 168 char c = GSM.getc();
PabloViana 0:d7d64e8b652a 169 }
PabloViana 0:d7d64e8b652a 170
PabloViana 0:d7d64e8b652a 171 return 0;
PabloViana 0:d7d64e8b652a 172 }
PabloViana 0:d7d64e8b652a 173 /* esta funcion de abajo es muy completa e util se encarga de enviar el comando y esperar la respuesta
PabloViana 0:d7d64e8b652a 174 si todo sale bien retorna un cero(herencia de las funciones contenedoras) que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 175 con alguna expresion logica
PabloViana 0:d7d64e8b652a 176 */
PabloViana 0:d7d64e8b652a 177 //***************************************************************************************
PabloViana 0:d7d64e8b652a 178 int sendCmdAndWaitForResp(char *cmd, char *resp, int timeout)
PabloViana 0:d7d64e8b652a 179 {
PabloViana 0:d7d64e8b652a 180 sendCmd(cmd);
PabloViana 0:d7d64e8b652a 181 return waitForResp(resp,timeout);
PabloViana 0:d7d64e8b652a 182 }
PabloViana 0:d7d64e8b652a 183 /* esta funcion de abajo chequea que el modem este vivo envia AT y le contesta con OK y espera 2 segundos
PabloViana 0:d7d64e8b652a 184 */
PabloViana 0:d7d64e8b652a 185 //***************************************************************************************
PabloViana 0:d7d64e8b652a 186 int powerCheck(void)// este comando se manda para verificar si el modem esta vivo o conectado
PabloViana 0:d7d64e8b652a 187 {
PabloViana 0:d7d64e8b652a 188 return sendCmdAndWaitForResp("AT\r\n", "OK", 2);
PabloViana 0:d7d64e8b652a 189 }
PabloViana 0:d7d64e8b652a 190 /* esta funcion de abajo chequea el estado de la sim card
PabloViana 0:d7d64e8b652a 191 y si todo sale bien retorna un cero que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 192 con alguna expresion logica
PabloViana 0:d7d64e8b652a 193 */
PabloViana 0:d7d64e8b652a 194 //***************************************************************************************
PabloViana 0:d7d64e8b652a 195 int checkSIMStatus(void)
PabloViana 0:d7d64e8b652a 196 {
PabloViana 0:d7d64e8b652a 197 char gprsBuffer[30];
PabloViana 0:d7d64e8b652a 198 int count = 0;
PabloViana 0:d7d64e8b652a 199 cleanBuffer(gprsBuffer,30);
PabloViana 0:d7d64e8b652a 200 while(count < 3) {
PabloViana 0:d7d64e8b652a 201 sendCmd("AT+CPIN?\r\n");
PabloViana 0:d7d64e8b652a 202 readBuffer(gprsBuffer,30);
PabloViana 0:d7d64e8b652a 203 if((NULL != strstr(gprsBuffer,"+CPIN: READY"))) {
PabloViana 0:d7d64e8b652a 204 break;
PabloViana 0:d7d64e8b652a 205 }
PabloViana 0:d7d64e8b652a 206 count++;
PabloViana 0:d7d64e8b652a 207 wait(1);
PabloViana 0:d7d64e8b652a 208 }
PabloViana 0:d7d64e8b652a 209
PabloViana 0:d7d64e8b652a 210 if(count == 3) {
PabloViana 0:d7d64e8b652a 211 return -1;
PabloViana 0:d7d64e8b652a 212 }
PabloViana 0:d7d64e8b652a 213 return 0;
PabloViana 0:d7d64e8b652a 214 }
PabloViana 0:d7d64e8b652a 215 /* esta funcion de abajo chequea la calidad de la señal
PabloViana 0:d7d64e8b652a 216 y si todo sale bien retorna con el valor de señal util o un -1 si no es aceptable, en la programacion hay que validar
PabloViana 0:d7d64e8b652a 217 con alguna expresion logica
PabloViana 0:d7d64e8b652a 218 */
PabloViana 0:d7d64e8b652a 219 //***************************************************************************************
PabloViana 0:d7d64e8b652a 220 int checkSignalStrength(void)
PabloViana 0:d7d64e8b652a 221 {
PabloViana 0:d7d64e8b652a 222 char gprsBuffer[100];
PabloViana 0:d7d64e8b652a 223 int index,count = 0;
PabloViana 0:d7d64e8b652a 224 cleanBuffer(gprsBuffer,100);
PabloViana 0:d7d64e8b652a 225 while(count < 3) {
PabloViana 0:d7d64e8b652a 226 sendCmd("AT+CSQ\r\n");
PabloViana 0:d7d64e8b652a 227 readBuffer(gprsBuffer,25);
PabloViana 0:d7d64e8b652a 228 if(sscanf(gprsBuffer, "AT+CSQ$$$$+CSQ: %d", &index)>0) {
PabloViana 0:d7d64e8b652a 229 break;
PabloViana 0:d7d64e8b652a 230 }
PabloViana 0:d7d64e8b652a 231 count++;
PabloViana 0:d7d64e8b652a 232 wait(1);
PabloViana 0:d7d64e8b652a 233 }
PabloViana 0:d7d64e8b652a 234 if(count == 3) {
PabloViana 0:d7d64e8b652a 235 return -1;
PabloViana 0:d7d64e8b652a 236 }
PabloViana 0:d7d64e8b652a 237 return index;
PabloViana 0:d7d64e8b652a 238 }
PabloViana 0:d7d64e8b652a 239
PabloViana 0:d7d64e8b652a 240 /* esta funcion de abajo inicaliza el modem se compone de un grupo de subfunciones ya definidas previamente
PabloViana 0:d7d64e8b652a 241 primero chequea que este vivo
PabloViana 0:d7d64e8b652a 242 segundo chequea el estado de la simcard
PabloViana 0:d7d64e8b652a 243 tercero chequea la intencidad de señal celular
PabloViana 0:d7d64e8b652a 244 cuarto aplica la configuracion
PabloViana 0:d7d64e8b652a 245 y si todo sale bien retorna un cero que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 246 con alguna expresion logica
PabloViana 0:d7d64e8b652a 247 */
PabloViana 0:d7d64e8b652a 248 //***************************************************************************************
PabloViana 0:d7d64e8b652a 249 int init()
PabloViana 0:d7d64e8b652a 250 {
PabloViana 0:d7d64e8b652a 251 if (0 != sendCmdAndWaitForResp("AT\r\n", "OK", 3)){
PabloViana 0:d7d64e8b652a 252 return -1;
PabloViana 0:d7d64e8b652a 253 }
PabloViana 0:d7d64e8b652a 254 if (0 != sendCmdAndWaitForResp("AT+CNMI=1,1\r\n", "OK", 3)){
PabloViana 0:d7d64e8b652a 255 return -1;
PabloViana 0:d7d64e8b652a 256 }
PabloViana 0:d7d64e8b652a 257 if (0 != sendCmdAndWaitForResp("AT+CMGF=0\r\n", "OK", 3)){
PabloViana 0:d7d64e8b652a 258 return -1;
PabloViana 0:d7d64e8b652a 259 }
PabloViana 0:d7d64e8b652a 260 if (0 != sendCmdAndWaitForResp("AT+CBST=0,0,1\r\n", "OK", 3)){
PabloViana 0:d7d64e8b652a 261 return -1;
PabloViana 0:d7d64e8b652a 262 }
PabloViana 0:d7d64e8b652a 263 LedVerde=0;
PabloViana 0:d7d64e8b652a 264 return 0;
PabloViana 0:d7d64e8b652a 265 }
PabloViana 0:d7d64e8b652a 266
PabloViana 0:d7d64e8b652a 267 /* esta funcion de abajo intenta leer un mensaje de texto en formato PDU o HEX
PabloViana 0:d7d64e8b652a 268 y si todo sale bien retorna un cero que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 269 con alguna expresion logica
PabloViana 0:d7d64e8b652a 270 */
PabloViana 0:d7d64e8b652a 271 //***************************************************************************************
PabloViana 0:d7d64e8b652a 272 int readSMSpdu(char *message, int index)
PabloViana 0:d7d64e8b652a 273 {
PabloViana 0:d7d64e8b652a 274 int i = 0;
PabloViana 0:d7d64e8b652a 275 char gprsBuffer[100];
PabloViana 0:d7d64e8b652a 276 char *p,*s;
PabloViana 0:d7d64e8b652a 277 GSM.printf("AT+CMGR=%d\r\n",index);
PabloViana 0:d7d64e8b652a 278 cleanBuffer(gprsBuffer,100);
PabloViana 0:d7d64e8b652a 279 readBuffer(gprsBuffer,100);
PabloViana 0:d7d64e8b652a 280 if(NULL == ( s = strstr(gprsBuffer,"+CMGR"))) {
PabloViana 0:d7d64e8b652a 281 return -1;
PabloViana 0:d7d64e8b652a 282 }
PabloViana 0:d7d64e8b652a 283 if(NULL != ( s = strstr(gprsBuffer,"+32"))) {
PabloViana 0:d7d64e8b652a 284 p = s + 6;
PabloViana 0:d7d64e8b652a 285 while((*p != '$')&&(i < 5)) {
PabloViana 0:d7d64e8b652a 286 message[i++] = *(p++);
PabloViana 0:d7d64e8b652a 287 }
PabloViana 0:d7d64e8b652a 288 message[i] = '\0';
PabloViana 0:d7d64e8b652a 289 }
PabloViana 0:d7d64e8b652a 290 return 0;
PabloViana 0:d7d64e8b652a 291 }
PabloViana 0:d7d64e8b652a 292 /* esta funcion de abajo borra mensajes SMS del modem
PabloViana 0:d7d64e8b652a 293 y si todo sale bien retorna un cero que en la programacion hay que validar
PabloViana 0:d7d64e8b652a 294 con alguna expresion logica
PabloViana 0:d7d64e8b652a 295 */
PabloViana 0:d7d64e8b652a 296 //***************************************************************************************
PabloViana 0:d7d64e8b652a 297 int deleteSMS(int index)
PabloViana 0:d7d64e8b652a 298 {
PabloViana 0:d7d64e8b652a 299 char cmd[32];
PabloViana 0:d7d64e8b652a 300 snprintf(cmd,sizeof(cmd),"AT+CMGD=%d\r\n",index);
PabloViana 0:d7d64e8b652a 301 sendCmd(cmd);
PabloViana 0:d7d64e8b652a 302 return 0;
PabloViana 0:d7d64e8b652a 303 }
PabloViana 0:d7d64e8b652a 304 /*============================================================================================*/
PabloViana 0:d7d64e8b652a 305
PabloViana 0:d7d64e8b652a 306 int main()
PabloViana 0:d7d64e8b652a 307 {
PabloViana 0:d7d64e8b652a 308
PabloViana 0:d7d64e8b652a 309 int EnviarMensaje=0; //Bandera para el envío de SMS;
PabloViana 0:d7d64e8b652a 310 int TEMP;
PabloViana 0:d7d64e8b652a 311 wait(10);
PabloViana 0:d7d64e8b652a 312 pc.printf("Comienza programa de envio de mediciones analogicas mediante SMS.\r\n Se estan configurando los puertos seriales.\r\n");
PabloViana 0:d7d64e8b652a 313
PabloViana 0:d7d64e8b652a 314 //Las siguientes líneas tienen como fin configurar los puertos seriales;
PabloViana 0:d7d64e8b652a 315 GSM.baud(9600);//configura los baudios de la FRDMKL25Z en 9600
PabloViana 0:d7d64e8b652a 316 GSM.format(8,Serial::None,1); //configura el formato de los datos de la UART
PabloViana 0:d7d64e8b652a 317 GSM.printf("ATE0\r\n");
PabloViana 0:d7d64e8b652a 318 //Las siguientes líneas tienen como fin borrar los mensajes almacenados en el teléfono;
PabloViana 0:d7d64e8b652a 319 for(i=0;i<6;i++)
PabloViana 0:d7d64e8b652a 320 {
PabloViana 0:d7d64e8b652a 321 GSM.printf("AT+CMGD=%d\r\n",i);
PabloViana 0:d7d64e8b652a 322 wait(0.2);
PabloViana 0:d7d64e8b652a 323 }
PabloViana 0:d7d64e8b652a 324
PabloViana 0:d7d64e8b652a 325 i=0;
PabloViana 0:d7d64e8b652a 326 //Las siguientes líneas tienen por objetivo detectar el modem y realizar algunas configuaciones. Básicamente se le pregunta al módulo "AT", a lo que él debe respoder "OK"
PabloViana 0:d7d64e8b652a 327
PabloViana 0:d7d64e8b652a 328 while(init()<0)
PabloViana 0:d7d64e8b652a 329 {
PabloViana 0:d7d64e8b652a 330 LedVerde=1; //Apago el led;
PabloViana 0:d7d64e8b652a 331 LedRojo=1;//Apago el led;
PabloViana 0:d7d64e8b652a 332 LedAzul=1;//Apago el led;
PabloViana 0:d7d64e8b652a 333
PabloViana 0:d7d64e8b652a 334 i++;
PabloViana 0:d7d64e8b652a 335 if (i==10){pc.printf("Ha sido imposible establecer conexion con el modem GSM. \n\r El programa terminara y debera iniciar nuevamente la KL25z\n\r");LedRojo=0;wait(1);LedRojo=1;return 0;}
PabloViana 0:d7d64e8b652a 336 }
PabloViana 0:d7d64e8b652a 337 wait(0.5); //Esta línea no tiene ningún sentido, solo espero para que el programa parezca más interesante.
PabloViana 0:d7d64e8b652a 338 pc.printf("Se ha realizado la conexion exitosamente, ahora puede comenzar el envio de informacion. \r\n");
PabloViana 0:d7d64e8b652a 339 LedVerde=1; //Apago el led;
PabloViana 0:d7d64e8b652a 340 LedRojo=1;//Apago el led;
PabloViana 0:d7d64e8b652a 341 LedAzul=1;//Apago el led;
PabloViana 0:d7d64e8b652a 342
PabloViana 0:d7d64e8b652a 343 /*Inicia ciclo infinito*/
PabloViana 0:d7d64e8b652a 344 while (true) {
PabloViana 0:d7d64e8b652a 345
PabloViana 0:d7d64e8b652a 346 if (EnviarMensaje ==1)
PabloViana 0:d7d64e8b652a 347 {
PabloViana 0:d7d64e8b652a 348 pc.printf("****************************************************************************\r\n");
PabloViana 0:d7d64e8b652a 349 //Las siguientes líneas tienen como fin leer el voltaje y convertirlo en ASCII;
PabloViana 0:d7d64e8b652a 350 V_float=A.read()*3.3;
PabloViana 0:d7d64e8b652a 351 V_int=V_float*10; //Multiplico por 10 y almaceno en una variable tipo entero para tomar un decimal y eliminar el punto flotante;
PabloViana 0:d7d64e8b652a 352 TEMP=V_int/10;
PabloViana 0:d7d64e8b652a 353 DE[5]=TEMP+48; //Convierto el valor el caracter;
PabloViana 0:d7d64e8b652a 354 V_int = V_int-TEMP*10;
PabloViana 0:d7d64e8b652a 355 DE[7]=V_int + 48;//Convierto el valor en caracter;
PabloViana 0:d7d64e8b652a 356 //Las siguientes líneas tienen por objeto la conversión de una cadena de caracteres a octetos que puedan enviarse mediante PDU;
PabloViana 0:d7d64e8b652a 357
PabloViana 0:d7d64e8b652a 358
PabloViana 0:d7d64e8b652a 359 DE[0]=86;//V
PabloViana 0:d7d64e8b652a 360 DE[1]=111;//o
PabloViana 0:d7d64e8b652a 361 DE[2]=108;//l
PabloViana 0:d7d64e8b652a 362 DE[3]=116;//t
PabloViana 0:d7d64e8b652a 363 DE[4]=61;//=
PabloViana 0:d7d64e8b652a 364 //D[5]=;
PabloViana 0:d7d64e8b652a 365 DE[6]=46;//.
PabloViana 0:d7d64e8b652a 366 //D[7]=;//.
PabloViana 0:d7d64e8b652a 367 DE[8]=86;//V
PabloViana 0:d7d64e8b652a 368
PabloViana 0:d7d64e8b652a 369
PabloViana 0:d7d64e8b652a 370 pc.printf("\r\nVoltaje: %s\r\n", DE);
PabloViana 0:d7d64e8b652a 371 LENIN=strlen(DE); //Se mide el tamaño de la cadena;
PabloViana 0:d7d64e8b652a 372 for(i=0;i<LENIN;i++)
PabloViana 0:d7d64e8b652a 373 {DE[i]=DE[i]&0x000000FF;} //Convierto en formato 0x00;
PabloViana 0:d7d64e8b652a 374
PabloViana 0:d7d64e8b652a 375 for (i=0;i < LENIN;i++)
PabloViana 0:d7d64e8b652a 376 {
PabloViana 0:d7d64e8b652a 377 DS[i]=(DE[i]>>i|DE[i+1]<<(7-i));
PabloViana 0:d7d64e8b652a 378 LENOUT=i+1;
PabloViana 0:d7d64e8b652a 379 if(DS[i]==0){DS[i]='\0';break;}
PabloViana 0:d7d64e8b652a 380 }
PabloViana 0:d7d64e8b652a 381
PabloViana 0:d7d64e8b652a 382 pc.printf("\r\n ENVIAR SMS: ");
PabloViana 0:d7d64e8b652a 383 pc.printf("AT+CMGS=21\r\n");
PabloViana 0:d7d64e8b652a 384 wait(0.2);
PabloViana 0:d7d64e8b652a 385 GSM.printf("AT+CMGS=21\r\n"); //Indico al modem GSM que se enviará una trama PDU de longitud 21;
PabloViana 0:d7d64e8b652a 386 wait(0.2);
PabloViana 0:d7d64e8b652a 387 pc.printf("0011000A91");
PabloViana 0:d7d64e8b652a 388 GSM.printf("0011000A91"); //Identificación del mensaje y del protocolo;
PabloViana 0:d7d64e8b652a 389 pc.printf("%s", Tel);
PabloViana 0:d7d64e8b652a 390 GSM.printf("%s", Tel); //Destinatario del mensaje;
PabloViana 0:d7d64e8b652a 391 pc.printf("0000AA09");
PabloViana 0:d7d64e8b652a 392 GSM.printf("0000AA09");//Longtitud del mensaje y otros parámetros;
PabloViana 0:d7d64e8b652a 393
PabloViana 0:d7d64e8b652a 394 for(i=0;i<LENOUT-1;i++)
PabloViana 0:d7d64e8b652a 395 {
PabloViana 0:d7d64e8b652a 396 pc.printf("%2X",DS[i]&0x000000FF);
PabloViana 0:d7d64e8b652a 397 GSM.printf("%2X",DS[i]&0x000000FF); //Mensaje en octetos;
PabloViana 0:d7d64e8b652a 398
PabloViana 0:d7d64e8b652a 399 }
PabloViana 0:d7d64e8b652a 400 wait(0.5);
PabloViana 0:d7d64e8b652a 401
PabloViana 0:d7d64e8b652a 402 GSM.putc(0x1A); //Caracter ASCII 26 para el envío del SMS;
PabloViana 0:d7d64e8b652a 403 EnviarMensaje=0;
PabloViana 0:d7d64e8b652a 404 }//Enviar mensaje;
PabloViana 0:d7d64e8b652a 405
PabloViana 0:d7d64e8b652a 406 //inicia la recepcion de un mensaje de texto
PabloViana 0:d7d64e8b652a 407 if (GSM.readable()) {
PabloViana 0:d7d64e8b652a 408 readBuffer(buffer,100);
PabloViana 0:d7d64e8b652a 409 pc.printf("%s\r\n",buffer);
PabloViana 0:d7d64e8b652a 410 for(i=0;i<5;i++)
PabloViana 0:d7d64e8b652a 411 {
PabloViana 0:d7d64e8b652a 412 resp[i]=buffer[i];
PabloViana 0:d7d64e8b652a 413 }
PabloViana 0:d7d64e8b652a 414
PabloViana 0:d7d64e8b652a 415 pc.printf("%s\r\n",resp);
PabloViana 0:d7d64e8b652a 416 if(strcmp("$$+CM",resp) == 0){ //COMPARA resp con "+CMTI"
PabloViana 0:d7d64e8b652a 417 pc.printf("****************************************************************************\r\n");
PabloViana 0:d7d64e8b652a 418 pc.printf("Nuevo Mensaje de texto. \r\n");
PabloViana 0:d7d64e8b652a 419 EnviarMensaje=1;
PabloViana 0:d7d64e8b652a 420 cleanBuffer(buffer,10);
PabloViana 0:d7d64e8b652a 421 wait(0.5);
PabloViana 0:d7d64e8b652a 422 GSM.printf("AT+CMGL=0\r\n");//envio comando para leer mensaje
PabloViana 0:d7d64e8b652a 423 pc.printf("AT+CMGL=0\r\n");
PabloViana 0:d7d64e8b652a 424 //if (GSM.readable()) {
PabloViana 0:d7d64e8b652a 425 GSM.printf("AT+CMGD=0\r\n");
PabloViana 0:d7d64e8b652a 426 readBuffer(buffer,100);
PabloViana 0:d7d64e8b652a 427 pc.printf("Cadena recibida: %s\r\n",buffer);
PabloViana 0:d7d64e8b652a 428 wait(5);
PabloViana 0:d7d64e8b652a 429 i=0;
PabloViana 0:d7d64e8b652a 430 //leer telefono
PabloViana 0:d7d64e8b652a 431 for(i=0;i<10;i++){
PabloViana 0:d7d64e8b652a 432 Tel[i]=buffer[i+40];
PabloViana 0:d7d64e8b652a 433 }
PabloViana 0:d7d64e8b652a 434 pc.printf("%Remitente: %s\r\n",Tel); //Almaceno el número de teléfono del remitente
PabloViana 0:d7d64e8b652a 435
PabloViana 0:d7d64e8b652a 436
PabloViana 0:d7d64e8b652a 437
PabloViana 0:d7d64e8b652a 438 cleanBuffer(buffer,100);//ejecurar orden
PabloViana 0:d7d64e8b652a 439
PabloViana 0:d7d64e8b652a 440 }
PabloViana 0:d7d64e8b652a 441 }
PabloViana 0:d7d64e8b652a 442 }//while
PabloViana 0:d7d64e8b652a 443 }
PabloViana 0:d7d64e8b652a 444