DS2438_MAX44009_VOC_DS2438_HDC_direct/DS2438_DS2438.c

   1 // Copyright (c) 2017, Tobias Mueller tm(at)tm3d.de\r
   2 // All rights reserved.\r
   3 //\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
   6 // met:\r
   7 //\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
  13 //    distribution.\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
  20 //\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
  32 \r
  33 //!!!!!Max Program size 7551 Byte\r
  34 //#define __4MHZ__\r
  35 #define F_CPU 8000000UL\r
  36 #include <avr/io.h>\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/HDC2010.h"\r
  44 #include "../common/I2C/MAX44009.h"\r
  45 #include "../common/owSlave_tools.h"\r
  46 \r
  47 OWST_EXTERN_VARS\r
  48 \r
  49 \r
  50 \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
  53                                         //18\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
  56 \r
  57 #if (owid>128)\r
  58 #error "Variable not correct"\r
  59 #endif\r
  60 \r
  61 extern uint8_t cpsp2;\r
  62 \r
  63 OWST_WDT_ISR\r
  64 \r
  65 /*\r
  66 \r
  67 \r
  68         typedef union {\r
  69                 volatile uint8_t bytes[8];\r
  70                 struct {\r
  71                         uint16_t temp;  //0\r
  72                         uint8_t TH;  //2\r
  73                         uint8_t TL;  //3\r
  74                         uint8_t config;  //4\r
  75                         uint8_t rrFF; //5\r
  76                         uint8_t rr00; //6\r
  77                         uint8_t rr10; //7\r
  78                 };\r
  79         } pack1_t;\r
  80         volatile pack1_t pack1;\r
  81 */\r
  82 \r
  83 \r
  84         typedef union {\r
  85                 #if  defined(__AVR_ATtiny25__)\r
  86                 uint8_t bytes[16];\r
  87                 #else\r
  88                 uint8_t bytes[64];\r
  89                 #endif\r
  90                 struct {\r
  91                         uint8_t status;  //1\r
  92                         int16_t temp;  //2\r
  93                         uint16_t voltage;  //4\r
  94                         int16_t current;  //6\r
  95                         uint8_t threshold; //8\r
  96                         \r
  97                         uint8_t page1[8]; //9\r
  98                         #if  defined(__AVR_ATtiny25__)\r
  99                         #else\r
 100                         uint8_t page2[8]; //17\r
 101                         union{\r
 102                                 uint8_t page3[8]; //25\r
 103                                 struct {\r
 104                                         uint8_t free;\r
 105                                         uint16_t R0;\r
 106                                         uint16_t VS;\r
 107                                         uint8_t cmode;\r
 108                                         int16_t ip;\r
 109                                         \r
 110                                 };\r
 111                         };\r
 112                         union{\r
 113                                 uint8_t page4[8];  //33\r
 114                                 struct {\r
 115                                         uint16_t tol_s8;\r
 116                                         uint16_t tol_d;\r
 117                                         uint16_t r_day_max;\r
 118                                         uint16_t r_week_max;\r
 119                                 };\r
 120                         };\r
 121                         union{\r
 122                                 uint8_t page5[8];  //41\r
 123                                 struct {\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
 128                                         uint16_t vv3;\r
 129                                         uint8_t time_corr; //Wiregate;\r
 130                                         uint8_t reset_code;\r
 131                                 };\r
 132                                 uint16_t page5d[4];\r
 133                         };\r
 134                         uint8_t page6[8];  //49\r
 135                         uint8_t page7[8];  //57\r
 136                         \r
 137                         #endif\r
 138                 };\r
 139         } pack2_t;\r
 140         volatile pack2_t pack2,pack1;\r
 141 \r
 142 \r
 143 \r
 144 \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
 151 \r
 152         OWST_TESTSW\r
 153 \r
 154 \r
 155         double temperatureC,humidityRH,hhum;\r
 156         double l;\r
 157 \r
 158 \r
 159         uint16_t weekmaxarr[33];\r
 160 \r
 161         //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte\r
 162         inline double interp(double t, double h) {\r
 163                 double h2;\r
 164                 double t2;\r
 165                 h2=h*h;\r
 166                 t2=t*t;\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
 168         }\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
 172         }\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
 176         }\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
 180         }\r
 181 \r
 182         double R0;\r
 183         uint16_t mr;\r
 184         uint8_t startup=10;\r
 185         double ip;\r
 186         double la[4];\r
 187         uint8_t lainit=1;\r
 188 \r
 189 \r
 190         \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
 199 \r
 200         uint16_t readEEPROM(uint8_t addr,uint16_t def) {\r
 201                 uint16_t hr;\r
 202                 while(EECR & (1<<EEPE));\r
 203                 EEARL=addr+1;\r
 204                 EECR |= (1<<EERE);\r
 205                 hr=EEDR;\r
 206                 if (hr!=0xFF) {\r
 207                         hr=hr<<8;\r
 208                         while(EECR & (1<<EEPE));\r
 209                         EEARL=addr;\r
 210                         EECR |= (1<<EERE);\r
 211                         hr|=EEDR;\r
 212                         return hr;\r
 213                 }\r
 214                 return def;\r
 215         }\r
 216 \r
 217         void writeEEPROM(uint8_t addr,uint16_t val) {\r
 218                 while(EECR & (1<<EEPE));\r
 219                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
 220                 EEARL = addr;\r
 221                 EEDR = val&0xFF;\r
 222                 EECR |= (1<<EEMPE);\r
 223                 EECR |= (1<<EEPE);\r
 224                 while(EECR & (1<<EEPE));\r
 225                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
 226                 EEARL = addr+1;\r
 227                 EEDR = val>>8;\r
 228                 EECR |= (1<<EEMPE);\r
 229                 EECR |= (1<<EEPE);\r
 230         }\r
 231 \r
 232         int main(void){\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
 236                 OWINIT();\r
 237                 DDRB|=(1<<PINB1);//Ausgang und 1\r
 238                 DDRA|=(1<<PINA0);\r
 239                 \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
 244 \r
 245                 MCUSR=0;\r
 246 \r
 247                 //ADMUX=0b00001110; //ADC1 +   ADC3 -\r
 248                 ADMUX=0x01 ; //PA3 single and  3V\r
 249                 OWST_INIT_ADC\r
 250                 //ADCSRA = (1<<ADEN)|(1<<ADPS1)|(1<<ADPS0);//|\r
 251                 \r
 252                 \r
 253 \r
 254                 pack2.page3[0]=0xF1;\r
 255                 pack2.cmode=0;\r
 256                 pack2.R0=readEEPROM(EEPROM_R0,1);\r
 257                 R0=pack2.R0/100.0;\r
 258                 \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
 263 \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
 268 \r
 269                 for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
 270                         weekmaxarr[i]=pack2.r_week_max;\r
 271                 }\r
 272 \r
 273                 for(uint8_t i=0;i<8;i++) pack2.page6[i]=owid1[i];\r
 274                 if (testSW()) {\r
 275                         config_info2[5]=12;\r
 276                         }else{\r
 277                         config_info2[5]=7;\r
 278                 }\r
 279 \r
 280                 TWI_Master_Initialise();\r
 281                 \r
 282                 //initSHT2x();\r
 283                 HDC2010_Init();\r
 284                 \r
 285                 _delay_ms(100);\r
 286                 gcontrol=1;\r
 287                 sei();\r
 288                 while(1)   {\r
 289                         \r
 290                         if ((cpsp2&0x80)!=0) {\r
 291                                 if ((cpsp2&0x0F)==5) {\r
 292                                         if (pack2.reset_code==0x01) {\r
 293                                                 R0=1;\r
 294                                                 pack2.R0=0;\r
 295                                                 writeEEPROM(EEPROM_R0,0);\r
 296                                         } else if (pack2.reset_code==0x05) {\r
 297                                                 pack2.r_day_max=1;\r
 298                                                 pack2.r_week_max=1;\r
 299                                                 pack2.tol_d=0;\r
 300                                                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
 301                                                 R0=1;\r
 302                                                 writeEEPROM(EEPROM_R0,0xFF);\r
 303                                                 writeEEPROM(EEPROM_R0d,0xFF);  //Maximum des Tages\r
 304                                                 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage\r
 305                                                 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage\r
 306                                                 for(uint8_t i=0;i<7;i++) {\r
 307                                                         weekmaxarr[i]=1;\r
 308                                                 }\r
 309                                         } else {\r
 310                                                 writeEEPROM(EEPROM_CODE_DAYOFR0,0x0037|(pack2.days_of_r0<<8));\r
 311                                                 writeEEPROM(EEPROM_CORR,pack2.page5d[1]);\r
 312                                                 writeEEPROM(EEPROM_FREE,pack2.page5d[2]);\r
 313                                                 writeEEPROM(EEPROM_TCORR_RESET,pack2.time_corr);\r
 314                                         }\r
 315                                 }\r
 316                                 cpsp2=0;\r
 317                         }\r
 318                         if (wdcounter>0) {  //8s\r
 319                                 pack2.tol_s8++;\r
 320                                 if (pack2.tol_s8>(10000))  {//10800 ist theortisch der Tag aber meistens zu lang\r
 321                                         pack2.tol_s8=0;\r
 322                                         pack2.tol_d++;  //rund 180 Jahre :-)\r
 323                                         pack2.r_week_max=0;\r
 324                                         weekmaxarr[pack2.days_of_r0]=pack2.r_day_max;\r
 325                                         for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
 326                                                 weekmaxarr[i]=weekmaxarr[i+1];\r
 327                                                 //maximum of week\r
 328                                                 if (weekmaxarr[i]>pack2.r_week_max) pack2.r_week_max=weekmaxarr[i];\r
 329                                         }\r
 330                                         if (pack2.tol_d>7) {\r
 331                                                 pack2.R0=pack2.r_week_max;\r
 332                                         } else {\r
 333                                                 pack2.R0=pack2.r_day_max;\r
 334                                         }\r
 335                                         //R0=//R0-0.5*(pack2.R0/100-R0);\r
 336                                         R0=R0-(R0-pack2.R0/100.0)*0.5   ;\r
 337                                         pack2.R0=R0*100;\r
 338                                         writeEEPROM(EEPROM_R0,pack2.R0);\r
 339                                         writeEEPROM(EEPROM_R0d,pack2.r_day_max);  //Maximum des Tages\r
 340                                         writeEEPROM(EEPROM_R0w,pack2.r_week_max); //Maximum der Letzten 7 Tage\r
 341                                         writeEEPROM(EEPROM_dol,pack2.tol_d); //Anzahl der Betriebstage\r
 342                                         pack2.r_day_max=0;\r
 343                                 }\r
 344                                 if (startup!=0) startup--;\r
 345                                 //getSHT2xHumTemp(&temperatureC,&humidityRH);\r
 346                                  HDC2010_Readf(&temperatureC,&humidityRH);\r
 347                                 ip=interp(temperatureC,humidityRH);\r
 348                                 pack2.ip=ip*1000;\r
 349                                 //double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;\r
 350                                 //double TC =temperatureC *10.0-2;\r
 351                                 double RH=calibr_hum075(temperatureC,humidityRH)*10.0;\r
 352                                 //double RH=humidityRH*10.0;\r
 353                                 double TC=temperatureC*10.0-7.5;\r
 354 \r
 355 \r
 356                                 if (testSW()) {\r
 357                                         DS2438_2_VAD=RH;\r
 358                                         DS2438_2_TEMP=TC*25.6;\r
 359                                         config_info2[5]=12;     //10V = 100%\r
 360                                 }else{\r
 361                                         hhum=(1.0546-0.000216*TC)*(RH);\r
 362                                         DS2438_2_VAD=0.31*hhum +80;\r
 363                                         DS2438_2_TEMP=TC*25.6;\r
 364                                         config_info2[5]=7;\r
 365                                 }\r
 366                                 mr=0;\r
 367                                 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________\r
 368                                 PORTB&=~(1<<PINB1); //Auf 0 Ziehen\r
 369                                 _delay_us(300);\r
 370                                 for(uint8_t i=0;i<32;i++) {\r
 371                                         ADCSRA|=(1<<ADSC);\r
 372                                         while ((ADCSRA&(1<<ADSC)));\r
 373                                         mr+=ADC;\r
 374                                  }\r
 375                                 PORTB|=(1<<PINB1);\r
 376                                 //ENDE Kritische Sektion !______________________________\r
 377 \r
 378                                 //pack2.VS=mr*3/128;  //VS in Volt = VS/256  --> Nur zum Debug .... Speicher reicht sonst nicht....\r
 379                                 l=mr*1.8/32768.0;  //Spannung in v\r
 380                                 l=( 1.8/l- 1) *30; //l is resistance\r
 381                                 if (lainit) {\r
 382                                         la[0]=la[1]=la[2]=la[3]=l;  //smaller code\r
 383                                         lainit=0;\r
 384                                 } else {\r
 385                                         //for (uint8_t i=0;i<3;i++) {\r
 386                                         //      la[i]=la[i+1];\r
 387                                         //}\r
 388                                         la[0]=la[1];\r
 389                                         la[1]=la[2];\r
 390                                         la[2]=la[3];\r
 391                                         la[3]=l;\r
 392                                 }\r
 393                                 double lasum=la[0]+la[1]+la[2]+la[3];\r
 394                                 l=lasum/4.0;\r
 395                                 \r
 396                                 pack2.current=l*100;\r
 397                                 \r
 398                                 l=l/ip;\r
 399                                 \r
 400                                 if (startup==0){\r
 401                                         if (l>R0) {\r
 402                                                 R0=l;\r
 403                                                 pack2.R0=R0*100;\r
 404                                                 writeEEPROM(EEPROM_R0,pack2.R0);\r
 405 \r
 406                                         }\r
 407                                         if (l*100>pack2.r_day_max) {\r
 408                                                 pack2.r_day_max=l*100;\r
 409                                         }\r
 410                                 } else if (l<R0) l=R0; //negative Werte am Anfang verhintern\r
 411                                 //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
 412                                 //l=pow(R0/l,1.8)*3-3; \r
 413                                 if (l!=0) {\r
 414                                         l=R0/l;\r
 415                                         //l=l*l*12-12;\r
 416                                         l=exp((1-(1/l))*6.05)-1;\r
 417                                         l=l*(double)pack2.corr_VOC_mult/(double)pack2.corr_VOC_div;\r
 418                                         l=l*8.0; //fuer DS18B20*/\r
 419                                 }       \r
 420                                 wdcounter=0;\r
 421                                 DS2438_1_VAD=l;\r
 422                                 DS2438_1_VDD=(l-DS2438_1_VAD)*1000.0;\r
 423                                 \r
 424                                 l=MAX44009getlux(1);\r
 425                                 if (l<0.030) l=0.030; //Darf nicht 0 sein. minimum -35°C Sensor minimum 0.045\r
 426                                 //double l=1000;\r
 427                                 l=log(l)*10*256;\r
 428                                 DS2438_1_TEMP=l;\r
 429 \r
 430                                 \r
 431                         }\r
 432                         \r
 433                         \r
 434                         if (gcontrol) {\r
 435                                 gcontrol=0;\r
 436                                 \r
 437                         }\r
 438 \r
 439                         \r
 440                         OWST_MAIN_END\r
 441                 }\r
 442 \r
 443 \r
 444         }\r