DS18B20_VOC_DS2438_SHT direct/DS18B20_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 \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/USI_TWI_Master.h"\r
  43 #include "../common/I2C/SHT2xV2.h"\r
  44 #include "../common/calibr.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]={0x28, 0xA3, 0xD9, 0x84, 0x00, 0x16, 0x05, 0x18};/**/\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]={0x08,18, 0x00,0x00, 0x00,0x00, 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 cpsp;\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                 volatile uint8_t bytes[16];\r
  87                 #else\r
  88                 volatile 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;\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 \r
 149         OWST_TESTSW\r
 150 \r
 151 \r
 152         double temperatureC,humidityRH,hhum;\r
 153         volatile double l;\r
 154 \r
 155 \r
 156         uint16_t weekmaxarr[33];\r
 157 \r
 158         //Kompensieren der Abhänigkeit von RS/RO von Temperatur und Luftfeuchte\r
 159         inline double interp(double t, double h) {\r
 160                 double h2;\r
 161                 double t2;\r
 162                 h2=h*h;\r
 163                 t2=t*t;\r
 164                 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
 165         }\r
 166 \r
 167         double R0;\r
 168         uint16_t mr;\r
 169         uint8_t startup=10;\r
 170         double ip;\r
 171         double la[4];\r
 172         uint8_t lainit=1;\r
 173 \r
 174 \r
 175         \r
 176         #define EEPROM_R0 0\r
 177         #define EEPROM_R0d 2\r
 178         #define EEPROM_R0w 4\r
 179         #define EEPROM_dol 6\r
 180         #define EEPROM_CODE_DAYOFR0 8\r
 181         #define EEPROM_CORR 10\r
 182         #define EEPROM_FREE 12\r
 183         #define EEPROM_TCORR_RESET 14\r
 184 \r
 185         uint16_t readEEPROM(uint8_t addr,uint16_t def) {\r
 186                 uint16_t hr;\r
 187                 while(EECR & (1<<EEPE));\r
 188                 EEARL=addr+1;\r
 189                 EECR |= (1<<EERE);\r
 190                 hr=EEDR;\r
 191                 if (hr!=0xFF) {\r
 192                         hr=hr<<8;\r
 193                         while(EECR & (1<<EEPE));\r
 194                         EEARL=addr;\r
 195                         EECR |= (1<<EERE);\r
 196                         hr|=EEDR;\r
 197                         return hr;\r
 198                 }\r
 199                 return def;\r
 200         }\r
 201 \r
 202         void writeEEPROM(uint8_t addr,uint16_t val) {\r
 203                 while(EECR & (1<<EEPE));\r
 204                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
 205                 EEARL = addr;\r
 206                 EEDR = val&0xFF;\r
 207                 EECR |= (1<<EEMPE);\r
 208                 EECR |= (1<<EEPE);\r
 209                 while(EECR & (1<<EEPE));\r
 210                 EECR = (0<<EEPM1)|(0<<EEPM0);\r
 211                 EEARL = addr+1;\r
 212                 EEDR = val>>8;\r
 213                 EECR |= (1<<EEMPE);\r
 214                 EECR |= (1<<EEPE);\r
 215         }\r
 216 \r
 217         int main(void){\r
 218                 PORTA=0xFF-(1<<PINA1);\r
 219                 PORTB=0xFF-(1<<PORTB0); //Schalter kann gegen Masse sein und zieht dann immer Strom\r
 220                 DDRB|=(1<<PORTB0); //Als Ausgang und 0\r
 221                 OWINIT();\r
 222                 DDRB|=(1<<PINB1);//Ausgang und 1\r
 223                 DDRA|=(1<<PINA0);\r
 224                 \r
 225                 WDTCSR |= ((1<<WDCE) );   // Enable the WD Change Bit//| (1<<WDE)\r
 226                 WDTCSR |=   (1<<WDIE) |              // Enable WDT Interrupt\r
 227                 //(1<<WDP0) |(1<<WDP2) | (1<<WDP1);    // Set Timeout to ~2 seconds\r
 228                 (1<<WDP3) | (1<<WDP0);    // Set Timeout to ~8 seconds\r
 229 \r
 230                 MCUSR=0;\r
 231 \r
 232                 //ADMUX=0b00001110; //ADC1 +   ADC3 -\r
 233                 ADMUX=0x01 ; //PA3 single and  3V\r
 234                 ADCSRA = (1<<ADEN)|(1<<ADPS1)|(1<<ADPS0);//|\r
 235                 pack1.temp=0x0550;\r
 236                 pack1.config=0x7F;\r
 237                 pack1.TH=75;\r
 238                 pack1.TL=70;\r
 239                 pack1.rrFF=0xFF;\r
 240                 pack1.rr00=0;\r
 241                 pack1.rr10=0x10;\r
 242 \r
 243                 pack2.page3[0]=0xF1;\r
 244                 pack2.cmode=0;\r
 245                 pack2.R0=readEEPROM(EEPROM_R0,1);\r
 246                 R0=pack2.R0/100.0;\r
 247                 \r
 248                 pack2.r_day_max=readEEPROM(EEPROM_R0d,1);\r
 249                 pack2.r_week_max=readEEPROM(EEPROM_R0w,1);\r
 250                 pack2.tol_d=readEEPROM(EEPROM_dol,0);\r
 251                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
 252 \r
 253                 pack2.page5d[0]=readEEPROM(EEPROM_CODE_DAYOFR0,0x0437);\r
 254                 pack2.page5d[1]=readEEPROM(EEPROM_CORR,0x0101);\r
 255                 pack2.page5d[2]=readEEPROM(EEPROM_FREE,0x0);\r
 256                 pack2.page5d[3]=readEEPROM( EEPROM_TCORR_RESET,0x0005);\r
 257 \r
 258                 for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
 259                         weekmaxarr[i]=pack2.r_week_max;\r
 260                 }\r
 261 \r
 262                 for(uint8_t i=0;i<8;i++) pack2.page6[i]=owid1[i];\r
 263                 if (testSW()) {\r
 264                         config_info2[5]=12;\r
 265                         }else{\r
 266                         config_info2[5]=7;\r
 267                 }\r
 268 \r
 269                 USI_TWI_Master_Initialise();\r
 270                 \r
 271                 initSHT2x();\r
 272                 _delay_ms(100);\r
 273                 gcontrol=1;\r
 274                 sei();\r
 275                 while(1)   {\r
 276                         \r
 277                         if ((cpsp&0x80)!=0) {\r
 278                                 if ((cpsp&0x0F)==5) {\r
 279                                         if (pack2.reset_code==0x01) {\r
 280                                                 R0=1;\r
 281                                                 pack2.R0=0;\r
 282                                                 writeEEPROM(EEPROM_R0,0);\r
 283                                         } else if (pack2.reset_code==0x05) {\r
 284                                                 pack2.r_day_max=1;\r
 285                                                 pack2.r_week_max=1;\r
 286                                                 pack2.tol_d=0;\r
 287                                                 pack2.tol_s8=0;  //Tag faengt mit Einschalten an\r
 288                                                 R0=1;\r
 289                                                 writeEEPROM(EEPROM_R0,0xFF);\r
 290                                                 writeEEPROM(EEPROM_R0d,0xFF);  //Maximum des Tages\r
 291                                                 writeEEPROM(EEPROM_R0w,0xFF); //Maximum der Letzten 7 Tage\r
 292                                                 writeEEPROM(EEPROM_dol,0xFF); //Anzahl der Betriebstage\r
 293                                                 for(uint8_t i=0;i<7;i++) {\r
 294                                                         weekmaxarr[i]=1;\r
 295                                                 }\r
 296                                         } else {\r
 297                                                 writeEEPROM(EEPROM_CODE_DAYOFR0,0x0037|(pack2.days_of_r0<<8));\r
 298                                                 writeEEPROM(EEPROM_CORR,pack2.page5d[1]);\r
 299                                                 writeEEPROM(EEPROM_FREE,pack2.page5d[2]);\r
 300                                                 writeEEPROM(EEPROM_TCORR_RESET,pack2.time_corr);\r
 301                                         }\r
 302                                 }\r
 303                                 cpsp=0;\r
 304                         }\r
 305                         if (wdcounter>0) {  //8s\r
 306                                 pack2.tol_s8++;\r
 307                                 if (pack2.tol_s8>(10000))  {//10800 ist theortisch der Tag aber meistens zu lang\r
 308                                         pack2.tol_s8=0;\r
 309                                         pack2.tol_d++;  //rund 180 Jahre :-)\r
 310                                         pack2.r_week_max=0;\r
 311                                         weekmaxarr[pack2.days_of_r0]=pack2.r_day_max;\r
 312                                         for(uint8_t i=0;i<pack2.days_of_r0;i++) {\r
 313                                                 weekmaxarr[i]=weekmaxarr[i+1];\r
 314                                                 //maximum of week\r
 315                                                 if (weekmaxarr[i]>pack2.r_week_max) pack2.r_week_max=weekmaxarr[i];\r
 316                                         }\r
 317                                         if (pack2.tol_d>7) {\r
 318                                                 pack2.R0=pack2.r_week_max;\r
 319                                         } else {\r
 320                                                 pack2.R0=pack2.r_day_max;\r
 321                                         }\r
 322                                         //R0=//R0-0.5*(pack2.R0/100-R0);\r
 323                                         R0=R0-(R0-pack2.R0/100.0)*0.5   ;\r
 324                                         pack2.R0=R0*100;\r
 325                                         writeEEPROM(EEPROM_R0,pack2.R0);\r
 326                                         writeEEPROM(EEPROM_R0d,pack2.r_day_max);  //Maximum des Tages\r
 327                                         writeEEPROM(EEPROM_R0w,pack2.r_week_max); //Maximum der Letzten 7 Tage\r
 328                                         writeEEPROM(EEPROM_dol,pack2.tol_d); //Anzahl der Betriebstage\r
 329                                         pack2.r_day_max=0;\r
 330                                 }\r
 331                                 if (startup!=0) startup--;\r
 332                                 getSHT2xHumTemp(&temperatureC,&humidityRH);\r
 333                                 ip=interp(temperatureC,humidityRH);\r
 334                                 pack2.ip=ip*1000;\r
 335                                 //double RH=calibr_hum(temperatureC,-0.2,humidityRH)*10.0;\r
 336                                 //double TC =temperatureC *10.0-2;\r
 337                                 double RH=humidityRH*10.0;\r
 338                                 double TC=temperatureC*10.0;\r
 339 \r
 340 \r
 341                                 if (testSW()) {\r
 342                                         DS2438_2_VAD=RH;\r
 343                                         DS2438_2_TEMP=TC*25.6;\r
 344                                         config_info2[5]=12;     //10V = 100%\r
 345                                 }else{\r
 346                                         hhum=(1.0546-0.000216*TC)*(RH);\r
 347                                         DS2438_2_VAD=0.31*hhum +80;\r
 348                                         DS2438_2_TEMP=TC*25.6;\r
 349                                         config_info2[5]=7;\r
 350                                 }\r
 351                                 mr=0;\r
 352                                 //Kritische Sektion !___Ein Breakpoint in dieser Section kann den TGS8100 zerstoeren!___________________________\r
 353                                 PORTB&=~(1<<PINB1); //Auf 0 Ziehen\r
 354                                 _delay_us(500);\r
 355                                 for(uint8_t i=0;i<32;i++) {\r
 356                                         ADCSRA|=(1<<ADSC);\r
 357                                         while ((ADCSRA&(1<<ADSC)));\r
 358                                         mr+=ADC;\r
 359                                  }\r
 360                                 PORTB|=(1<<PINB1);\r
 361                                 //ENDE Kritische Sektion !______________________________\r
 362 \r
 363                                 pack2.VS=mr*3/128;  //VS in Volt = VS/256\r
 364                                 l=mr*3.0/32768.0;  //Spannung in v\r
 365                                 l=( 3/l- 1) *30; //l is resistance\r
 366                                 if (lainit) {\r
 367                                         la[0]=la[1]=la[2]=la[3]=l;  //smaller code\r
 368                                         lainit=0;\r
 369                                 } else {\r
 370                                         la[0]=la[1];\r
 371                                         la[1]=la[2];\r
 372                                         la[2]=la[3];\r
 373                                         la[3]=l;\r
 374                                 }\r
 375                                 double lasum=la[0]+la[1]+la[2]+la[3];\r
 376                                 l=lasum/4.0;\r
 377                                 \r
 378                                 pack2.current=l*100;\r
 379                                 \r
 380                                 l=l/ip;\r
 381                                 \r
 382                                 if (startup==0){\r
 383                                         if (l>R0) {\r
 384                                                 R0=l;\r
 385                                                 pack2.R0=R0*100;\r
 386                                                 writeEEPROM(EEPROM_R0,pack2.R0);\r
 387 \r
 388                                         }\r
 389                                         if (l*100>pack2.r_day_max) {\r
 390                                                 pack2.r_day_max=l*100;\r
 391                                         }\r
 392                                 } else if (l<R0) l=R0; //negative Werte am Anfang verhintern\r
 393                                 //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
 394                                 //l=pow(R0/l,1.8)*3-3; \r
 395                                 if (l!=0) {\r
 396                                         l=R0/l;\r
 397                                         //l=l*l*12-12;\r
 398                                         l=exp((1-(1/l))*6.05)-1;\r
 399                                         l=l*(double)pack2.corr_VOC_mult/(double)pack2.corr_VOC_div;\r
 400                                         l=l*8.0; //fuer DS18B20*/\r
 401                                 }       \r
 402                                 wdcounter=0;\r
 403 \r
 404                                 \r
 405                         }\r
 406                         \r
 407                         if ((gcontrol&1)==1) {\r
 408                                 uint16_t w=l;\r
 409                                 uint8_t t8=w>>4;\r
 410                                 uint8_t af=0;\r
 411                                 if (t8>pack1.TH) af=1;\r
 412                                 if (t8<=pack1.TL) af=1;\r
 413                                 cli();\r
 414                                 pack1.temp=w;\r
 415                                 //pack.temp++;\r
 416                                 alarmflag=af;\r
 417                                 sei();\r
 418                                 EXTERN_SLEEP();\r
 419                         }\r
 420                         if (gcontrol) {\r
 421                                 gcontrol=0;\r
 422                                 \r
 423                         }\r
 424 \r
 425                         \r
 426                         OWST_MAIN_END\r
 427                 }\r
 428 \r
 429 \r
 430         }\r