'Hardware Definition Define Kollektorsensor AD[1] Define Speichersensor AD[2] Define Ladepumpe Port[1] 'Variablen Definition Define Kollektortemperatur word Define Speichertemperatur word Define Ladepumpenwert Bit[192] Define Minimalbegrenzung Bit[191] Define Speichermaximalbegrenzung Bit[190] Define Kollektorschutz Bit[189] Define Sonne Bit[188] 'Konstanten Definition Define Ein -1 Define Aus 0 Define Schalthysterese 4 Define Differenztemperatur 8 Define Mindesttemperatur 30 Define Speichermaximaltemperatur 60 Define Kollektorschutztemperatur 120 'Programmanfang #Kollektorsteuerung Looktab Temperatur, Speichersensor, Speichertemperatur Looktab Temperatur, Kollektorsensor, Kollektortemperatur if Kollektortemperatur > Speichertemperatur + Differenztemperatur + Schalthysterese then Sonne = Ein if Kollektortemperatur < Speichertemperatur + Differenztemperatur then Sonne = Aus if Kollektortemperatur > Mindesttemperatur + Schalthysterese then Minimalbegrenzung = Aus if Kollektortemperatur < Mindesttemperatur then Minimalbegrenzung = Ein if Kollektortemperatur > Kollektorschutztemperatur then Kollektorschutz = Ein if Kollektortemperatur < Kollektorschutztemperatur - Schalthysterese then Kollektorschutz = Aus if Speichertemperatur > Speichermaximaltemperatur then Speichermaximalbegrenzung = Ein if Speichertemperatur < Speichermaximaltemperatur - Schalthysterese then Speichermaximalbegrenzung = Aus Ladepumpenwert = Aus if Sonne = Ein and Minimalbegrenzung = Aus then Ladepumpenwert = Ein If Speichermaximalbegrenzung = Ein then Ladepumpenwert = Aus If Kollektorschutz = Ein then Ladepumpenwert = Ein Ladepumpe = Ladepumpenwert goto Kollektorsteuerung end 'Tabelle für PT100 Table Temperatur -50 -48 -45 -43 -41 -38 -36 -34 -32 -29 -27 -25 -22 -20 -18 -15 -13 -11 -8 -6 -4 -1 1 3 6 8 10 13 15 18 20 22 25 27 29 32 34 36 39 41 43 46 48 51 53 55 58 60 62 65 67 70 72 74 77 79 82 84 86 89 91 94 96 98 101 103 106 108 111 113 115 118 120 123 125 128 130 132 135 137 140 142 145 147 149 152 154 157 159 162 164 167 169 172 174 177 179 181 184 186 189 191 194 196 199 201 204 206 209 211 214 216 219 221 224 226 229 231 234 236 239 241 244 246 249 251 254 257 259 262 264 267 269 272 274 277 279 282 285 287 290 292 295 297 300 302 305 308 310 313 315 318 321 323 326 328 331 333 336 339 341 344 346 349 352 354 357 360 362 365 367 370 373 375 378 381 383 386 389 391 394 396 399 402 404 407 410 412 415 418 420 423 426 428 431 434 437 439 442 445 447 450 453 455 458 461 464 466 469 472 474 477 480 483 485 488 491 494 496 499 502 505 507 510 513 516 518 521 524 527 529 532 535 538 541 543 546 549 552 554 557 560 563 566 569 571 574 577 580 583 585 588 591 594 597 600