128 1196 355 357 128 1250 987 359 128 1280 357 305 128 1310 359 592 128 1340 305 float sensorWiderstand = 0; float PPM =0 ; float sensorWiderstandAtmo = 0 ; 324 1343 Initialisiere Variablen fuer die Funktionen 288 1313 float widerstandMaximal; 324 1283 Parameter fuer die Kalibrierung 428 1253 1000 360 1223 zeitAbstand 360 1199 128 590 975 984 128 644 978 981 128 698 984 329 11 360 725 pinRot 360 701 10 360 671 pinGruen 360 647 9 360 617 pinBlau 360 593 128 752 981 331 128 782 329 335 128 812 331 333 128 842 335 608 128 872 333 337 128 926 608 339 128 956 337 341 128 986 339 343 128 1016 341 345 128 1046 343 347 128 1076 345 349 128 1106 347 351 128 1136 349 355 128 1166 351 987 Abstand zwischen Messungen nach dem Kalibrieren (in Millisekunden) 428 1169 #define ATMOCO2 397.13 324 1139 CO2-Wert in der Atmosphaere als Basis fr die Kalibrierung 428 1109 #define PARB 2.769034857 324 1079 #define PARA 116.6020682 324 1049 Parameter zur Berechnung des CO2-Wertes in ppm auf Basis des Sensor-Widerstands 428 1019 #define RLAST 1.0 324 989 Lastwiderstand des MQ135 in Ohm 428 959 float durchschnitt = 0; // Durchschnittswert 324 929 0 360 899 messungIndex 360 875 float gesamt = 0; // Summe aller Werte 324 845 int messungen[anzahlMessungen]; // Array zur Berechnung der Durchschnittswerte 324 815 const int anzahlMessungen = 10; // Wie viele Werte zur Berechnung es Durchschnitts genommen werden 324 785 Parameter zur Berechnung der Durchschnittswerte 428 755 128 482 969 975 128 536 972 978 0 360 563 ledRot 360 539 0 360 509 ledGruen 360 485 128 428 317 972 0 360 455 ledBlau 360 431 128 368 315 317 128 398 311 969 Werte und Pins fuer die RGB-LED 428 401 int pin0 = A0; 324 371 128 338 966 311 Verwendeter Pin zum Messen 428 341 128 284 904 315 1200 360 311 schlechteLuft 360 287 128 230 313 966 800 360 257 mittlereLuft 360 233 berechneSensorWiderstand 1171 934 1438 966 569 571 1438 996 573 sensorWiderstand = ((1023. / durchschnitt) -1.) * RLAST; 1564 999 Schreibe den berechneten Widerstand des Sensors in die Variable sensorWiderstand 1598 969 Widerstand des Sensors (in kOhm) berechnen 1441 937 setzeOrange 1170 1390 1347 1422 663 667 1347 1452 665 ledGruen=165; ledRot=255; ledBlau=0; analogWrite(pinGruen, ledGruen); analogWrite(pinRot, ledRot); analogWrite(pinBlau, ledBlau); 1473 1455 lege die Werte fest und gebe diese auf die entsprechenden Pins 1507 1425 Setze die LED auf Orange 1350 1393 berechneDurchschnittlichenSensorWert 1170 24 1521 56 594 598 1521 86 596 600 1521 116 598 604 1521 146 600 602 1521 176 604 611 1521 206 602 630 1521 305 611 632 1521 335 630 durchschnitt = gesamt / anzahlMessungen; 1647 338 Berechne den Durschnitt und schreibe ihn in die Variable Durchschnitt 1681 308 1614 242 611 0 1846 269 messungIndex 1846 245 1617 209 anzahlMessungen 1789 212 messungIndex 1627 212 messungIndex = messungIndex + 1; 1647 179 gesamt = gesamt + messungen[messungIndex]; 1647 149 messungen[messungIndex] = analogRead(pin0); 1647 119 gesamt = gesamt - messungen[messungIndex]; 1647 89 Vorbereitungen m den Durchschnitt zu berechnen 1681 59 Auselesen des Sensors und Bilden des Mittelwertes ber die lezten 10 Messwerte 1524 27 berechnePPM 1170 396 1347 428 575 625 berechneSensorWiderstand 1347 458 623 577 1347 482 625 579 1347 512 577 PPM = PARA * pow((sensorWiderstand / widerstandMaximal), -PARB); 1473 515 Schreibe den berechneten PPM-Wert in die Variable PPM 1507 485 Fuehre zunaechst das Unterprogramm zur Berechnung des Sensor-Widerstands aus 1507 431 CO2-Wert in PPM berechnen. Auf Basis der (sehr ungenauen) Annahme, dass sich nur CO2 in der Luft befindet. 1350 399 kalibriereSensor 1171 568 1382 600 634 638 berechneWiderstandAtmo 1382 630 636 639 1382 654 638 641 1382 684 639 643 1382 714 641 if ((((9999 * widerstandMaximal) + kalibrierungsWiderstand) / 10000) > widerstandMaximal) { widerstandMaximal = (((9999 * widerstandMaximal) + kalibrierungsWiderstand) / 10000); } 1508 717 float kalibrierungsWiderstand = sensorWiderstandAtmo; 1508 687 Kalibrierung (kompliziert) 1542 657 Fuehre zunaechst das Unterprogramm zur Berechnung des atmosphaerischen Widerstandes aus 1542 603 Kalibriere den Sensor langsam (der Sensor muss dazu an frischer Luft sein. Der gemessene Widerstand wird als WIderstand bei atmospaerischem CO2-Gehalt angenommen). 1385 571 berechneWiderstandAtmo 1171 768 1424 800 581 587 berechneSensorWiderstand 1424 830 588 583 1424 854 587 585 1424 884 583 sensorWiderstandAtmo = sensorWiderstand * pow((ATMOCO2 / PARA), (1. / PARB)); 1550 887 Schreibe den berechneten widerstandAtmo-Wert in die Variable widerstandAtmo 1584 857 Fuehre zunaechst das Unterprogramm zur Berechnung des Sensor-Widerstands aus 1584 803 Berechne den Widerstand= des Sonsors (Widerstand bei atmosphaerischer CO2-Konzentration 1427 771 setzeBlau 1171 1053 1334 1085 651 655 1334 1115 653 ledGruen=0; ledRot=0; ledBlau=255; analogWrite(pinGruen, ledGruen); analogWrite(pinRot, ledRot); analogWrite(pinBlau, ledBlau); 1460 1118 lege die Werte fest und gebe diese auf die entsprechenden Pins 1494 1088 Setze die LED auf blau 1337 1056 setzeGruen 1171 1165 1340 1197 645 649 1340 1227 647 ledGruen=255; ledRot=0; ledBlau=0; analogWrite(pinGruen, ledGruen); analogWrite(pinRot, ledRot); analogWrite(pinBlau, ledBlau); 1466 1230 lege die Werte fest und gebe diese auf die entsprechenden Pins 1500 1200 Setze die LED auf gruen 1343 1168 setzeRot 1170 1280 1325 1312 657 661 1325 1342 659 ledGruen=0; ledRot=255; ledBlau=0; analogWrite(pinGruen, ledGruen); analogWrite(pinRot, ledRot); analogWrite(pinBlau, ledBlau); 1451 1345 lege die Werte fest und gebe diese auf die entsprechenden Pins 1485 1315 Setze die LED auf rot 1328 1283 15 192 126 1512 304 681 berechneDurchschnittlichenSensorWert 126 1542 688 691 126 1566 681 682 kalibriereSensor 126 1596 691 693 126 1620 682 683 berechnePPM 126 1650 693 733 126 1674 683 735 126 1704 733 697 126 1734 735 699 126 1764 697 260 1836 699 728 260 2079 704 726 260 2109 728 zeitAbstand 502 2112 Ist der CO2-Gehalt hoeher als in der Atmosphre (also, wenn die Kalibrierung abgeschlossen ist), dann warte zwischen den Messungen 1 sec. 420 2082 394 1936 704 setzeRot 528 2036 716 setzeOrange 529 2000 716 532 1939 586 1967 schlechteLuft 689 1970 PPM 596 1970 586 1939 mittlereLuft 696 1942 PPM 596 1942 setzeGruen 395 1900 704 398 1839 452 1867 mittlereLuft 555 1870 PPM 462 1870 452 1839 ATMOCO2 562 1842 PPM 462 1842 setzeBlau 261 1800 699 264 1767 ATMOCO2 367 1770 PPM 274 1770 Setzen der LED-Farbe, je nach CO2 Konzentration 286 1737 Serial.println(PPM); 252 1707 Sende den PPM-Wert ueber die serielle Schnittstelle 286 1677 die (ungenaue) CO2-Konzentration wird berechnet 286 1623 Der Sensor wird nur kalibriert, wenn der Widerstandswert unter den der atmosphrischen CO2-Konzentration faellt 286 1569 Zunchst wird der durchschnittliche Sensorwert abgefragt 286 1515 127 1381 304 673 127 1411 671 675 127 1441 673 679 127 1471 675 9600 265 1474 Serielle Schnittstelle initialisieren 287 1444 for (int dieseMessung = 0; dieseMessung < anzahlMessungen; dieseMessung++) { messungen[dieseMessung] = 0; } 253 1414 Array zur Berechnung der Durchschnittswerte mit nullen befllen 287 1384 128 200 304 904 Grenzwerte 428 203 13 9 0.1 199 156 15.01.2021 199 132 Messung der Gte der Raumluft und Ausgabe ber eine RGB-LED 199 60 Samuel Greiner 199 36 Raumluft-Ampel 199 12