Sensor de temperatura y humedad (DHT22)

Dependencies:   mbed RGBLed TextLCD Keypad

Committer:
MayraPeA
Date:
Fri May 31 00:38:55 2019 +0000
Revision:
2:bfdeba134cab
Parent:
1:6d44a2138e64
Sensor de temperatura y humedad

Who changed what in which revision?

UserRevisionLine numberNew contents of line
MayraPeA 1:6d44a2138e64 1 /** ###################################################################
MayraPeA 1:6d44a2138e64 2 ** Filename : main.cpp
MayraPeA 1:6d44a2138e64 3 ** Project : FRDM-KL46Z_HUMTEMPSENSOR
MayraPeA 1:6d44a2138e64 4 ** Component : DHT22
MayraPeA 1:6d44a2138e64 5 ** Tool : Mbed Compiler
MayraPeA 1:6d44a2138e64 6 ** Compiler : GNU C Compiler
MayraPeA 1:6d44a2138e64 7 ** Abstract :El programa esta diseñado para que atraves de una interfaz LCD
MayraPeA 1:6d44a2138e64 8 ** el usuario decida en que escala leer la temperatura, ademas de que
MayraPeA 1:6d44a2138e64 9 ** a traves de un LED RGB observar en que nivel de temperatura se
MayraPeA 1:6d44a2138e64 10 ** encuentra, Rojo:temp>32°C, naranja:27°C-31°C, verde: 20°C-26°C,cian:14°C-19°C
MayraPeA 1:6d44a2138e64 11 ** morado:9°C-13°C y azul temp< 8°C
MayraPeA 1:6d44a2138e64 12 ** La temepratura, humedad y punto de rocio se retornan en valores enteros.
MayraPeA 1:6d44a2138e64 13 **
MayraPeA 1:6d44a2138e64 14 ** Author(s) : Mayra Pérez Almazán
MayraPeA 1:6d44a2138e64 15 **
MayraPeA 1:6d44a2138e64 16 ** ###################################################################*//*
MayraPeA 1:6d44a2138e64 17 */
davidnicholai 0:214ec6f2cde1 18
MayraPeA 1:6d44a2138e64 19 /*
MayraPeA 1:6d44a2138e64 20 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MayraPeA 1:6d44a2138e64 21 : Includes
MayraPeA 1:6d44a2138e64 22 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
MayraPeA 1:6d44a2138e64 23 */
davidnicholai 0:214ec6f2cde1 24 #include "mbed.h"
davidnicholai 0:214ec6f2cde1 25 #include "DHT22.h"
MayraPeA 1:6d44a2138e64 26 #include "TextLCD.h"
MayraPeA 1:6d44a2138e64 27 #include "Keypad.h"
MayraPeA 1:6d44a2138e64 28 #include "RGBLed.h"
MayraPeA 1:6d44a2138e64 29 /*
MayraPeA 1:6d44a2138e64 30 :..
MayraPeA 1:6d44a2138e64 31 : Definiciones
MayraPeA 1:6d44a2138e64 32 :...............................................................................
MayraPeA 1:6d44a2138e64 33 */
MayraPeA 1:6d44a2138e64 34 #define on 1
MayraPeA 1:6d44a2138e64 35 #define off 0
MayraPeA 1:6d44a2138e64 36 /*
MayraPeA 1:6d44a2138e64 37 +--------------------------------------
MayraPeA 1:6d44a2138e64 38 | Configuración de Puertos
MayraPeA 1:6d44a2138e64 39 +-------------------------------------------------------------------------------
MayraPeA 1:6d44a2138e64 40 */
MayraPeA 1:6d44a2138e64 41 TextLCD lcd(PTD3,PTD2,PTD4,PTD6,PTD7,PTD5, TextLCD::LCD20x4); // RS RW E D4 D5 D6 D7 - conexión de la LCD 20X4
MayraPeA 1:6d44a2138e64 42 Keypad kpad(PTA17,PTA16,PTA15,PTA14,PTC8,PTC9,PTC10,PTC11); // COL 1 COL 2 COL3 COL 4 ROW 1 ROW 2 ROW 3 ROW 4 -terminales del teclado 4x4
MayraPeA 1:6d44a2138e64 43 DHT22 dht22(PTA13); //Incializa puerto del sensor
MayraPeA 1:6d44a2138e64 44 RGBLed myRGBled(PTA2,PTA1,PTA12); //Incializa puertos PWM del LED RGB
MayraPeA 1:6d44a2138e64 45 PwmOut Buzz(PTE31); //Incializa el PWM del buzzer
MayraPeA 1:6d44a2138e64 46
MayraPeA 1:6d44a2138e64 47 /*
MayraPeA 1:6d44a2138e64 48 +--------------------------------------
MayraPeA 1:6d44a2138e64 49 | Variables Globales de Usuario
MayraPeA 1:6d44a2138e64 50 +-------------------------------------------------------------------------------
MayraPeA 1:6d44a2138e64 51 */
MayraPeA 1:6d44a2138e64 52 int hum=0,temp=0,faren=0,kelvin=0,rocio=0;
MayraPeA 1:6d44a2138e64 53 //Buzz=on;
MayraPeA 1:6d44a2138e64 54
MayraPeA 1:6d44a2138e64 55 char key;
MayraPeA 1:6d44a2138e64 56 int released = 1;
MayraPeA 1:6d44a2138e64 57 int i=0;
MayraPeA 1:6d44a2138e64 58 /*
MayraPeA 1:6d44a2138e64 59 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MayraPeA 1:6d44a2138e64 60 | Definición de Funciones Prototipo y Rutinas de los Vectores de Interrupción
MayraPeA 1:6d44a2138e64 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
MayraPeA 1:6d44a2138e64 62 */
MayraPeA 1:6d44a2138e64 63 void leeteclado()
MayraPeA 1:6d44a2138e64 64 {
MayraPeA 1:6d44a2138e64 65 //lcd.cls();
MayraPeA 1:6d44a2138e64 66 key = kpad.ReadKey();
davidnicholai 0:214ec6f2cde1 67
MayraPeA 1:6d44a2138e64 68 if(key == '\0')
MayraPeA 1:6d44a2138e64 69 released = 1;
MayraPeA 1:6d44a2138e64 70 if((key != '\0') && (released == 1)) {
MayraPeA 1:6d44a2138e64 71 Buzz=on;
MayraPeA 1:6d44a2138e64 72 wait_ms(5);
MayraPeA 1:6d44a2138e64 73 Buzz=off;
MayraPeA 1:6d44a2138e64 74 lcd.printf("%c\n", key);
MayraPeA 1:6d44a2138e64 75 released = 0;
davidnicholai 0:214ec6f2cde1 76 }
davidnicholai 0:214ec6f2cde1 77 }
MayraPeA 1:6d44a2138e64 78
MayraPeA 1:6d44a2138e64 79 void enciendeRGB()
MayraPeA 1:6d44a2138e64 80 {
MayraPeA 1:6d44a2138e64 81 if(temp>=32)
MayraPeA 1:6d44a2138e64 82 {
MayraPeA 1:6d44a2138e64 83 myRGBled.write(0.0,1.0,0.0); //rojo temp>32°C
MayraPeA 1:6d44a2138e64 84 }
MayraPeA 1:6d44a2138e64 85 else if((temp>=27) && (temp<=31))
MayraPeA 1:6d44a2138e64 86 {
MayraPeA 1:6d44a2138e64 87 myRGBled.write(0.2,1.0,0.0); //ambar/amarillo rojizo temp
MayraPeA 1:6d44a2138e64 88 }
MayraPeA 1:6d44a2138e64 89 else if((temp>=20) && (temp<=26))
MayraPeA 1:6d44a2138e64 90 {
MayraPeA 1:6d44a2138e64 91 myRGBled.write(1.0,0.0,0.0); //verde
MayraPeA 1:6d44a2138e64 92 }
MayraPeA 1:6d44a2138e64 93 else if((temp>=14) && (temp<=19))
MayraPeA 1:6d44a2138e64 94 {
MayraPeA 1:6d44a2138e64 95 myRGBled.write(0.2,0.0,1.0); //cian
MayraPeA 1:6d44a2138e64 96 }
MayraPeA 1:6d44a2138e64 97 else if((temp>=9) &&( temp<=13))
MayraPeA 1:6d44a2138e64 98 {
MayraPeA 1:6d44a2138e64 99
MayraPeA 1:6d44a2138e64 100 myRGBled.write(0.0,0.2,1.0); //morado
MayraPeA 1:6d44a2138e64 101 }
MayraPeA 1:6d44a2138e64 102 else if(temp<=8)
MayraPeA 1:6d44a2138e64 103 {
MayraPeA 1:6d44a2138e64 104 myRGBled.write(0.0,0.0,1.0); //azul
MayraPeA 1:6d44a2138e64 105 }
MayraPeA 1:6d44a2138e64 106
MayraPeA 1:6d44a2138e64 107 }
MayraPeA 1:6d44a2138e64 108 /*
MayraPeA 1:6d44a2138e64 109 #===============================================================================
MayraPeA 1:6d44a2138e64 110 |
MayraPeA 1:6d44a2138e64 111 | P R O G R A M A P R I N C I P A L
MayraPeA 1:6d44a2138e64 112 |
MayraPeA 1:6d44a2138e64 113 #===============================================================================
MayraPeA 1:6d44a2138e64 114 */
MayraPeA 1:6d44a2138e64 115
MayraPeA 1:6d44a2138e64 116 int main()
MayraPeA 1:6d44a2138e64 117 {
MayraPeA 1:6d44a2138e64 118
MayraPeA 1:6d44a2138e64 119
MayraPeA 1:6d44a2138e64 120 Buzz=off;
MayraPeA 1:6d44a2138e64 121 lcd.printf("Eliga escala de temp");
MayraPeA 1:6d44a2138e64 122 lcd.locate(1,1);
MayraPeA 1:6d44a2138e64 123 lcd.printf("1- Celsius");
MayraPeA 1:6d44a2138e64 124 lcd.locate(1,2);
MayraPeA 1:6d44a2138e64 125 lcd.printf("2- Farenheit");
MayraPeA 1:6d44a2138e64 126 lcd.locate(1,3);
MayraPeA 1:6d44a2138e64 127 lcd.printf("3- Kelvin");
MayraPeA 1:6d44a2138e64 128 wait(3);
MayraPeA 1:6d44a2138e64 129 lcd.cls();
MayraPeA 1:6d44a2138e64 130 lcd.printf("Ingrese su opcion");
MayraPeA 1:6d44a2138e64 131 lcd.printf(" ");
MayraPeA 1:6d44a2138e64 132 dht22.inicio() ;
MayraPeA 1:6d44a2138e64 133 hum=dht22.leeHumedad()/10;
MayraPeA 1:6d44a2138e64 134 temp=dht22.leeTemperatura()/10;
MayraPeA 1:6d44a2138e64 135 faren=dht22.convertirCelsiusaFarenheit();
MayraPeA 1:6d44a2138e64 136 kelvin=dht22.convertirCelsiusaKelvin();
MayraPeA 1:6d44a2138e64 137 rocio=dht22.calculaPuntodeRocio();
MayraPeA 1:6d44a2138e64 138
MayraPeA 1:6d44a2138e64 139
MayraPeA 1:6d44a2138e64 140 while(i!=2)
MayraPeA 1:6d44a2138e64 141 {
MayraPeA 1:6d44a2138e64 142
MayraPeA 1:6d44a2138e64 143 leeteclado();
MayraPeA 1:6d44a2138e64 144 //enciendeRGB();
MayraPeA 1:6d44a2138e64 145
MayraPeA 1:6d44a2138e64 146 if(key=='1')
MayraPeA 1:6d44a2138e64 147 {
MayraPeA 1:6d44a2138e64 148 lcd.cls();
MayraPeA 1:6d44a2138e64 149 lcd.locate(1,0);
MayraPeA 1:6d44a2138e64 150 lcd.printf("Temperatura: %i C",temp);
MayraPeA 1:6d44a2138e64 151 lcd.locate(1,1);
MayraPeA 1:6d44a2138e64 152 lcd.printf("Humedad: %i ",hum);
MayraPeA 1:6d44a2138e64 153 lcd.locate(1,2);
MayraPeA 1:6d44a2138e64 154 lcd.printf("P. de rocio: %i ",rocio);
MayraPeA 1:6d44a2138e64 155 enciendeRGB();
MayraPeA 1:6d44a2138e64 156 i=2;
MayraPeA 1:6d44a2138e64 157 }
MayraPeA 1:6d44a2138e64 158 else if(key=='2')
MayraPeA 1:6d44a2138e64 159 {
MayraPeA 1:6d44a2138e64 160 lcd.cls();
MayraPeA 1:6d44a2138e64 161 lcd.locate(1,0);
MayraPeA 1:6d44a2138e64 162 lcd.printf("Temperatura: %i F",faren);
MayraPeA 1:6d44a2138e64 163 lcd.locate(1,1);
MayraPeA 1:6d44a2138e64 164 lcd.printf("Humedad: %i",hum);
MayraPeA 1:6d44a2138e64 165 lcd.locate(1,2);
MayraPeA 1:6d44a2138e64 166 lcd.printf("P. de rocio: %i C",rocio);
MayraPeA 1:6d44a2138e64 167 enciendeRGB();
MayraPeA 1:6d44a2138e64 168 i=2;
MayraPeA 1:6d44a2138e64 169 }
MayraPeA 1:6d44a2138e64 170 else if(key=='3')
MayraPeA 1:6d44a2138e64 171 {
MayraPeA 1:6d44a2138e64 172 lcd.cls();
MayraPeA 1:6d44a2138e64 173 lcd.locate(1,0);
MayraPeA 1:6d44a2138e64 174 //temp=dht22.leeTemperatura()/10;
MayraPeA 1:6d44a2138e64 175 lcd.printf("Temperatura: %i K",kelvin);
MayraPeA 1:6d44a2138e64 176 lcd.locate(1,1);
MayraPeA 1:6d44a2138e64 177 lcd.printf("Humedad: %i",hum);
MayraPeA 1:6d44a2138e64 178 lcd.locate(1,2);
MayraPeA 1:6d44a2138e64 179 lcd.printf("P. de rocio: %i C",rocio);
MayraPeA 1:6d44a2138e64 180 enciendeRGB();
MayraPeA 1:6d44a2138e64 181 i=2;
MayraPeA 1:6d44a2138e64 182 }
MayraPeA 1:6d44a2138e64 183 else if(key=='4' )
MayraPeA 1:6d44a2138e64 184 {
MayraPeA 1:6d44a2138e64 185 lcd.cls();
MayraPeA 1:6d44a2138e64 186 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 187 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 188 wait(1);
MayraPeA 1:6d44a2138e64 189 lcd.cls();
MayraPeA 1:6d44a2138e64 190 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 191 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 192 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 193 }
MayraPeA 1:6d44a2138e64 194 else if(key=='5')
MayraPeA 1:6d44a2138e64 195 {
MayraPeA 1:6d44a2138e64 196 lcd.cls();
MayraPeA 1:6d44a2138e64 197 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 198 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 199 wait(1);
MayraPeA 1:6d44a2138e64 200 lcd.cls();
MayraPeA 1:6d44a2138e64 201 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 202 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 203 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 204 }
MayraPeA 1:6d44a2138e64 205 else if(key=='6')
MayraPeA 1:6d44a2138e64 206 {
MayraPeA 1:6d44a2138e64 207 lcd.cls();
MayraPeA 1:6d44a2138e64 208 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 209 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 210 wait(1);
MayraPeA 1:6d44a2138e64 211 lcd.cls();
MayraPeA 1:6d44a2138e64 212 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 213 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 214 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 215 }
MayraPeA 1:6d44a2138e64 216 else if(key=='7')
MayraPeA 1:6d44a2138e64 217 {
MayraPeA 1:6d44a2138e64 218 lcd.cls();
MayraPeA 1:6d44a2138e64 219 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 220 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 221 wait(1);
MayraPeA 1:6d44a2138e64 222 lcd.cls();
MayraPeA 1:6d44a2138e64 223 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 224 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 225 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 226 }
MayraPeA 1:6d44a2138e64 227 else if(key=='8')
MayraPeA 1:6d44a2138e64 228 {
MayraPeA 1:6d44a2138e64 229 lcd.cls();
MayraPeA 1:6d44a2138e64 230 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 231 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 232 wait(1);
MayraPeA 1:6d44a2138e64 233 lcd.cls();
MayraPeA 1:6d44a2138e64 234 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 235 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 236 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 237 }
MayraPeA 1:6d44a2138e64 238 else if(key=='9')
MayraPeA 1:6d44a2138e64 239 {
MayraPeA 1:6d44a2138e64 240 lcd.cls();
MayraPeA 1:6d44a2138e64 241 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 242 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 243 wait(1);
MayraPeA 1:6d44a2138e64 244 lcd.cls();
MayraPeA 1:6d44a2138e64 245 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 246 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 247 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 248 }
MayraPeA 1:6d44a2138e64 249 else if(key=='0')
MayraPeA 1:6d44a2138e64 250 {
MayraPeA 1:6d44a2138e64 251 lcd.cls();
MayraPeA 1:6d44a2138e64 252 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 253 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 254 wait(1);
MayraPeA 1:6d44a2138e64 255 lcd.cls();
MayraPeA 1:6d44a2138e64 256 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 257 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 258 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 259 }
MayraPeA 1:6d44a2138e64 260 else if(key=='A')
MayraPeA 1:6d44a2138e64 261 {
MayraPeA 1:6d44a2138e64 262 lcd.cls();
MayraPeA 1:6d44a2138e64 263 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 264 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 265 wait(1);
MayraPeA 1:6d44a2138e64 266 lcd.cls();
MayraPeA 1:6d44a2138e64 267 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 268 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 269 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 270 }
MayraPeA 1:6d44a2138e64 271 else if(key=='B')
MayraPeA 1:6d44a2138e64 272 {
MayraPeA 1:6d44a2138e64 273 lcd.cls();
MayraPeA 1:6d44a2138e64 274 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 275 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 276 wait(1);
MayraPeA 1:6d44a2138e64 277 lcd.cls();
MayraPeA 1:6d44a2138e64 278 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 279 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 280 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 281 }
MayraPeA 1:6d44a2138e64 282 else if(key=='C')
MayraPeA 1:6d44a2138e64 283 {
MayraPeA 1:6d44a2138e64 284 lcd.cls();
MayraPeA 1:6d44a2138e64 285 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 286 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 287 wait(1);
MayraPeA 1:6d44a2138e64 288 lcd.cls();
MayraPeA 1:6d44a2138e64 289 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 290 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 291 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 292 }
MayraPeA 1:6d44a2138e64 293 else if(key=='D')
MayraPeA 1:6d44a2138e64 294 {
MayraPeA 1:6d44a2138e64 295 lcd.cls();
MayraPeA 1:6d44a2138e64 296 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 297 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 298 wait(1);
MayraPeA 1:6d44a2138e64 299 lcd.cls();
MayraPeA 1:6d44a2138e64 300 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 301 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 302 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 303 }
MayraPeA 1:6d44a2138e64 304 else if(key=='#')
MayraPeA 1:6d44a2138e64 305 {
MayraPeA 1:6d44a2138e64 306 lcd.cls();
MayraPeA 1:6d44a2138e64 307 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 308 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 309 wait(1);
MayraPeA 1:6d44a2138e64 310 lcd.cls();
MayraPeA 1:6d44a2138e64 311 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 312 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 313 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 314 }
MayraPeA 1:6d44a2138e64 315 else if(key=='*')
MayraPeA 1:6d44a2138e64 316 {
MayraPeA 1:6d44a2138e64 317 lcd.cls();
MayraPeA 1:6d44a2138e64 318 lcd.locate(5,1);
MayraPeA 1:6d44a2138e64 319 lcd.printf("ERROR");
MayraPeA 1:6d44a2138e64 320 wait(1);
MayraPeA 1:6d44a2138e64 321 lcd.cls();
MayraPeA 1:6d44a2138e64 322 lcd.printf("Igrese de nuevo su");
MayraPeA 1:6d44a2138e64 323 lcd.locate(0,1);
MayraPeA 1:6d44a2138e64 324 lcd.printf("opcion ");
MayraPeA 1:6d44a2138e64 325 }
MayraPeA 1:6d44a2138e64 326 }
MayraPeA 1:6d44a2138e64 327
MayraPeA 1:6d44a2138e64 328
MayraPeA 1:6d44a2138e64 329
MayraPeA 1:6d44a2138e64 330 } //FIN DEL PROGRAMA
MayraPeA 1:6d44a2138e64 331
MayraPeA 1:6d44a2138e64 332