1 // Copyright (c) 2017, Tobias Mueller tm(at)tm3d.de
\r
2 // All rights reserved.
\r
4 // Redistribution and use in source and binary forms, with or without
\r
5 // modification, are permitted provided that the following conditions are
\r
8 // * Redistributions of source code must retain the above copyright
\r
9 // notice, this list of conditions and the following disclaimer.
\r
10 // * Redistributions in binary form must reproduce the above copyright
\r
11 // notice, this list of conditions and the following disclaimer in the
\r
12 // documentation and/or other materials provided with the
\r
14 // * All advertising materials mentioning features or use of this
\r
15 // software must display the following acknowledgement: This product
\r
16 // includes software developed by tm3d.de and its contributors.
\r
17 // * Neither the name of tm3d.de nor the names of its contributors may
\r
18 // be used to endorse or promote products derived from this software
\r
19 // without specific prior written permission.
\r
21 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
\r
22 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
\r
23 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
\r
24 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
\r
25 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
\r
26 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
\r
27 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
\r
28 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
\r
29 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
\r
30 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
\r
31 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
\r
33 //!!!!!Max Program size 7551 Byte
\r
35 #define F_CPU 8000000UL
\r
37 #include <avr/interrupt.h>
\r
38 #include <util/delay.h>
\r
39 #include <avr/wdt.h>
\r
40 #include <avr/sleep.h>
\r
41 #include <avr/pgmspace.h>
\r
42 #include "../common/I2C/TWI_Master.h"
\r
43 #include "../common/I2C/SHT2xV2.h"
\r
44 #include "../common/I2C/MAX44009.h"
\r
45 #include "../common/owSlave_tools.h"
\r
51 volatile uint8_t owid1[8]={0x26, 0xA2, 0xD9, 0x84, 0x00, 0x16, 0x05, 0x50};/**/
\r
52 volatile uint8_t owid2[8]={0x26, 0xA3, 0xD9, 0x84, 0x00, 0x16, 0x05, 0x67};/**/
\r
54 volatile uint8_t config_info1[26]={3,28, 0x05,0x08, 8,27, 0x00,0x00, 0x02,17,0x00,0x00,0x00,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
\r
55 volatile uint8_t config_info2[26]={0x01,0x06, 0x05,0x08, 0x04,0x07, 11,0x08, 0x02,0x07,0x00,0x07,17,0x00,0x00,0x00, 0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00};
\r
58 #error "Variable not correct"
\r
61 extern uint8_t cpsp2;
\r
69 volatile uint8_t bytes[8];
\r
80 volatile pack1_t pack1;
\r
85 #if defined(__AVR_ATtiny25__)
\r
93 uint16_t voltage; //4
\r
94 int16_t current; //6
\r
95 uint8_t threshold; //8
\r
97 uint8_t page1[8]; //9
\r
98 #if defined(__AVR_ATtiny25__)
\r
100 uint8_t page2[8]; //17
\r
102 uint8_t page3[8]; //25
\r
113 uint8_t page4[8]; //33
\r
117 uint16_t r_day_max;
\r
118 uint16_t r_week_max;
\r
122 uint8_t page5[8]; //41
\r
124 uint8_t codeVOC; // immer 0x37 nach Neustart
\r
125 uint8_t days_of_r0; //Anzahl der Tage fuer die r0 ermittelt wird
\r
126 int8_t corr_VOC_mult; //r0 corr
\r
127 int8_t corr_VOC_div;
\r
129 uint8_t time_corr; //Wiregate;
\r
130 uint8_t reset_code;
\r
132 uint16_t page5d[4];
\r
134 uint8_t page6[8]; //49
\r
135 uint8_t page7[8]; //57
\r
140 volatile pack2_t pack2,pack1;
\r
145 volatile int16_t DS2438_2_TEMP;
\r
146 volatile uint16_t DS2438_2_VAD;
\r
147 volatile uint16_t DS2438_2_VDD=0x01F4;
\r
148 volatile int16_t DS2438_1_TEMP;
\r
149 volatile uint16_t DS2438_1_VAD;
\r
150 volatile uint16_t DS2438_1_VDD=0x01F4;
\r
155 double temperatureC,humidityRH,hhum;
\r
159 uint16_t weekmaxarr[33];
\r
161 //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte
\r
162 inline double interp(double t, double h) {
\r
167 return 4.76111e-9*h2*t2-3.96956e-7*h2*t+0.0000408889*h2-1.07132e-6*h*t2+0.000115968*h*t-0.0101333*h+0.000163806*t2-0.0241179*t+1.80591;
\r
169 inline double calibr_hum05(double t,double hum) {
\r
170 double y=-0.0006*t*t-0.2455*t-28.5902;
\r
171 return -(hum/y)+hum;
\r
173 inline double calibr_hum075(double t,double hum) {
\r
174 double y=-0.0004*t*t-0.1636*t-18.9173;
\r
175 return -(hum/y)+hum;
\r
177 inline double calibr_hum1(double t,double hum) {
\r
178 double y=-0.0003*t*t-0.1228*t-14.0808;
\r
179 return -(hum/y)+hum;
\r
184 uint8_t startup=10;
\r
191 #define EEPROM_R0 0
\r
192 #define EEPROM_R0d 2
\r
193 #define EEPROM_R0w 4
\r
194 #define EEPROM_dol 6
\r
195 #define EEPROM_CODE_DAYOFR0 8
\r
196 #define EEPROM_CORR 10
\r
197 #define EEPROM_FREE 12
\r
198 #define EEPROM_TCORR_RESET 14
\r
200 uint16_t readEEPROM(uint8_t addr,uint16_t def) {
\r
202 while(EECR & (1<<EEPE));
\r
208 while(EECR & (1<<EEPE));
\r
217 void writeEEPROM(uint8_t addr,uint16_t val) {
\r
218 while(EECR & (1<<EEPE));
\r
219 EECR = (0<<EEPM1)|(0<<EEPM0);
\r
222 EECR |= (1<<EEMPE);
\r
224 while(EECR & (1<<EEPE));
\r
225 EECR = (0<<EEPM1)|(0<<EEPM0);
\r
228 EECR |= (1<<EEMPE);
\r
233 PORTA=0xFF-(1<<PINA1);
\r
234 PORTB=0xFF-(1<<PORTB0); //Schalter kann gegen Masse sein und zieht dann immer Strom
\r
235 DDRB|=(1<<PORTB0); //Als Ausgang und 0
\r
237 DDRB|=(1<<PINB1);//Ausgang und 1
\r
240 WDTCSR |= ((1<<WDCE) ); // Enable the WD Change Bit//| (1<<WDE)
\r
241 WDTCSR |= (1<<WDIE) | // Enable WDT Interrupt
\r
242 //(1<<WDP0) |(1<<WDP2) | (1<<WDP1); // Set Timeout to ~2 seconds
\r
243 (1<<WDP3) | (1<<WDP0); // Set Timeout to ~8 seconds
\r
247 //ADMUX=0b00001110; //ADC1 + ADC3 -
\r
248 ADMUX=0x01 ; //PA3 single and 3V
\r
250 //ADCSRA = (1<<ADEN)|(1<<ADPS2)|(1<<ADPS1)|(1<<ADPS0);//|
\r
254 pack2.page3[0]=0xF1;
\r
256 pack2.R0=readEEPROM(EEPROM_R0,1);
\r
259 pack2.r_day_max=readEEPROM(EEPROM_R0d,1);
\r
260 pack2.r_week_max=readEEPROM(EEPROM_R0w,1);
\r
261 pack2.tol_d=readEEPROM(EEPROM_dol,0);
\r
262 pack2.tol_s8=0; //Tag faengt mit Einschalten an
\r
264 pack2.page5d[0]=readEEPROM(EEPROM_CODE_DAYOFR0,0x0437);
\r
265 pack2.page5d[1]=readEEPROM(EEPROM_CORR,0x0101);
\r
266 pack2.page5d[2]=readEEPROM(EEPROM_FREE,0x0);
\r
267 pack2.page5d[3]=readEEPROM( EEPROM_TCORR_RESET,0x0005);
\r
269 for(uint8_t i=0;i<pack2.days_of_r0;i++) {
\r
270 weekmaxarr[i]=pack2.r_week_max;
\r
273 for(uint8_t i=0;i<8;i++) pack2.page6[i]=owid1[i];
\r
275 config_info2[5]=12;
\r
280 TWI_Master_Initialise();
\r
289 if ((cpsp2&0x80)!=0) {
\r
290 if ((cpsp2&0x0F)==5) {
\r
291 if (pack2.reset_code==0x01) {
\r
294 writeEEPROM(EEPROM_R0,0);
\r
295 } else if (pack2.reset_code==0x05) {
\r
297 pack2.r_week_max=1;
\r
299 pack2.tol_s8=0; //Tag faengt mit Einschalten an
\r
301 writeEEPROM(EEPROM_R0,0xFF);
\r
302 writeEEPROM(EEPROM_R0d,0xFF); //Maximum des Tages
\r
303 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage
\r
304 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage
\r
305 for(uint8_t i=0;i<7;i++) {
\r
309 writeEEPROM(EEPROM_CODE_DAYOFR0,0x0037|(pack2.days_of_r0<<8));
\r
310 writeEEPROM(EEPROM_CORR,pack2.page5d[1]);
\r
311 writeEEPROM(EEPROM_FREE,pack2.page5d[2]);
\r
312 writeEEPROM(EEPROM_TCORR_RESET,pack2.time_corr);
\r
317 if (wdcounter>0) { //8s
\r
319 if (pack2.tol_s8>(10000)) {//10800 ist theortisch der Tag aber meistens zu lang
\r
321 pack2.tol_d++; //rund 180 Jahre :-)
\r
322 pack2.r_week_max=0;
\r
323 weekmaxarr[pack2.days_of_r0]=pack2.r_day_max;
\r
324 for(uint8_t i=0;i<pack2.days_of_r0;i++) {
\r
325 weekmaxarr[i]=weekmaxarr[i+1];
\r
327 if (weekmaxarr[i]>pack2.r_week_max) pack2.r_week_max=weekmaxarr[i];
\r
329 if (pack2.tol_d>7) {
\r
330 pack2.R0=pack2.r_week_max;
\r
332 pack2.R0=pack2.r_day_max;
\r
334 //R0=//R0-0.5*(pack2.R0/100-R0);
\r
335 R0=R0-(R0-pack2.R0/100.0)*0.5 ;
\r
337 writeEEPROM(EEPROM_R0,pack2.R0);
\r
338 writeEEPROM(EEPROM_R0d,pack2.r_day_max); //Maximum des Tages
\r
339 writeEEPROM(EEPROM_R0w,pack2.r_week_max); //Maximum der Letzten 7 Tage
\r
340 writeEEPROM(EEPROM_dol,pack2.tol_d); //Anzahl der Betriebstage
\r
343 if (startup!=0) startup--;
\r
344 getSHT2xHumTemp(&temperatureC,&humidityRH);
\r
345 ip=interp(temperatureC,humidityRH);
\r
347 //double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;
\r
348 //double TC =temperatureC *10.0-2;
\r
349 double RH=calibr_hum075(temperatureC,humidityRH)*10.0;
\r
350 //double RH=humidityRH*10.0;
\r
351 double TC=temperatureC*10.0-7.5;
\r
356 DS2438_2_TEMP=TC*25.6;
\r
357 config_info2[5]=12; //10V = 100%
\r
359 hhum=(1.0546-0.000216*TC)*(RH);
\r
360 DS2438_2_VAD=0.31*hhum +80;
\r
361 DS2438_2_TEMP=TC*25.6;
\r
365 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________
\r
366 PORTB&=~(1<<PINB1); //Auf 0 Ziehen
\r
368 for(uint8_t i=0;i<32;i++) {
\r
370 while ((ADCSRA&(1<<ADSC)));
\r
374 //ENDE Kritische Sektion !______________________________
\r
376 //pack2.VS=mr*3/128; //VS in Volt = VS/256 --> Nur zum Debug .... Speicher reicht sonst nicht....
\r
377 l=mr*3.0/32768.0; //Spannung in v
\r
378 l=( 3/l- 1) *30; //l is resistance
\r
380 la[0]=la[1]=la[2]=la[3]=l; //smaller code
\r
383 //for (uint8_t i=0;i<3;i++) {
\r
391 double lasum=la[0]+la[1]+la[2]+la[3];
\r
394 pack2.current=l*100;
\r
402 writeEEPROM(EEPROM_R0,pack2.R0);
\r
405 if (l*100>pack2.r_day_max) {
\r
406 pack2.r_day_max=l*100;
\r
408 } else if (l<R0) l=R0; //negative Werte am Anfang verhintern
\r
409 //l=exp((1-(l/R0))*6.05)-1;// exp((1-($val)/55)*5.75); (5.75 geht über 125 6.05 geht bis 240... mittlere Linie im Datenblatt)
\r
410 //l=pow(R0/l,1.8)*3-3;
\r
414 l=exp((1-(1/l))*6.05)-1;
\r
415 l=l*(double)pack2.corr_VOC_mult/(double)pack2.corr_VOC_div;
\r
416 l=l*8.0; //fuer DS18B20*/
\r
420 DS2438_1_VDD=(l-DS2438_1_VAD)*1000.0;
\r
422 l=MAX44009getlux(1);
\r
423 if (l<0.030) l=0.030; //Darf nicht 0 sein. minimum -35°C Sensor minimum 0.045
\r