![](/media/cache/profiles/bd1ce36d68a5c2bea97fe45863673b20.jpg.50x50_q85.jpg)
COMUNICACIÓN MODEM SIEMENS Y GPS PARA RASTREO SATELITAL CON ACCIONAMIENTO REMOTO
Fork of TareaGPS_Siemens by
main.cpp@0:b2a6aa7c0c8c, 2015-06-19 (annotated)
- Committer:
- procesadores_FAC
- Date:
- Fri Jun 19 17:45:34 2015 +0000
- Revision:
- 0:b2a6aa7c0c8c
- Child:
- 1:e2bd083802c0
Tarea UnalMed;
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
procesadores_FAC | 0:b2a6aa7c0c8c | 1 | //programa para celular siemens que recibe un mensaje de texto t activa una salida en formato |
procesadores_FAC | 0:b2a6aa7c0c8c | 2 | //pdu hex |
procesadores_FAC | 0:b2a6aa7c0c8c | 3 | #include "mbed.h" |
procesadores_FAC | 0:b2a6aa7c0c8c | 4 | #include "DebouncedIn.h" |
procesadores_FAC | 0:b2a6aa7c0c8c | 5 | #include "stdio.h" |
procesadores_FAC | 0:b2a6aa7c0c8c | 6 | #include "string.h" |
procesadores_FAC | 0:b2a6aa7c0c8c | 7 | #include "GPS.h" |
procesadores_FAC | 0:b2a6aa7c0c8c | 8 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 9 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 10 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 11 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 12 | Timer t; |
procesadores_FAC | 0:b2a6aa7c0c8c | 13 | DigitalOut LedVerde(LED2); |
procesadores_FAC | 0:b2a6aa7c0c8c | 14 | DigitalOut LedRojo(LED1); |
procesadores_FAC | 0:b2a6aa7c0c8c | 15 | DigitalOut LedAzul(LED3); |
procesadores_FAC | 0:b2a6aa7c0c8c | 16 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 17 | /////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 18 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 19 | Serial GSM(PTE0,PTE1); //puertos del FRDM para el modem |
procesadores_FAC | 0:b2a6aa7c0c8c | 20 | Serial pc(USBTX,USBRX); |
procesadores_FAC | 0:b2a6aa7c0c8c | 21 | GPS gps(PTE22, PTE23); // Puerto del FDRM para el gps |
procesadores_FAC | 0:b2a6aa7c0c8c | 22 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 23 | //////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 24 | //PARAMETROS |
procesadores_FAC | 0:b2a6aa7c0c8c | 25 | //////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 26 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 27 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 28 | short DE[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 29 | short DS[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 30 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 31 | char buffer[512]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 32 | char buffermsg[100]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 33 | char buffer1[13]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 34 | char mensaje[100]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 35 | int count; |
procesadores_FAC | 0:b2a6aa7c0c8c | 36 | int i,K,LENOUT,LENIN,C; |
procesadores_FAC | 0:b2a6aa7c0c8c | 37 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 38 | char Tel[15]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 39 | char cel[15]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 40 | char ojala[15]; // OJO |
procesadores_FAC | 0:b2a6aa7c0c8c | 41 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 42 | int c=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 43 | int cont=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 44 | unsigned char CtrlZ = 0x1A; |
procesadores_FAC | 0:b2a6aa7c0c8c | 45 | bool Flag = false; |
procesadores_FAC | 0:b2a6aa7c0c8c | 46 | char r[]=""; |
procesadores_FAC | 0:b2a6aa7c0c8c | 47 | char msg[256]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 48 | char char1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 49 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 50 | int index; |
procesadores_FAC | 0:b2a6aa7c0c8c | 51 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 52 | ////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 53 | //longitud y latitud |
procesadores_FAC | 0:b2a6aa7c0c8c | 54 | //// |
procesadores_FAC | 0:b2a6aa7c0c8c | 55 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 56 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 57 | float lo,la; |
procesadores_FAC | 0:b2a6aa7c0c8c | 58 | char clo[255], cla[255]; // |
procesadores_FAC | 0:b2a6aa7c0c8c | 59 | int LENINlo,LENINla,LENINla_lo; |
procesadores_FAC | 0:b2a6aa7c0c8c | 60 | char la_lo[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 61 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 62 | char http2[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 63 | char http[] = "http://maps.google.com/maps?q="; |
procesadores_FAC | 0:b2a6aa7c0c8c | 64 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 65 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 66 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 67 | ////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 68 | // convercion oct sept |
procesadores_FAC | 0:b2a6aa7c0c8c | 69 | //////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 70 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 71 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 72 | int iht,Kht,ChtLENOUTht,LENINht; |
procesadores_FAC | 0:b2a6aa7c0c8c | 73 | int ioct,Koct,LENOUToct,LENINoct,Coct; |
procesadores_FAC | 0:b2a6aa7c0c8c | 74 | char DEoct[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 75 | char DSoct[255]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 76 | char buf[100]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 77 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 78 | ///////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 79 | //cocanteo rellenos y numero |
procesadores_FAC | 0:b2a6aa7c0c8c | 80 | ////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 81 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 82 | char relle1[]= "0011000A91"; |
procesadores_FAC | 0:b2a6aa7c0c8c | 83 | char relle2[]= "10000AA"; |
procesadores_FAC | 0:b2a6aa7c0c8c | 84 | char relle3[]= "68"; |
procesadores_FAC | 0:b2a6aa7c0c8c | 85 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 86 | ///////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 87 | // funciones |
procesadores_FAC | 0:b2a6aa7c0c8c | 88 | //////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 89 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 90 | int readBuffer(char *buffer,int count) |
procesadores_FAC | 0:b2a6aa7c0c8c | 91 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 92 | int i=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 93 | t.start(); |
procesadores_FAC | 0:b2a6aa7c0c8c | 94 | while(1) { |
procesadores_FAC | 0:b2a6aa7c0c8c | 95 | while (GSM.readable()) { |
procesadores_FAC | 0:b2a6aa7c0c8c | 96 | char c = GSM.getc(); |
procesadores_FAC | 0:b2a6aa7c0c8c | 97 | if (c == '\r' || c == '\n') c = '$'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 98 | buffer[i++] = c; |
procesadores_FAC | 0:b2a6aa7c0c8c | 99 | if(i > count)break; |
procesadores_FAC | 0:b2a6aa7c0c8c | 100 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 101 | if(i > count)break; // ojooo |
procesadores_FAC | 0:b2a6aa7c0c8c | 102 | if(t.read() > 3) { |
procesadores_FAC | 0:b2a6aa7c0c8c | 103 | t.stop(); |
procesadores_FAC | 0:b2a6aa7c0c8c | 104 | t.reset(); |
procesadores_FAC | 0:b2a6aa7c0c8c | 105 | break; |
procesadores_FAC | 0:b2a6aa7c0c8c | 106 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 107 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 108 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 109 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 110 | while(GSM.readable()) { |
procesadores_FAC | 0:b2a6aa7c0c8c | 111 | char c = GSM.getc(); |
procesadores_FAC | 0:b2a6aa7c0c8c | 112 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 113 | return 0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 114 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 115 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 116 | /////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 117 | //Programass |
procesadores_FAC | 0:b2a6aa7c0c8c | 118 | /////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 119 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 120 | int main(void) |
procesadores_FAC | 0:b2a6aa7c0c8c | 121 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 122 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 123 | LedVerde=1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 124 | LedRojo=1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 125 | LedAzul=1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 126 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 127 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 128 | GSM.baud(9600); |
procesadores_FAC | 0:b2a6aa7c0c8c | 129 | GSM.format(8,Serial::None,1); |
procesadores_FAC | 0:b2a6aa7c0c8c | 130 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 131 | GSM.printf("AT\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 132 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 133 | GSM.printf("AT+CNMI=1,1\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 134 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 135 | GSM.printf("AT+CMGF=0\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 136 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 137 | GSM.printf("ATE\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 138 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 139 | GSM.printf("CBST=0,0,1\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 140 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 141 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 142 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 143 | while(1){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 144 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 145 | if (GSM.readable()) { |
procesadores_FAC | 0:b2a6aa7c0c8c | 146 | readBuffer(buffer,100); |
procesadores_FAC | 0:b2a6aa7c0c8c | 147 | pc.printf("buffer= %s\n\r ",buffer); |
procesadores_FAC | 0:b2a6aa7c0c8c | 148 | pc.printf("buffer= %c %c\n\r ",buffer[10],buffer[11]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 149 | if(buffer[67]=='A'){for(i=0;i<86;i++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 150 | {buffermsg[i]=buffer[i];} |
procesadores_FAC | 0:b2a6aa7c0c8c | 151 | pc.printf("mensaje= %s\n\r ",buffermsg); |
procesadores_FAC | 0:b2a6aa7c0c8c | 152 | pc.printf("mensaje[72]= %c mensaje[73]=%c\n\r ",buffermsg[72],buffermsg[73]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 153 | buffer[67]='c'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 154 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 155 | if (buffermsg[69] == '2'){ // PARA CUANDO LA CLAVE ES On |
procesadores_FAC | 0:b2a6aa7c0c8c | 156 | LENIN=2; //numero de caracteres de abajo son los octetos |
procesadores_FAC | 0:b2a6aa7c0c8c | 157 | DE[0]=0x47; |
procesadores_FAC | 0:b2a6aa7c0c8c | 158 | DE[1]=0x37; |
procesadores_FAC | 0:b2a6aa7c0c8c | 159 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 160 | if (buffermsg[69] == '3'&& buffermsg[70] == '4'){ // PARA CUANDO LA CLAVE ES Off |
procesadores_FAC | 0:b2a6aa7c0c8c | 161 | LENIN=3; //numero de caracteres de abajo son los octetos |
procesadores_FAC | 0:b2a6aa7c0c8c | 162 | DE[0]=0x4F; |
procesadores_FAC | 0:b2a6aa7c0c8c | 163 | DE[1]=0xB3; |
procesadores_FAC | 0:b2a6aa7c0c8c | 164 | DE[2]=0x19; |
procesadores_FAC | 0:b2a6aa7c0c8c | 165 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 166 | if (buffermsg[69] == '3'&& buffermsg[70] == 'C'){ // PARA CUANDO LA CLAVE ES Cor |
procesadores_FAC | 0:b2a6aa7c0c8c | 167 | LENIN=3; //numero de caracteres de abajo son los octetos |
procesadores_FAC | 0:b2a6aa7c0c8c | 168 | DE[0]=0xC3; |
procesadores_FAC | 0:b2a6aa7c0c8c | 169 | DE[1]=0xB7; |
procesadores_FAC | 0:b2a6aa7c0c8c | 170 | DE[2]=0x1C; |
procesadores_FAC | 0:b2a6aa7c0c8c | 171 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 172 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 173 | LENOUT= LENIN*8/7; |
procesadores_FAC | 0:b2a6aa7c0c8c | 174 | K=7; |
procesadores_FAC | 0:b2a6aa7c0c8c | 175 | C=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 176 | DS[0]=DE[0] & 0x7F; // la primera sola |
procesadores_FAC | 0:b2a6aa7c0c8c | 177 | pc.printf("%2X\n",DS[0]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 178 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 179 | for (i=1;i < LENOUT;i++){ // inicia el algoritmo |
procesadores_FAC | 0:b2a6aa7c0c8c | 180 | DS[i]=(DE[i-1-C]>>K | DE[i-C]<<(8-K))& 0x7F; //valido para todos |
procesadores_FAC | 0:b2a6aa7c0c8c | 181 | pc.printf("%2X\n",DS[i]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 182 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 183 | if (K==0) {K=8;C++;} |
procesadores_FAC | 0:b2a6aa7c0c8c | 184 | K--; |
procesadores_FAC | 0:b2a6aa7c0c8c | 185 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 186 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 187 | for (i=0 ;i<=9;i++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 188 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 189 | Tel[i] = buffermsg[40+i]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 190 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 191 | pc.printf("\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 192 | pc.printf("%c%c%c%c%c%c%c%c%c%c",Tel[1],Tel[0],Tel[3],Tel[2],Tel[5],Tel[4],Tel[7],Tel[6],Tel[9],Tel[8]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 193 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 194 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 195 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 196 | if(buffer[10]=='S'&& buffer[11]=='M'){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 197 | for(i=0;i<5;i++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 198 | {buffer1[i]=buffer[2+i];} |
procesadores_FAC | 0:b2a6aa7c0c8c | 199 | pc.printf("buffer1= %s\n\r ",buffer1); |
procesadores_FAC | 0:b2a6aa7c0c8c | 200 | buffer[10]='c'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 201 | buffer[11]='c'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 202 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 203 | if(buffer1[3]=='T'){pc.printf("AT+CMGL=0\n\r"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 204 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 205 | GSM.printf("AT+CMGL=0\r\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 206 | buffer1[3]='p'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 207 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 208 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 209 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 210 | if(DS[0]-67 == 0&& DS[1]-111==0) // Cor en octetos es 436f72 |
procesadores_FAC | 0:b2a6aa7c0c8c | 211 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 212 | pc.printf("\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 213 | LedAzul=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 214 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 215 | DS[0] = '\0'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 216 | DS[1] = '\0'; |
procesadores_FAC | 0:b2a6aa7c0c8c | 217 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 218 | if(gps.sample()) |
procesadores_FAC | 0:b2a6aa7c0c8c | 219 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 220 | lo =gps.longitude; |
procesadores_FAC | 0:b2a6aa7c0c8c | 221 | la =gps.latitude; |
procesadores_FAC | 0:b2a6aa7c0c8c | 222 | pc.printf("longitud_entera=%f, Latitud entera=%f\n", lo, la); |
procesadores_FAC | 0:b2a6aa7c0c8c | 223 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 224 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 225 | //LONGITUD/ |
procesadores_FAC | 0:b2a6aa7c0c8c | 226 | sprintf (clo, "%f", lo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 227 | pc.printf ( "\nlongitud = %s\n",clo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 228 | LENINlo=strlen(clo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 229 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 230 | /* for (ilo=0;ilo<LENINlo;ilo++){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 231 | pc.printf("%c,",clo[ilo]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 232 | } */ |
procesadores_FAC | 0:b2a6aa7c0c8c | 233 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 234 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 235 | //LATITUD/ |
procesadores_FAC | 0:b2a6aa7c0c8c | 236 | sprintf (cla, "%f", la); |
procesadores_FAC | 0:b2a6aa7c0c8c | 237 | pc.printf ( "\nlatitud = %s\n",cla); |
procesadores_FAC | 0:b2a6aa7c0c8c | 238 | LENINla=strlen(cla); |
procesadores_FAC | 0:b2a6aa7c0c8c | 239 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 240 | /*for (ila1=0;ila1<LENINla1;ila1++){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 241 | pc.printf("%c,",cla[ila1]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 242 | }*/ |
procesadores_FAC | 0:b2a6aa7c0c8c | 243 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 244 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 245 | /////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 246 | // CONCATENO LONGITUD Y LATITUD |
procesadores_FAC | 0:b2a6aa7c0c8c | 247 | /////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 248 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 249 | strcpy(la_lo,cla); |
procesadores_FAC | 0:b2a6aa7c0c8c | 250 | strcat(la_lo,","); |
procesadores_FAC | 0:b2a6aa7c0c8c | 251 | strcat(la_lo,clo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 252 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 253 | pc.printf ( "\nla_lo: %s\n",la_lo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 254 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 255 | LENINla_lo=strlen(la_lo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 256 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 257 | /*for (j=0;j<LENINla_lo;j++){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 258 | pc.printf("%c\n",la_lo[j]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 259 | }*/ |
procesadores_FAC | 0:b2a6aa7c0c8c | 260 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 261 | //////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 262 | // CONCATENO LONGITUD, LATITUD Y EL http//: |
procesadores_FAC | 0:b2a6aa7c0c8c | 263 | //////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 264 | strcpy(http2,http); |
procesadores_FAC | 0:b2a6aa7c0c8c | 265 | strcat(http2,la_lo); |
procesadores_FAC | 0:b2a6aa7c0c8c | 266 | pc.printf ( "%s\n",http2); |
procesadores_FAC | 0:b2a6aa7c0c8c | 267 | pc.printf ( "\n" ); |
procesadores_FAC | 0:b2a6aa7c0c8c | 268 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 269 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 270 | ////////////////////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 271 | // convierto http2 de oct a sep |
procesadores_FAC | 0:b2a6aa7c0c8c | 272 | //////////////////////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 273 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 274 | LENINht=strlen(http2); |
procesadores_FAC | 0:b2a6aa7c0c8c | 275 | pc.printf("%d\n",LENINht); |
procesadores_FAC | 0:b2a6aa7c0c8c | 276 | for (iht=0;iht<LENINht;iht++){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 277 | pc.printf("%2X",http2[iht]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 278 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 279 | pc.printf ( "\n" ); |
procesadores_FAC | 0:b2a6aa7c0c8c | 280 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 281 | ///////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 282 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 283 | LENINoct=strlen(http2); |
procesadores_FAC | 0:b2a6aa7c0c8c | 284 | pc.printf("%d\n",LENINoct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 285 | for (ioct=0;ioct<LENINoct;ioct++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 286 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 287 | DEoct[ioct]=http2[ioct]; |
procesadores_FAC | 0:b2a6aa7c0c8c | 288 | pc.printf("%2X,%d\n",DEoct[ioct],ioct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 289 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 290 | //////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 291 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 292 | Koct=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 293 | Coct=0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 294 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 295 | for (ioct=0;ioct < LENINoct;ioct++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 296 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 297 | DSoct[ioct]=DEoct[ioct+Coct]>>Koct | DEoct[ioct+Coct+1]<<(7-Koct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 298 | if (DSoct[ioct]==0x00){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 299 | LENOUToct=ioct; |
procesadores_FAC | 0:b2a6aa7c0c8c | 300 | pc.printf("\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 301 | pc.printf("%s",DEoct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 302 | pc.printf("out =%d",LENOUToct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 303 | for (ioct=0;ioct<LENOUToct;ioct++){ |
procesadores_FAC | 0:b2a6aa7c0c8c | 304 | pc.printf("%2X,%d\r\n",DSoct[ioct]&0x000000FF,ioct); |
procesadores_FAC | 0:b2a6aa7c0c8c | 305 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 306 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 307 | // pc.printf("LENOUT:%d,LENIN:%d\r\n",LENOUToct,strlen(DEoct)); |
procesadores_FAC | 0:b2a6aa7c0c8c | 308 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 309 | //} |
procesadores_FAC | 0:b2a6aa7c0c8c | 310 | Koct++; |
procesadores_FAC | 0:b2a6aa7c0c8c | 311 | if (Koct==7) |
procesadores_FAC | 0:b2a6aa7c0c8c | 312 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 313 | Koct=0;Coct++; |
procesadores_FAC | 0:b2a6aa7c0c8c | 314 | } // se chequea que ya se acabaron los bits en un ciclo de conversion. |
procesadores_FAC | 0:b2a6aa7c0c8c | 315 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 316 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 317 | ///////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 318 | // CONCATENO LOS RELLENOS Y EL NUMERO DEL CELULAR |
procesadores_FAC | 0:b2a6aa7c0c8c | 319 | //////////////////////////////////////////////////////// |
procesadores_FAC | 0:b2a6aa7c0c8c | 320 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 321 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 322 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 323 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 324 | wait(5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 325 | index=56; |
procesadores_FAC | 0:b2a6aa7c0c8c | 326 | GSM.printf("AT+CMGS=%d\r\n",index); |
procesadores_FAC | 0:b2a6aa7c0c8c | 327 | pc.printf("AT+CMGS=%d\r\n",index); |
procesadores_FAC | 0:b2a6aa7c0c8c | 328 | pc.printf("0011000A91"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 329 | GSM.printf("0011000A91"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 330 | for (i=0 ;i<=9;i++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 331 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 332 | pc.printf("%c",Tel[i]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 333 | GSM.printf("%c",Tel[i]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 334 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 335 | pc.printf("10000AA"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 336 | GSM.printf("0000AA"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 337 | pc.printf("31"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 338 | GSM.printf("31"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 339 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 340 | for (ioct=0;ioct<=((LENOUToct*7)/8);ioct++) |
procesadores_FAC | 0:b2a6aa7c0c8c | 341 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 342 | pc.printf("%02X",DSoct[ioct]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 343 | GSM.printf("%02X",DSoct[ioct]); |
procesadores_FAC | 0:b2a6aa7c0c8c | 344 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 345 | wait(0.5); |
procesadores_FAC | 0:b2a6aa7c0c8c | 346 | GSM.putc((char)0x1A); |
procesadores_FAC | 0:b2a6aa7c0c8c | 347 | GSM.scanf("%s",buf); |
procesadores_FAC | 0:b2a6aa7c0c8c | 348 | GSM.scanf("%s",buf); |
procesadores_FAC | 0:b2a6aa7c0c8c | 349 | GSM.scanf("%s",buf); |
procesadores_FAC | 0:b2a6aa7c0c8c | 350 | //GSM.scanf("%s",buf); |
procesadores_FAC | 0:b2a6aa7c0c8c | 351 | pc.printf(">%s\n",buf); |
procesadores_FAC | 0:b2a6aa7c0c8c | 352 | pc.printf("\n"); |
procesadores_FAC | 0:b2a6aa7c0c8c | 353 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 354 | } // if |
procesadores_FAC | 0:b2a6aa7c0c8c | 355 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 356 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 357 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 358 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 359 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 360 | if(DS[0]-79==0 && DS[1]-102==0) // Off en octetos es 4F6666 |
procesadores_FAC | 0:b2a6aa7c0c8c | 361 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 362 | LedAzul=1; //apaga con Lgeverde |
procesadores_FAC | 0:b2a6aa7c0c8c | 363 | LedVerde = 0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 364 | LedRojo=1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 365 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 366 | |
procesadores_FAC | 0:b2a6aa7c0c8c | 367 | if(DS[0]-71==0 && DS[1]-110==0) // On en octetos es 476E |
procesadores_FAC | 0:b2a6aa7c0c8c | 368 | { |
procesadores_FAC | 0:b2a6aa7c0c8c | 369 | LedAzul=1; //apaga con Lgeverde |
procesadores_FAC | 0:b2a6aa7c0c8c | 370 | LedRojo =0; |
procesadores_FAC | 0:b2a6aa7c0c8c | 371 | LedVerde = 1; |
procesadores_FAC | 0:b2a6aa7c0c8c | 372 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 373 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 374 | } |
procesadores_FAC | 0:b2a6aa7c0c8c | 375 | } |