Repository: openhp/HeatPumpController Branch: main Commit: 116b1f2ee9d0 Files: 3 Total size: 175.6 KB Directory structure: gitextract_glhanyyj/ ├── LICENSE ├── README.md └── Valden_HeatPumpController.ino ================================================ FILE CONTENTS ================================================ ================================================ FILE: LICENSE ================================================ GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007 Copyright (C) 2007 Free Software Foundation, Inc. Everyone is permitted to copy and distribute verbatim copies of this license document, but changing it is not allowed. Preamble The GNU General Public License is a free, copyleft license for software and other kinds of works. The licenses for most software and other practical works are designed to take away your freedom to share and change the works. By contrast, the GNU General Public License is intended to guarantee your freedom to share and change all versions of a program--to make sure it remains free software for all its users. We, the Free Software Foundation, use the GNU General Public License for most of our software; it applies also to any other work released this way by its authors. You can apply it to your programs, too. When we speak of free software, we are referring to freedom, not price. Our General Public Licenses are designed to make sure that you have the freedom to distribute copies of free software (and charge for them if you wish), that you receive source code or can get it if you want it, that you can change the software or use pieces of it in new free programs, and that you know you can do these things. To protect your rights, we need to prevent others from denying you these rights or asking you to surrender the rights. Therefore, you have certain responsibilities if you distribute copies of the software, or if you modify it: responsibilities to respect the freedom of others. For example, if you distribute copies of such a program, whether gratis or for a fee, you must pass on to the recipients the same freedoms that you received. You must make sure that they, too, receive or can get the source code. And you must show them these terms so they know their rights. Developers that use the GNU GPL protect your rights with two steps: (1) assert copyright on the software, and (2) offer you this License giving you legal permission to copy, distribute and/or modify it. For the developers' and authors' protection, the GPL clearly explains that there is no warranty for this free software. For both users' and authors' sake, the GPL requires that modified versions be marked as changed, so that their problems will not be attributed erroneously to authors of previous versions. Some devices are designed to deny users access to install or run modified versions of the software inside them, although the manufacturer can do so. This is fundamentally incompatible with the aim of protecting users' freedom to change the software. The systematic pattern of such abuse occurs in the area of products for individuals to use, which is precisely where it is most unacceptable. Therefore, we have designed this version of the GPL to prohibit the practice for those products. If such problems arise substantially in other domains, we stand ready to extend this provision to those domains in future versions of the GPL, as needed to protect the freedom of users. Finally, every program is threatened constantly by software patents. States should not allow patents to restrict development and use of software on general-purpose computers, but in those that do, we wish to avoid the special danger that patents applied to a free program could make it effectively proprietary. To prevent this, the GPL assures that patents cannot be used to render the program non-free. The precise terms and conditions for copying, distribution and modification follow. TERMS AND CONDITIONS 0. Definitions. "This License" refers to version 3 of the GNU General Public License. "Copyright" also means copyright-like laws that apply to other kinds of works, such as semiconductor masks. "The Program" refers to any copyrightable work licensed under this License. Each licensee is addressed as "you". "Licensees" and "recipients" may be individuals or organizations. To "modify" a work means to copy from or adapt all or part of the work in a fashion requiring copyright permission, other than the making of an exact copy. The resulting work is called a "modified version" of the earlier work or a work "based on" the earlier work. A "covered work" means either the unmodified Program or a work based on the Program. To "propagate" a work means to do anything with it that, without permission, would make you directly or secondarily liable for infringement under applicable copyright law, except executing it on a computer or modifying a private copy. Propagation includes copying, distribution (with or without modification), making available to the public, and in some countries other activities as well. To "convey" a work means any kind of propagation that enables other parties to make or receive copies. Mere interaction with a user through a computer network, with no transfer of a copy, is not conveying. An interactive user interface displays "Appropriate Legal Notices" to the extent that it includes a convenient and prominently visible feature that (1) displays an appropriate copyright notice, and (2) tells the user that there is no warranty for the work (except to the extent that warranties are provided), that licensees may convey the work under this License, and how to view a copy of this License. If the interface presents a list of user commands or options, such as a menu, a prominent item in the list meets this criterion. 1. Source Code. The "source code" for a work means the preferred form of the work for making modifications to it. "Object code" means any non-source form of a work. A "Standard Interface" means an interface that either is an official standard defined by a recognized standards body, or, in the case of interfaces specified for a particular programming language, one that is widely used among developers working in that language. The "System Libraries" of an executable work include anything, other than the work as a whole, that (a) is included in the normal form of packaging a Major Component, but which is not part of that Major Component, and (b) serves only to enable use of the work with that Major Component, or to implement a Standard Interface for which an implementation is available to the public in source code form. A "Major Component", in this context, means a major essential component (kernel, window system, and so on) of the specific operating system (if any) on which the executable work runs, or a compiler used to produce the work, or an object code interpreter used to run it. The "Corresponding Source" for a work in object code form means all the source code needed to generate, install, and (for an executable work) run the object code and to modify the work, including scripts to control those activities. However, it does not include the work's System Libraries, or general-purpose tools or generally available free programs which are used unmodified in performing those activities but which are not part of the work. For example, Corresponding Source includes interface definition files associated with source files for the work, and the source code for shared libraries and dynamically linked subprograms that the work is specifically designed to require, such as by intimate data communication or control flow between those subprograms and other parts of the work. The Corresponding Source need not include anything that users can regenerate automatically from other parts of the Corresponding Source. The Corresponding Source for a work in source code form is that same work. 2. Basic Permissions. All rights granted under this License are granted for the term of copyright on the Program, and are irrevocable provided the stated conditions are met. This License explicitly affirms your unlimited permission to run the unmodified Program. The output from running a covered work is covered by this License only if the output, given its content, constitutes a covered work. This License acknowledges your rights of fair use or other equivalent, as provided by copyright law. You may make, run and propagate covered works that you do not convey, without conditions so long as your license otherwise remains in force. You may convey covered works to others for the sole purpose of having them make modifications exclusively for you, or provide you with facilities for running those works, provided that you comply with the terms of this License in conveying all material for which you do not control copyright. Those thus making or running the covered works for you must do so exclusively on your behalf, under your direction and control, on terms that prohibit them from making any copies of your copyrighted material outside their relationship with you. Conveying under any other circumstances is permitted solely under the conditions stated below. Sublicensing is not allowed; section 10 makes it unnecessary. 3. Protecting Users' Legal Rights From Anti-Circumvention Law. No covered work shall be deemed part of an effective technological measure under any applicable law fulfilling obligations under article 11 of the WIPO copyright treaty adopted on 20 December 1996, or similar laws prohibiting or restricting circumvention of such measures. When you convey a covered work, you waive any legal power to forbid circumvention of technological measures to the extent such circumvention is effected by exercising rights under this License with respect to the covered work, and you disclaim any intention to limit operation or modification of the work as a means of enforcing, against the work's users, your or third parties' legal rights to forbid circumvention of technological measures. 4. Conveying Verbatim Copies. You may convey verbatim copies of the Program's source code as you receive it, in any medium, provided that you conspicuously and appropriately publish on each copy an appropriate copyright notice; keep intact all notices stating that this License and any non-permissive terms added in accord with section 7 apply to the code; keep intact all notices of the absence of any warranty; and give all recipients a copy of this License along with the Program. You may charge any price or no price for each copy that you convey, and you may offer support or warranty protection for a fee. 5. Conveying Modified Source Versions. You may convey a work based on the Program, or the modifications to produce it from the Program, in the form of source code under the terms of section 4, provided that you also meet all of these conditions: a) The work must carry prominent notices stating that you modified it, and giving a relevant date. b) The work must carry prominent notices stating that it is released under this License and any conditions added under section 7. This requirement modifies the requirement in section 4 to "keep intact all notices". c) You must license the entire work, as a whole, under this License to anyone who comes into possession of a copy. This License will therefore apply, along with any applicable section 7 additional terms, to the whole of the work, and all its parts, regardless of how they are packaged. This License gives no permission to license the work in any other way, but it does not invalidate such permission if you have separately received it. d) If the work has interactive user interfaces, each must display Appropriate Legal Notices; however, if the Program has interactive interfaces that do not display Appropriate Legal Notices, your work need not make them do so. A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered work, and which are not combined with it such as to form a larger program, in or on a volume of a storage or distribution medium, is called an "aggregate" if the compilation and its resulting copyright are not used to limit the access or legal rights of the compilation's users beyond what the individual works permit. Inclusion of a covered work in an aggregate does not cause this License to apply to the other parts of the aggregate. 6. Conveying Non-Source Forms. You may convey a covered work in object code form under the terms of sections 4 and 5, provided that you also convey the machine-readable Corresponding Source under the terms of this License, in one of these ways: a) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by the Corresponding Source fixed on a durable physical medium customarily used for software interchange. b) Convey the object code in, or embodied in, a physical product (including a physical distribution medium), accompanied by a written offer, valid for at least three years and valid for as long as you offer spare parts or customer support for that product model, to give anyone who possesses the object code either (1) a copy of the Corresponding Source for all the software in the product that is covered by this License, on a durable physical medium customarily used for software interchange, for a price no more than your reasonable cost of physically performing this conveying of source, or (2) access to copy the Corresponding Source from a network server at no charge. c) Convey individual copies of the object code with a copy of the written offer to provide the Corresponding Source. This alternative is allowed only occasionally and noncommercially, and only if you received the object code with such an offer, in accord with subsection 6b. d) Convey the object code by offering access from a designated place (gratis or for a charge), and offer equivalent access to the Corresponding Source in the same way through the same place at no further charge. You need not require recipients to copy the Corresponding Source along with the object code. If the place to copy the object code is a network server, the Corresponding Source may be on a different server (operated by you or a third party) that supports equivalent copying facilities, provided you maintain clear directions next to the object code saying where to find the Corresponding Source. Regardless of what server hosts the Corresponding Source, you remain obligated to ensure that it is available for as long as needed to satisfy these requirements. e) Convey the object code using peer-to-peer transmission, provided you inform other peers where the object code and Corresponding Source of the work are being offered to the general public at no charge under subsection 6d. A separable portion of the object code, whose source code is excluded from the Corresponding Source as a System Library, need not be included in conveying the object code work. A "User Product" is either (1) a "consumer product", which means any tangible personal property which is normally used for personal, family, or household purposes, or (2) anything designed or sold for incorporation into a dwelling. In determining whether a product is a consumer product, doubtful cases shall be resolved in favor of coverage. For a particular product received by a particular user, "normally used" refers to a typical or common use of that class of product, regardless of the status of the particular user or of the way in which the particular user actually uses, or expects or is expected to use, the product. A product is a consumer product regardless of whether the product has substantial commercial, industrial or non-consumer uses, unless such uses represent the only significant mode of use of the product. "Installation Information" for a User Product means any methods, procedures, authorization keys, or other information required to install and execute modified versions of a covered work in that User Product from a modified version of its Corresponding Source. The information must suffice to ensure that the continued functioning of the modified object code is in no case prevented or interfered with solely because modification has been made. If you convey an object code work under this section in, or with, or specifically for use in, a User Product, and the conveying occurs as part of a transaction in which the right of possession and use of the User Product is transferred to the recipient in perpetuity or for a fixed term (regardless of how the transaction is characterized), the Corresponding Source conveyed under this section must be accompanied by the Installation Information. But this requirement does not apply if neither you nor any third party retains the ability to install modified object code on the User Product (for example, the work has been installed in ROM). The requirement to provide Installation Information does not include a requirement to continue to provide support service, warranty, or updates for a work that has been modified or installed by the recipient, or for the User Product in which it has been modified or installed. Access to a network may be denied when the modification itself materially and adversely affects the operation of the network or violates the rules and protocols for communication across the network. Corresponding Source conveyed, and Installation Information provided, in accord with this section must be in a format that is publicly documented (and with an implementation available to the public in source code form), and must require no special password or key for unpacking, reading or copying. 7. Additional Terms. "Additional permissions" are terms that supplement the terms of this License by making exceptions from one or more of its conditions. Additional permissions that are applicable to the entire Program shall be treated as though they were included in this License, to the extent that they are valid under applicable law. If additional permissions apply only to part of the Program, that part may be used separately under those permissions, but the entire Program remains governed by this License without regard to the additional permissions. When you convey a copy of a covered work, you may at your option remove any additional permissions from that copy, or from any part of it. (Additional permissions may be written to require their own removal in certain cases when you modify the work.) You may place additional permissions on material, added by you to a covered work, for which you have or can give appropriate copyright permission. Notwithstanding any other provision of this License, for material you add to a covered work, you may (if authorized by the copyright holders of that material) supplement the terms of this License with terms: a) Disclaiming warranty or limiting liability differently from the terms of sections 15 and 16 of this License; or b) Requiring preservation of specified reasonable legal notices or author attributions in that material or in the Appropriate Legal Notices displayed by works containing it; or c) Prohibiting misrepresentation of the origin of that material, or requiring that modified versions of such material be marked in reasonable ways as different from the original version; or d) Limiting the use for publicity purposes of names of licensors or authors of the material; or e) Declining to grant rights under trademark law for use of some trade names, trademarks, or service marks; or f) Requiring indemnification of licensors and authors of that material by anyone who conveys the material (or modified versions of it) with contractual assumptions of liability to the recipient, for any liability that these contractual assumptions directly impose on those licensors and authors. All other non-permissive additional terms are considered "further restrictions" within the meaning of section 10. If the Program as you received it, or any part of it, contains a notice stating that it is governed by this License along with a term that is a further restriction, you may remove that term. If a license document contains a further restriction but permits relicensing or conveying under this License, you may add to a covered work material governed by the terms of that license document, provided that the further restriction does not survive such relicensing or conveying. If you add terms to a covered work in accord with this section, you must place, in the relevant source files, a statement of the additional terms that apply to those files, or a notice indicating where to find the applicable terms. Additional terms, permissive or non-permissive, may be stated in the form of a separately written license, or stated as exceptions; the above requirements apply either way. 8. Termination. You may not propagate or modify a covered work except as expressly provided under this License. Any attempt otherwise to propagate or modify it is void, and will automatically terminate your rights under this License (including any patent licenses granted under the third paragraph of section 11). However, if you cease all violation of this License, then your license from a particular copyright holder is reinstated (a) provisionally, unless and until the copyright holder explicitly and finally terminates your license, and (b) permanently, if the copyright holder fails to notify you of the violation by some reasonable means prior to 60 days after the cessation. Moreover, your license from a particular copyright holder is reinstated permanently if the copyright holder notifies you of the violation by some reasonable means, this is the first time you have received notice of violation of this License (for any work) from that copyright holder, and you cure the violation prior to 30 days after your receipt of the notice. Termination of your rights under this section does not terminate the licenses of parties who have received copies or rights from you under this License. If your rights have been terminated and not permanently reinstated, you do not qualify to receive new licenses for the same material under section 10. 9. Acceptance Not Required for Having Copies. You are not required to accept this License in order to receive or run a copy of the Program. Ancillary propagation of a covered work occurring solely as a consequence of using peer-to-peer transmission to receive a copy likewise does not require acceptance. However, nothing other than this License grants you permission to propagate or modify any covered work. These actions infringe copyright if you do not accept this License. Therefore, by modifying or propagating a covered work, you indicate your acceptance of this License to do so. 10. Automatic Licensing of Downstream Recipients. Each time you convey a covered work, the recipient automatically receives a license from the original licensors, to run, modify and propagate that work, subject to this License. You are not responsible for enforcing compliance by third parties with this License. An "entity transaction" is a transaction transferring control of an organization, or substantially all assets of one, or subdividing an organization, or merging organizations. If propagation of a covered work results from an entity transaction, each party to that transaction who receives a copy of the work also receives whatever licenses to the work the party's predecessor in interest had or could give under the previous paragraph, plus a right to possession of the Corresponding Source of the work from the predecessor in interest, if the predecessor has it or can get it with reasonable efforts. You may not impose any further restrictions on the exercise of the rights granted or affirmed under this License. For example, you may not impose a license fee, royalty, or other charge for exercise of rights granted under this License, and you may not initiate litigation (including a cross-claim or counterclaim in a lawsuit) alleging that any patent claim is infringed by making, using, selling, offering for sale, or importing the Program or any portion of it. 11. Patents. A "contributor" is a copyright holder who authorizes use under this License of the Program or a work on which the Program is based. The work thus licensed is called the contributor's "contributor version". A contributor's "essential patent claims" are all patent claims owned or controlled by the contributor, whether already acquired or hereafter acquired, that would be infringed by some manner, permitted by this License, of making, using, or selling its contributor version, but do not include claims that would be infringed only as a consequence of further modification of the contributor version. For purposes of this definition, "control" includes the right to grant patent sublicenses in a manner consistent with the requirements of this License. Each contributor grants you a non-exclusive, worldwide, royalty-free patent license under the contributor's essential patent claims, to make, use, sell, offer for sale, import and otherwise run, modify and propagate the contents of its contributor version. In the following three paragraphs, a "patent license" is any express agreement or commitment, however denominated, not to enforce a patent (such as an express permission to practice a patent or covenant not to sue for patent infringement). To "grant" such a patent license to a party means to make such an agreement or commitment not to enforce a patent against the party. If you convey a covered work, knowingly relying on a patent license, and the Corresponding Source of the work is not available for anyone to copy, free of charge and under the terms of this License, through a publicly available network server or other readily accessible means, then you must either (1) cause the Corresponding Source to be so available, or (2) arrange to deprive yourself of the benefit of the patent license for this particular work, or (3) arrange, in a manner consistent with the requirements of this License, to extend the patent license to downstream recipients. "Knowingly relying" means you have actual knowledge that, but for the patent license, your conveying the covered work in a country, or your recipient's use of the covered work in a country, would infringe one or more identifiable patents in that country that you have reason to believe are valid. If, pursuant to or in connection with a single transaction or arrangement, you convey, or propagate by procuring conveyance of, a covered work, and grant a patent license to some of the parties receiving the covered work authorizing them to use, propagate, modify or convey a specific copy of the covered work, then the patent license you grant is automatically extended to all recipients of the covered work and works based on it. A patent license is "discriminatory" if it does not include within the scope of its coverage, prohibits the exercise of, or is conditioned on the non-exercise of one or more of the rights that are specifically granted under this License. You may not convey a covered work if you are a party to an arrangement with a third party that is in the business of distributing software, under which you make payment to the third party based on the extent of your activity of conveying the work, and under which the third party grants, to any of the parties who would receive the covered work from you, a discriminatory patent license (a) in connection with copies of the covered work conveyed by you (or copies made from those copies), or (b) primarily for and in connection with specific products or compilations that contain the covered work, unless you entered into that arrangement, or that patent license was granted, prior to 28 March 2007. Nothing in this License shall be construed as excluding or limiting any implied license or other defenses to infringement that may otherwise be available to you under applicable patent law. 12. No Surrender of Others' Freedom. If conditions are imposed on you (whether by court order, agreement or otherwise) that contradict the conditions of this License, they do not excuse you from the conditions of this License. If you cannot convey a covered work so as to satisfy simultaneously your obligations under this License and any other pertinent obligations, then as a consequence you may not convey it at all. For example, if you agree to terms that obligate you to collect a royalty for further conveying from those to whom you convey the Program, the only way you could satisfy both those terms and this License would be to refrain entirely from conveying the Program. 13. Use with the GNU Affero General Public License. Notwithstanding any other provision of this License, you have permission to link or combine any covered work with a work licensed under version 3 of the GNU Affero General Public License into a single combined work, and to convey the resulting work. The terms of this License will continue to apply to the part which is the covered work, but the special requirements of the GNU Affero General Public License, section 13, concerning interaction through a network will apply to the combination as such. 14. Revised Versions of this License. The Free Software Foundation may publish revised and/or new versions of the GNU General Public License from time to time. Such new versions will be similar in spirit to the present version, but may differ in detail to address new problems or concerns. Each version is given a distinguishing version number. If the Program specifies that a certain numbered version of the GNU General Public License "or any later version" applies to it, you have the option of following the terms and conditions either of that numbered version or of any later version published by the Free Software Foundation. If the Program does not specify a version number of the GNU General Public License, you may choose any version ever published by the Free Software Foundation. If the Program specifies that a proxy can decide which future versions of the GNU General Public License can be used, that proxy's public statement of acceptance of a version permanently authorizes you to choose that version for the Program. Later license versions may give you additional or different permissions. However, no additional obligations are imposed on any author or copyright holder as a result of your choosing to follow a later version. 15. Disclaimer of Warranty. THERE IS NO WARRANTY FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING, REPAIR OR CORRECTION. 16. Limitation of Liability. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MODIFIES AND/OR CONVEYS THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. 17. Interpretation of Sections 15 and 16. If the disclaimer of warranty and limitation of liability provided above cannot be given local legal effect according to their terms, reviewing courts shall apply local law that most closely approximates an absolute waiver of all civil liability in connection with the Program, unless a warranty or assumption of liability accompanies a copy of the Program in return for a fee. END OF TERMS AND CONDITIONS How to Apply These Terms to Your New Programs If you develop a new program, and you want it to be of the greatest possible use to the public, the best way to achieve this is to make it free software which everyone can redistribute and change under these terms. To do so, attach the following notices to the program. It is safest to attach them to the start of each source file to most effectively state the exclusion of warranty; and each file should have at least the "copyright" line and a pointer to where the full notice is found. Copyright (C) This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . Also add information on how to contact you by electronic and paper mail. If the program does terminal interaction, make it output a short notice like this when it starts in an interactive mode: Copyright (C) This program comes with ABSOLUTELY NO WARRANTY; for details type `show w'. This is free software, and you are welcome to redistribute it under certain conditions; type `show c' for details. The hypothetical commands `show w' and `show c' should show the appropriate parts of the General Public License. Of course, your program's commands might be different; for a GUI interface, you would use an "about box". You should also get your employer (if you work as a programmer) or school, if any, to sign a "copyright disclaimer" for the program, if necessary. For more information on this, and how to apply and follow the GNU GPL, see . The GNU General Public License does not permit incorporating your program into proprietary programs. If your program is a subroutine library, you may consider it more useful to permit linking proprietary applications with the library. If this is what you want to do, use the GNU Lesser General Public License instead of this License. But first, please read . ================================================ FILE: README.md ================================================ ## Valden Heat Pump Controller v1.x The Valden Heat Pump controller is an open source platform to precisely control heat pumps. This controller can be used for the automation of newly built Heat Pumps (HPs), as a repair controller for old systems or as control system for performing experiments on refrigeration equipment.

## Specs - 12V 0.5A DC power supply, - 230V output, - 4 16A relays: Compressor, Hot Circulating Pump (CP) or Air Fan, Cold CP or Air Fan, Crankcase Heater, - 2 inputs: Hot and cold side refrigerant over/under pressure NC sensors, - up to 12 temperature (T) sensors, -55..+125 °C range, - Electronic Expansion Valve (EEV) supported, 6 pin EEV connection: 4 * coils + 2 * 12V, - automatically turns on/of system when heating required, - automatic power saving mode, - built-in protections: cold start, overheat, short-term power loss, power overload, ground loop freeze, compressor protection against liquid and other, - LED indication, - control via [remote display](https://github.com/openhp/Display/) or local Serial (UART 5V).



## Refrigeration schemes supported - Heat Pump (HP) with Electronic Expansion Valve (EEV), - HP with capillary tube or TXV, - EEV-only controller.

## Installations supported - Indoor: a house or technical building with an almost stable temperature, - Outdoor: harsh climatic conditions taken into account. Outdoor HP installations tested down to a minus 32 °C.

## Changelog and history - 2018: PCB prototype, first real installation, - 2019: 2-layer PCB, through-hole components, integrated buttons and display (public access), - 2019: controller redesigned taking into account development and operating experience, 2-layer PCB, SMD, - 2019-2021: installations, development, tests, revisions, redesigns (limited access), - 06 Feb 2021: product is technically completed and ready for public access. Documentation and release stage, - 31 Aug 2021: public access granted.

## Get your own PCB copy. Assembly. - download PCB Gerber file [here](./Valden_HeatPumpController_Gerber.zip) or get your own copy [there](https://www.pcbway.com/project/shareproject/Valden_Heat_Pump_Controller_v1.html), - order electronic components, see BOM (Bill Of Materials) appendix, - solder electronic components, [assembly instructions here](https://github.com/openhp/HeatPumpController/wiki/Assembly)

.

## Firmware upload This process is the same as for other Arduinos: - connect USB-> UART converter, - start Arduino IDE, - download and open the [firmware file](./Valden_HeatPumpController.ino), - select board and MCU in the Tools menu (hint: we are using "mini" board with 328p MCU), - press the "Upload" button in the interface and "Reset" on the Arduino. For arduinos with an old bootloader you need to update it. (Tools-> Burn Bootloader).
For successful compilation, you must have "SoftwareSerial", "OneWire" and "DallasTemperature" libraries installed (see Tools -> Manage Libraries).
For the first time it's enough to upload firmware without any tuning. Think of it as of a commercial closed-source controller, where you cannot fine-tune internal options. And any other manual configuration do not required too, just upload firmware. You will see an error LED indication and hear a beep, since no sensors connected to your controller. Follow the next steps.


## Self-tests QA tests are available to test the assembled board.
Self-test helps you check relays, indicators, speaker and temperature sensors.
To run a self-tests: - uncomment this 3 defines in source code header, ```c //#define SELFTEST_RELAYS_LEDS_SPEAKER //speaker and relays QA test, uncomment to enable //#define SELFTEST_EEV //EEV QA test, uncomment to enable //#define SELFTEST_T_SENSORS //temperature sensors QA test, uncomment to enable ``` - upload firmware, - connect 12V power supply, - disconnect +5V wire from USB-UART converter.
To check EEV connection, you can use a stepper motor. If you are testing a real EEV, it will be closed after the first "beep" and partially opened after the second "beep". If it's not, check if stepper or EEV center pin(s) connected to +12V and try to swap coil-end pins (EEV1..EEV4).

To check temperature sensors connectors crimp one array of sensors. Plug it to all sensor connectors one-by-one and check results in a serial console.


After tests completed, comment 3 self-test defines.
Choose your installation scheme and uncomment one of those options: ```c #define SETPOINT_THI //"warm floor" scheme: "hot in" (Thi) temperature used as setpoint //#define SETPOINT_TS1 //"swimming pool" or "water tank heater" scheme: "sensor 1" (Ts1) is used as setpoint and located somewhere in a water tank ``` Re-upload firmware. Your controller is ready for the first start (after wiring). Probably you'll never need to change other options.

## Wiring (permanent controller installation). Here are no instructions for choosing the right placement for permanent installation of the controller. It depends. You're building your system, and you know much better "where" and "how".
Assuming you have installed your controller to the permanent place, the next step is wiring.

Wiring is very simple, despite a lot of terminals.
Phases (1st wire in electrical cables): - connect the "power inlet" wire to one of the "phase" terminals, - connect the "Compressor" relay output to the Compressor input, - connect the "Hot CP" relay output to the Hot Circulation Pump input (or to the fan power input of the indoor unit if you are using an air system), - connect the "Cold CP" relay output to the Cold Circulation Pump input (or to the fan power input of the outdoor unit), - when using a compressor heater: connect the "Crankcase heater" relay output to the heater cable (highly recommended for outdoor installation and year-round use), - connect all the second wires of power cords to the "neutral" terminals on the board.

12V Power Supply: - connect the second "phase" and one of "neutral" terminals to the AC input of the 12V power supply, - connect 12V power supply output to GND and 12V

Crimp and plug low-voltage connectors: - crimp SCT013 sensor wires (the only one low-voltage device in this circuit with interchangeable wires), connect and install it on the inlet phase wire,

- crimp RS485 to the Remote Display, using a wire of desired length (note that A is connected to A, B to B and GND to GND), - crimp 12V and GND secondary terminals to the remote display,

- connect EEV to EEV terminal,

- install all T sensors on pipes, insulate tubes, - crimp T sensors arrays, you can crimp all four GND wires at every array to one GND connector pin or make 1-to-4 connection somewhere closer to sensors location (same for +5V wires), - insert T sensors arrays to appropriate terminals (if you do not need to control over all temperatures, disable and do not install unnecessary sensors),

- crimp and plug pressure sensors outputs: crimp 1st wires together to **12V** (right output of the terminal), 2nd cold side wire to the **Pco** (left), 2nd hot side wire to the **Phi** (middle); use the dummy if no pressure sensors used in your system.

You may prefer to solder the wires over using terminals and crimping connectors. But in this case, it will be difficult to disassemble the system if you want to change something. The choice is yours.

And one more: **remember! 230V inside!** Do not turn on the phase without need.
Have you ever received 230V with your own hands? If yes - you know. If no - do not try.
Also remember about animals and children during the installation at a permanent place.

## Control and usage: serial console This is a first interface to Heat Pump controller you'll see after uploading firmware (Tools->Serial Monitor).
The console itself is simple to use, several commands are available. Type in command, press "Send". Help and hotkeys:
![console help screenshot](./m_console_help.png)
Every 30 sec. (**HUMAN_AUTOINFO** option) you'll see stats. For example, after a startup of your compressor, you'll see something like this:
![console statistics screenshot](./m_console_stats.png)
At this example, "hot in" ~30 °C, compressor ~80 °C and so on. Heat Pump (HP, compressor) ON, Hot water pump ON, Cold water pump ON. Power consumption 980 watts. Abbreviations: refer to Appendix A below.
Also, you'll see diagnostic messages in your serial console.
Do not connect +5V wire from USB-UART converter, if you are using a serial console.

## Control and usage: [Remote Control Display](https://github.com/openhp/Display/) This is a way for the end user to control Heat Pump.


End user does not want to know much about refrigerants, evaporation, discharge temperatures and so on, so this display designed as simple as it was possible. See [Remote Display page](https://github.com/openhp/Display/) for details. And yes, this display is open product too, with available Gerber, PCB and source code.

## Control and usage: [Service Display](https://github.com/openhp/ServiceDisplay/) One day I've realized that a netbook with a serial console is a good diagnostic tool, but I want a compact tool to get maximum available information from a Heat Pumps. So, this "Quickly Assembled Service Display" appeared. It fits everywhere and with a good power bank it can work 2-3 days long, without any additional power source. The diagnostic display is build from scratch, no PCB and housing here (and no plans to create it), because I do not see this service display as a permanently mounted device.


If you want a compact and visual tool - this device is for you, so check the [Service Display Page](https://github.com/openhp/ServiceDisplay/) .

## Starting up the heat pump system for the first time and charging refrigerant This is an easy part, but if you don't have experience it will take time.
You have performed a pressure test and vacuuming. It's time to charge your system.
Let's say you don't know how to calculate the amount of refrigerant in a recently built system, so follow next steps: - charge a small amount (for example 300 g) of refrigerant, - get ready for a system protective stops by Tae or Tbe temperature, this is a normal system behavior while refilling refrigerant, - power on your heat pump, - after compressor startup suction temperature will be about -20 ...- 40 °C (according to the suction pressure on the pressure gauge), - for single-component refrigerants: slightly open the valve of the HVAC gauge manifold and start adding refrigerant through the gas phase on the cold side, - for multi-component refrigerants: turn over the refrigerant cylinder, VERY SLIGHTLY open the HVAC manifold valve and start adding VERY LITTLE amounts through the liquid phase, - continue, until the suction temperature (according to the suction pressure on the manometer) is ~ 10 ... 12 °C lower than the temperature of the heat source (example: the temperature at the inlet of the mixture of water and antifreeze from the closed ground loop is + 8 °C, so the suction temperature should be -2 ..- 4), - close the manifold valve, - at every step check the discharge pressure: it should not be above the discharge sensor temperature (Tbc), - wait for the system to heat the target to an almost stable temperature, add little amounts of refrigerant while temperature increases (and suction decreases), - stop if you are sure that the heating process proceeding slowly, - take a final look and charge when the system is stable and the heat pump stops normally (setpoint is reached), this may take 12 hours or more, - after the final refilling difference between the suction pressure temperature and the Tae sensor temperature should be 3 ... 6 °C. This algo is good and safe both the first time and as a starting point. As you gain experience, you will get yours much easier and faster.
Also, use "manual EEV mode" during refilling process.
Keep your eyes protected and do not freeze your fingers.


## Hints For more information about Heat Pumps look at [Wikipedia HP page](https://en.wikipedia.org/wiki/Heat_pump).
If you want to know "how the refrigeration systems work", read Patrick Kotzaoglanian books.
If you want more technical details, sophisticated schemes, "how EEV can be driven by temperature" diagrams, etc. refer to vendor manuals (you'll find all you need in the Alfa Laval brochures, Danfoss guides, and so on).
For refrigerants and oils types comparison see wiki.

## Personal experience Note that the SCT013 sensor and the current monitoring scheme cannot be used for accurate measurements and accurate COP calculations. Use a watt meter for accurate power measurements.
Temperature sensor installation at a warm floor surface is a bad idea - it's better to get "hot in" water temperature coming from all over the floor, as implemented in firmware.
The weather-dependent (both outdoor and indoor temperature dependent) system does not work fine for 30-150 m2 buildings. Such a system is too complex and works unpredictable due to random ventilation. And also due to the unpredictability of heat emitted in the house by other sources.
I tried the scheme with a flooded evaporator in 2019 and found it terribly tricky, then refused to use it.
Deep regeneration schemes are useful only for some refrigerants and only in certain temperature ranges. I've tried deep regeneration too. As a result, the theory coincided with practice and I also refused this idea.
In general, it is possible by complicating the refrigeration scheme to win somewhere 1%, somewhere 3%, but all this leads to significant time and money cost getting suddenly a small profit.
Summary: If you want experiments - Experiment. Want reliably - make the system simple.



## Author
gonzho АТ web.de (c) 2018-2021
## Appendix A: Abbreviations Abbreviations used in the documentation and firmware.
Main sensors: | Abbr. | Full name | | ----- | -------------------- | | Tae | after evaporator | | Tbe | before evaporator | | Tci | cold side "input" | | Tco | cold side "output" | | Tbc | before condenser | | Tac | after condenser | | Thi | hot side "input" | | Tho | hot side "output" | | Tcrc | crankcase (compressor itself)| The additional sensor used in "swimming pool heater" or "water tank heater" schemes, check **SETPOINT_TS1** option: | Abbr. | Full name | | ----- | -------------------- | | Ts1 | additional sensor1 | Additional sensors, disabled and not used by default: | Abbr. | Full name | | ----- | -------------------- | | Treg | regenerator temperature| | Ts2 | additional sensor2 | Relays: | Abbr. | Full name | | ----- | -------------------- | | RCRCH | crankcase heater relay | | RC | cold side water pump relay | | RH | cold side water pump relay | | RP | heat pump (compressor) relay | Other: | Abbr. | Full name | | ----- | -------------------- | | LSM | LastStopCause | | LSC | LastStartMessage | | CWP/CCP | cold side water (circulating) pump | | HWP/HCP | cold side water (circulating) pump | | EEVP | EEV position | | HP | heat pump | ## Appendix B: LEDs LEDs allow you to make rapid diagnostics without connecting a serial console or a Service Display.
| LED | description | | ------------- | ------------- | | **EEV_opening** | EEV is opening | | **EEV_closing** | EEV is closing | | **EEV_fast** | EEV mode is "fast" (non-precise) | | **485_RX** | 485 transceiver is in listening state | | **485_TX** | 485 transceiver transmits a reply | | **Manual mode** | EEV in a manual mode | | **LSC: error** | Last stop was caused by an error. If you see this LED ON, it's a reason to connect either console or Service Display. Diagnostics required. | | **LSC: protection** | Last stop was caused by protection. In some cases (like long powered-on periods or refilling) this can occur. Here no recommendations about diagnostic, since all systems and operation conditions are different. This LED indicates that something exceeded normal run conditions. | | **OK** | System OK. | | **ERROR** | Something wrong: not all T sensors connected, one of the pressure sensors is not OK. Diagnostics required. | | **Relays LEDs** | Indicates corresponding relay state | ## Appendix C: Diagnostic and status messages **LastStopCause (LSC) messages. Why the compressor has stopped working.** | Message | description | | ------------- | ------------- | | **Normal_stop** | Normal stop, i.e. setpoint sensor temperature > setpoint, so heat not needed. | | **P.WtMax:_WATTS_** | Protective stop. Overcurrent, double-check your system, then **MAX_WATTS** and **POWERON_HIGHTIME** options. | | **P.W.wattMIN** | Protective stop. Abnormally low power consumption (Setp.** | "Hot in" temperature > setpoint, so no reason to start. | | **#Ts1>Setp.** | "Ts1" temperature > setpoint, so no reason to start. See **SETPOINT_TS1** option to switch between Thi and Ts1 as setpoint sensor. | | **HWP_OFF** | Setpoint sensor temperature > setpoint, so after some time (**HOTCIRCLE_STOP_AFTER** option) hot side pump powered off and gone to power saving mode. | | **HWP_ON_by_ev** | Hot side pump started after power saving. See **HOTCIRCLE_START_EVERY** option. | | **#HotPrp:_seconds_** | Hot side pump is on, waiting for T stabilization. Countdown, seconds. See **HOTCIRCLE_CHECK_PREPARE** option. | | **#HotSlp:_seconds_** | Hot side pump in power save mode (sleeping). Waiting for next startup. Countdown, seconds. See **HOTCIRCLE_START_EVERY** option. | | **#HPSlp:_seconds_** | Compressor: pause between starts. Countdown, seconds. **MINCYCLE_POWEROFF** option.| | **#CPpStart** | Cold side pump started. | | **#CPp:_seconds_** | Cold side pumping. Preparing the system to compressor start. Countdown, seconds. **COLDCIRCLE_PREPARE** option. | | **#Tho>Max** | "Hot out" temperature is too high. See **T_HOT_MAX** option. | | **#Thi>Max** | "Hot in" temperature is too high. See **T_HOT_MAX** option. | | **#CaseCold** | Compressor crankcase temperature is too low. The system can't start. This situation occurs on outdoor installations during a winter season and if AC power lost for a few hours. Wait, while the crankcase heater stabilizing your compressor temperature. See **T_CRANKCASE_MIN** option. | | **#CaseHot** | Compressor is still overheated, waiting. See **T_CRANKCASE_MAX** option. | | **#TaeMax** | "Before condenser" temperature is too high. Overheat protection. See **T_BEFORE_CONDENSER_MAX** option. | | **#Tci About sensors: avoid using cheap "waterproof epoxy-covered" sensors. "Waterproof" lasts for a short time.
Buy DS18B20s chips. No matter what sensors are buying: cheap or at a high price. I've never seen "bad" DSes. Solder sensors to the wires and cover with two layers of 2-component epoxy resin as pictured below. It will work for years. White/orange - GND, white/blue - signal, orange - +5V.


For sensors at your compressor and discharge (+100 °C and higher) use heat-resistant sleeves at every wire.


To get precise temperature readings protect sensors against ambient air temperature influence with additional thermal insulation. Temperature readings from most of the sensors are interesting, but +/- few degrees does not matter. So, cover most of the sensors with thermal insulation as you wish.
But two sensors "Before evaporator" and "After evaporator" are critical to EEV and needs an extra attention. The temperature of these sensors must be as close to the temperature of the copper tube as it possible. So, install Tae and Tbe sensors as pictured below. You can use thermal paste, but it is no significant difference with much more available silicone. Tape not shown at photos below, for clarity, but should be used with every insulation layer.


About water(glycol)<->refrigerant heat exchangers. You can use plate heat exchangers. Pros: the best efficiency. Cons: costs money. Potential oil return difficulties.


And oxygen brazing with (20%+)silver+copper solder required here:


You can build your own "tube-in-tube" heat exchangers. It's not hard. Cheaper. The heat exchange efficiency is worse. No oil return problems. Very easy soldering. Heat exchanger math: 0.7..1.5 m2 of a copper tube per every 3kW of heat transfer.


Additionally, you can think "I'll take an old AC parts... Housing... Slightly change... An hour or two, day of work maximum and I'll get a refrigerant<->water heat exchanger in for a penny!". This idea is obvious. It was the first thing I've tried. You can try this, but to achieve "not very bad" performance it'll take more than a one day and much more than a few $$, even if you have unlimited access to older ACs.
Ok, I think that's enough for this appendix, this is a controller page, and not how-to-build-refrigeration-systems page.
Overall, your system with sensor locations will look like at a scheme below. Refrigerators (heat pumps) are simple devices.


Your system works (or sleeps) depending on Thi temperature. For the end user it looks like setting up comfortable temperature of the warm floor via Remote Display. ## Appendix E: Firmware options and fine-tuning QA tests, uncomment to enable ```c //#define SELFTEST_RELAYS_LEDS_SPEAKER //speaker and relays QA test, uncomment to enable //#define SELFTEST_EEV //EEV QA test, uncomment to enable //#define SELFTEST_T_SENSORS //temperature sensors QA test, uncomment to enable ``` Communication protocol with an external world. Choose one ```c //#define RS485_JSON 1 //JSON, external systems integration //#define RS485_HUMAN 2 //RS485 is used in the same way as the local console, warning: Use only if 2 devices (server and this controller) connected to the same RS485 line #define RS485_MODBUS 3 //default, MODBUS via RS485, connection to the display (both sensor or 1602, see https://GitHub.com/OpenHP/Display/) or connection to any other MODBUS application or device ``` System type, comment both if HP with EEV ```c //#define EEV_ONLY //Valden controller as EEV controller: NO target T sensor. No relays. Oly EEV. Sensors required: Tae, Tbe, current sensor. Additional T sensors can be used but not required. //#define NO_EEV //capillary tube or TXV, EEV not used ``` Sensor used to check setpoint, uncomment one of those options ```c #define SETPOINT_THI //"warm floor" scheme: "hot in" (Thi) temperature used as setpoint //#define SETPOINT_TS1 //"swimming pool" or "water tank heater" scheme: "sensor 1" (Ts1) is used as setpoint and located somewhere in a water tank ``` Some more options ```c #define HUMAN_AUTOINFO 30000 //print stats to console, every milliseconds #define WATCHDOG //disable for older bootloaders ``` Next sections: advanced options

Temperature sensors used in a system, comment to disable ```c #define T_cold_in; //cold side (heat source) inlet sensor #define T_cold_out; //cold side outlet sensor #define T_before_evaporator; //"before" and "after evaporator" sensors required to control EEV, both "EEV_ONLY" and "full" schemes #define T_after_evaporator; //"before" and "after evaporator" sensors required to control EEV, both "EEV_ONLY" and "full" schemes #ifdef SETPOINT_TS1 #define T_sensor_1; //T values from the additional sensor S1 used as a "setpoint" in "pool" or "water tank heater" schemes #endif //#define T_sensor_2; //additional sensor, any source; for example, outdoor temperature, in-case temperature, and so on #define T_crc; //if defined, enables the crankcase T sensor and crankcase heater on the relay "Crankcase heater" //#define T_regenerator; //an additional sensor, the regenerator temperature sensor (inlet or outlet or housing); used only to obtain a temperature data if necessary #define T_afrer_condenser; //after condenser (and before valve) #define T_before_condenser; //before condenser (discharge) #define T_hot_out; //hot side outlet //In full scheme Hot IN required! Optional in "EEV_ONLY" scheme (see "EEV_ONLY" option), #define T_hot_in; //hot side inlet ``` Temperature limits ```c #define MAGIC 0x66; //change this value if you want to rewrite the T setpoint in EEPROM #define T_SETPOINT 26.0; //This is a predefined target temperature value (start temperature). EEPROM-saved. Ways to change this value: 1. Console command 2. Change the "setpoint" on a display 3. Change value here AND change "magic number" 4. JSON command #define T_SETPOINT_MAX 48.0; //maximum "setpoint" temperature that an ordinary user can set #define T_SETPOINT_MIN 10.0; //min. "setpoint" temperature that an ordinary user can set, lower values not recommended until antifreeze fluids at hot side used. #define T_CRANKCASE_MIN 8.0; //compressor (crankcase) min. temperature, HP will not start if T lower #define T_CRANKCASE_MAX 110.0; //compressor (crankcase) max. temperature, overheating protection, HP will stop if T higher #define T_CRANKCASE_HEAT_THRESHOLD 16.0;//crankcase heater threshold, the compressor heater will be powered on if T lower #define T_WORKINGOK_CRANKCASE_MIN 25.0;//compressor temperature: additional check. HP will stop if T is lower than this value after 5 minutes of work. Do not set the value too high to ensure normal operation after long pauses. #define T_BEFORE_CONDENSER_MAX 108.0; //discharge MAX, system stops if discharge higher #define T_COLDREF_MIN -14.0; //suction min., HP stops if T lower, cold side (glycol) loop freeze protection and compressor protection against liquid #define T_BEFORE_EVAP_WORK_MIN -25.5; //!!!before evaporator (after valve) min. T; can be very low for a few minutes after a startup, ex: capillary tube in some conditions; and for all systems: after long shut-off, lack of refrigerant, 1st starts, and many others #define T_COLD_MIN -15.5; //cold side (glycol) loop freeze protection: HP stops if inlet or outlet temperature lower #define T_HOT_MAX 50.0; //hot loop: HP stops if hot side inlet or outlet temperature higher than this threshold ``` Watts, cycles times (milliseconds) ```c #define MAX_WATTS 1000.0 + 70.0 + 80.0 //power limit, watt, HP stops if exceeded, example: compressor: ~1000 + hot CP 70 + cold CP 80 #define POWERON_PAUSE 300000 //after power on: wait 5 minutes before starting HP (power faults protection) #define MINCYCLE_POWEROFF 600000 //after a normal compressor stop: 10 minutes pause (max 99999 seconds) #define MINCYCLE_POWERON 3600000 //after compressor start: minimum compressor operation time, i.e. work time is not less than this value (or more, depending on the setpoint temperature) 60 minutes = 3.6 KK 120mins = 5.4 kK. #define POWERON_HIGHTIME 7000 //after compressor start: defines time when power consumption can be 3 times greater than normal, 7 sec. by default #define COLDCIRCLE_PREPARE 90000 //before compressor start: power on cold CP and wait 90 sec.; if false start: CP will off twice this time; and (hotcircle_stop_after - this_value) must be > hotcircle_check_prepare or HP will go sleep cycle instead of start #define DEFFERED_STOP_HOTCIRCLE 1200000 //after compressor stop: wait 20 minutes, if no need to start compressor: stop hot WP; value must be > 0 #define HOTCIRCLE_START_EVERY 2400000 //while pauses: pump on "hot side" starts every 40 minutes (by default) (max 9999 seconds) to circulate water and get exact temperature reading, option used if "warm floor" installation (Thi as setpoint)... #define HOTCIRCLE_CHECK_PREPARE 150000 //while pauses: ...and wait for temperature stabilization 2.5 minutes (by default), after that do setpoint checks... #define HOTCIRCLE_STOP_AFTER (HOTCIRCLE_CHECK_PREPARE + COLDCIRCLE_PREPARE + 30000) //...and then stop after few minutes of circulating, if temperature is high and no need to start compressor; value must be check_prepare + coldcircle_prepare + 30 seconds (or more) ``` EEV options.

If you are using a capillary tube or TXV: simply skip next section.
Depending on how many milliseconds allocated per step, the speed of automatic tuning will change.
Remember that your refrigeration system reaction on every step is not immediate. The system reacts after a few minutes, sometimes after tens of minutes.
```c #define EEV_MAXPULSES 250 //max steps, 250 is tested for sanhua 1.3 //steps tuning: milliseconds per fast and slow (precise) steps #define EEV_PULSE_FCLOSE_MILLIS 20 //fast closing, closing on danger (milliseconds per step) #define EEV_PULSE_CLOSE_MILLIS 60000 //accurate closing while the compressor works (milliseconds per step) #define EEV_PULSE_WOPEN_MILLIS 20 //standby (waiting) pos. set (milliseconds per step) #define EEV_PULSE_FOPEN_MILLIS 1400 //fast opening, fast search (milliseconds per step) #define EEV_PULSE_OPEN_MILLIS 70000 //accurate opening while the compressor works (milliseconds per step) #define EEV_STOP_HOLD 500 //0.1..1sec for Sanhua hold time (milliseconds per step) #define EEV_CLOSEEVERY 86400000 //86400000: EEV full close (zero calibration) every 24 hours, executed while HP is NOT working (milliseconds per cycle) //positions #define EEV_CLOSE_ADD_PULSES 8 //read below, additional steps after zero position while full closing #define EEV_OPEN_AFTER_CLOSE 45 //0 - set the zero position, then add EEV_CLOSE_ADD_PULSES (zero insurance, read EEV guides for this value) and stop, EEV will be in zero position. //N - set the zero position, then add EEV_CLOSE_ADD_PULSES, than open EEV on EEV_OPEN_AFTER_CLOSE pulses //i.e. it's a "waiting position" while HP isn't working, value must be <= MINWORKPOS #define EEV_MINWORKPOS 50 //position will be not less during normal work, open EEV to this position after compressor start //temperatures #define EEV_PRECISE_START 7.0 //precise tuning threshold: make slower pulses if (real_diff-target_diff) less than this value. Used for fine auto-tuning #define EEV_EMERG_DIFF 1.7 //liquid at suction threshold: if dangerous condition occurred, real_diff =< (target_diff - EEV_EMERG_DIFF) then EEV will be closed to min. work position //Ex: EEV_EMERG_DIFF = 2.0, target diff 5.0, if real_diff =< (5.0 - 2.0) then EEV will be closed to EEV_MINWORKPOS #define EEV_HYSTERESIS 0.5 //hysteresis, to stop fine-tuning: must be less than EEV_PRECISE_START, ex: target difference = 4.0, hysteresis = 0.3, no EEV pulses will be done while real difference in range 4.0..4.3 #define EEV_TARGET_TEMP_DIFF 3.6 //target difference between Before Evaporator and After Evaporator, the head of the whole algorithm //additional options #define EEV_REOPENLAST 1 //1 = reopen to last position on compressor start, useful for ordinary schemes with everyday working cycles, 0 = not #define EEV_REOPENMINTIME 40000 //after system start: min. delay between "min. work pos." (must be > 0 in this case and > waiting position) set and reopening start //#define EEV_MANUAL //comment to disable, manual set of EEV position via a console; warning: this option will stop all EEV auto-activities, including zero position find procedure; so this option not recommended: switch auto/manual mode from a console //do not use next option if you're not sure what are you doing //#define EEV_DEBUG //debug, useful during system fine-tuning, works both with local serial and RS485_HUMAN ``` Communication addresses ```c const char devID = 0x45; //used only if JSON communication, does not matter for MODBUS and Valden display https://github.com/OpenHP/Display/ const char hostID = 0x30; //used only if JSON communication, not used for MODBUS ``` Last option ```c #define MAX_SEQUENTIAL_ERRORS 15 //max cycles to wait auto-clean error, ex: T sensor appears, stop compressor after counter exceeded (millis_cycle * MAX_SEQUENTIAL_ERRORS) ``` ## Appendix D: bill of materials
| Part | Quantity | | ------------- | ------------- | | **1206 Resistors:** || | 10 | 1 | | 100 | 1 | | 120 | 1 | | 1K | 7 | | 10K | 6 | | 100K | 2 | | 22 | 1 | | 2.2K | 4 | | 470 | 10 | | **1206 Caps:** || | 0.01uF | 2 | | 0.1uF | 4 | | 1uF | 8 | | 10uF | 5 | | **1206 LEDs:** || | Red (error LEDs) | 2 | | Green (OK LED) | 1 | | Yellow | 11 | | **SOP(SOIC) ICs:** | | | ADM2587EBRWZ (SOIC-20) | 1 | | 74HC4067D (SOIC-24) | 1 | | 74HC595D (SOP-16) | 3 | | ULN2003A_(SOP-16) | 2 | | 817S (SOP-4) | 2 | | **XH2.54 Headers + Plugs:** | | | XH2.54-6P header + 6P plug | 4 | | XH2.54-3P header + 3P plugs | 2 | | XH2.54-2P header + 2P Plugs | 1 | | XH2.54 Crimp terminal | 40 | | **Power terminals:** | | | 6.35 Blade terminal (726386-2 or same) | 16 | | 6.35 Quick disconnect crimp terminal insulated | 16 | | **Others:** | | | 10nF HV-9.0x3.0 (blue disc 2kV HV cap) | 1 | | 22uf_16v D5.0xF2.0 (electrolytic cap) | 1 | | Resistor Network\*4 DIP-1X5P-2.54 (3..5K) | 3 | | MMBT2222A (SOT-23-3) | 1 | | LM7805 (TO-220) | 1 | | SMIH-12VDC-SL-C | 4 | | BUZZER-R9.0-2P-4.0 | 1 | | ARDUINO PRO MINI | 1 | | Power supply, 12v1.25A 70x30x40 (or any 0.5A+)| 1 | | DS18B20 | 12 | | USB<->UART (to upload firmware) | 1 | | Current sensor SCT-013-000 | 1 | ## License © 2018-2021 D.A.A. All rights reserved; gonzho AT web.de; https://github.com/openhp/HeatPumpController/.
Text, media and other materials licensed under [CC-BY-SA License v4.0](https://creativecommons.org/licenses/by-sa/4.0/).
Attribution: You must clearly attribute Valden Heat Pump Controller (https://github.com/openhp/HeatPumpController/) original work in any derivative works.
Share and Share Alike: If you make modifications or additions to the content you re-use, you must license them under the CC-BY-SA License v4.0 or later.
Indicate changes: If you make modifications or additions, you must indicate in a reasonable fashion that the original work has been modified.
You are free: to share and adapt the material for any purpose, even commercially, as long as you follow the license terms.
The firmware source code licensed under [GPLv3](https://www.gnu.org/licenses/gpl-3.0.en.html).
This product is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
For third-party libraries licenses used in this product please refer to those libraries.
## Author
gonzho АТ web.de (c) 2018-2021
================================================ FILE: Valden_HeatPumpController.ino ================================================ /* Valden Heat Pump. Heat Pump Controller firmware. https://github.com/OpenHP/ Copyright (C) 2018-2021 gonzho@web.de This program is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 3 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program. If not, see . */ //-----------------------USER OPTIONS----------------------- //#define SELFTEST_RELAYS_LEDS_SPEAKER //speaker and relays QA test, uncomment to enable //#define SELFTEST_EEV //EEV QA test, uncomment to enable //#define SELFTEST_T_SENSORS //temperature sensors QA test, uncomment to enable //communication protocol with external world //#define RS485_JSON 1 //json, external systems integration //#define RS485_HUMAN 2 //RS485 is used in the same way as the local console, warning: Use only if 2 devices (server and this controller) connected to the same RS485 line #define RS485_MODBUS 3 //default, MODBUS via RS485, connection to the display (both sensor or 1602, see https://GitHub.com/OpenHP/Display/) or connection to any other MODBUS application or device //system type, comment both if HP with EEV //#define EEV_ONLY //Valden controller as EEV controller: NO target T sensor. No relays. Oly EEV. Sensors required: Tae, Tbe, current sensor. Additional T sensors can be used but not required. //#define NO_EEV //capillary tube or TXV, EEV not used //which sensor is used to check setpoint, uncomment one of options #define SETPOINT_THI //"warm floor" scheme: "hot in" (Thi) temperature used as setpoint //#define SETPOINT_TS1 //"swimming pool" or "water tank heater" scheme: "sensor 1" (Ts1) is used as setpoint and located somewhere in a water tank #define HUMAN_AUTOINFO 30000 //print stats to console, every milliseconds #define WATCHDOG //disable for older bootloaders //-----------------------USER OPTIONS END----------------------- //-----------------------Fine Tuning OPTIONS----------------------- //next sections: advanced options //-----------------------T Sensors ----------------------- //temperature sensors used in a system, comment to disable #define T_cold_in; //cold side (heat source) inlet sensor #define T_cold_out; //cold side outlet sensor #define T_before_evaporator; //"before" and "after evaporator" sensors required to control EEV, both "EEV_ONLY" and "full" schemes #define T_after_evaporator; //"before" and "after evaporator" sensors required to control EEV, both "EEV_ONLY" and "full" schemes //#define T_separator_gas; //no longer used (PCB 1.3 MI +) artifact from experimental scheme with separator //#define T_separator_liquid; //no longer used (PCB 1.3 MI +) artifact from experimental scheme with separator //#define T_before_valve; //no longer used (PCB 1.3 MI +) artifact from experimental scheme with separator //#define T_suction; //no longer used (PCB 1.3 MI +) artifact from experimental scheme with separator #ifdef SETPOINT_TS1 #define T_sensor_1; //T values from the additional sensor S1 used as a "setpoint" in "pool" or "water tank heater" schemes #endif //!!! #define T_sensor_2; //additional sensor, any source; for example, outdoor temperature, in-case temperature, and so on #define T_crc; //if defined, enables the crankcase T sensor and crankcase heater on the relay "Crankcase heater" //#define T_regenerator; //an additional sensor, the regenerator temperature sensor (inlet or outlet or housing); used only to obtain a temperature data if necessary #define T_afrer_condenser; //after condenser (and before valve) //!!!#define T_before_condenser; //before condenser (discharge) #define T_hot_out; //hot side outlet //In full scheme Hot IN required! Optional in "EEV_ONLY" scheme (see "EEV_ONLY" option), #define T_hot_in; //hot side inlet //-----------------------TEMPERATURES----------------------- #define MAGIC 0x66; //change this value if you want to rewrite the T setpoint in EEPROM #define T_SETPOINT 26.0; //This is a predefined target temperature value (start temperature). EEPROM-saved. Ways to change this value: 1. Console command 2. Change the "setpoint" on a display 3. Change value here AND change "magic number" 4. JSON command #define T_SETPOINT_MAX 48.0; //maximum "setpoint" temperature that an ordinary user can set #define T_SETPOINT_MIN 10.0; //min. "setpoint" temperature that an ordinary user can set, lower values not recommended until antifreeze fluids at hot side used. #define T_CRANKCASE_MIN 8.0; //compressor (crankcase) min. temperature, HP will not start if T lower #define T_CRANKCASE_MAX 110.0; //compressor (crankcase) max. temperature, overheating protection, HP will stop if T higher #define T_CRANKCASE_HEAT_THRESHOLD 16.0; //crankcase heater threshold, the compressor heater will be powered on if T lower #define T_WORKINGOK_CRANKCASE_MIN 25.0; //compressor temperature: additional check. HP will stop if T is lower than this value after 5 minutes of work. Do not set the value too high to ensure normal operation after long pauses. #define T_BEFORE_CONDENSER_MAX 108.0; //discharge MAX, system stops if discharge higher #define T_COLDREF_MIN -14.0; //suction min., HP stops if T lower, cold side (glycol) loop freeze protection and compressor protection against liquid #define T_BEFORE_EVAP_WORK_MIN -25.5; //!!!before evaporator (after valve) min. T; can be very low for a few minutes after a startup, ex: capillary tube in some conditions; and for all systems: after long shut-off, lack of refrigerant, 1st starts, and many others #define T_COLD_MIN -15.5; //cold side (glycol) loop freeze protection: HP stops if inlet or outlet temperature lower #define T_HOT_MAX 50.0; //hot loop: HP stops if hot side inlet or outlet temperature higher than this threshold //#define T_REG_HEAT_THRESHOLD 17.0; //no longer used (PCB 1.3 MI +) artifact from experimental scheme with separator //#define T_HOTCIRCLE_DELTA_MIN 2.0; //not used since ~FW v1.6, "water heater with intermediate heat exchanger" scheme, where Ts1 == "sensor in water"; hot side CP will be switched on if "Ts1 - hot_out > T_HOTCIRCLE_DELTA_MIN" //-----------------------WATTS AND CYCLES TIMES----------------------- //time: milliseconds, power: watts #define MAX_WATTS 1000.0 + 70.0 + 80.0 //power limit, watt, HP stops if exceeded, examples: // installation1: compressor 165: 920 Watts, + 35 watts 25/4 circ. pump at 1st speed + 53 watts 25/4 circ. pump at 2nd speed // installation2: compressor unk: ~1000 + hot CP 70 + cold CP 80 = 1150 watts // installation3: and so on #define POWERON_PAUSE 300000 //after power on: wait 5 minutes before starting HP (power faults protection) #define MINCYCLE_POWEROFF 600000 //after a normal compressor stop: 10 minutes pause (max 99999 seconds) #define MINCYCLE_POWERON 3600000 //after compressor start: minimum compressor operation time, i.e. work time is not less than this value (or more, depending on the setpoint temperature) 60 minutes = 3.6 KK 120mins = 5.4 kK. #define POWERON_HIGHTIME 7000 //after compressor start: defines time when power consumption can be 3 times greater than normal, 7 sec. by default #define COLDCIRCLE_PREPARE 90000 //before compressor start: power on cold CP and wait 90 sec.; if false start: CP will off twice this time; and (hotcircle_stop_after - this_value) must be > hotcircle_check_prepare or HP will go sleep cycle instead of start #define DEFFERED_STOP_HOTCIRCLE 1200000 //after compressor stop: wait 20 minutes, if no need to start compressor: stop hot WP; value must be > 0 #define HOTCIRCLE_START_EVERY 2400000 //while pauses: pump on "hot side" starts every 40 minutes (by default) (max 9999 seconds) to circulate water and get exact temperature reading, option used if "warm floor" installation (Thi as setpoint)... #define HOTCIRCLE_CHECK_PREPARE 150000 //while pauses: ...and wait for temperature stabilization 2.5 minutes (by default), after that do setpoint checks... #define HOTCIRCLE_STOP_AFTER (HOTCIRCLE_CHECK_PREPARE + COLDCIRCLE_PREPARE + 30000) //...and then stop after few minutes of circulating, if temperature is high and no need to start compressor; value must be check_prepare + coldcircle_prepare + 30 seconds (or more) //-----------------------EEV----------------------- //If you are using a capillary tube or TXV: simply skip next section. //Depending on how many milliseconds allocated per step, the speed of automatic tuning will change. //Remember that your refrigeration system reaction on every step is not immediate. The system reacts after a few minutes, sometimes after tens of minutes. #define EEV_MAXPULSES 250 //max steps, 250 is tested for sanhua 1.3 //steps tuning: milliseconds per fast and slow (precise) steps #define EEV_PULSE_FCLOSE_MILLIS 20 //(20 tube evaporator) fast closing, closing on danger (milliseconds per step) #define EEV_PULSE_CLOSE_MILLIS 45000 //(50000 tube evaporator) accurate closing while the compressor works (milliseconds per step) #define EEV_PULSE_WOPEN_MILLIS 20 //(20 tube evaporator) standby (waiting) pos. set (milliseconds per step) #define EEV_PULSE_FOPEN_MILLIS 1400 //(1300 tube evaporator) fast opening, fast search (milliseconds per step) #define EEV_PULSE_OPEN_MILLIS 30000 //(60000 tube evaporator) accurate opening while the compressor works (milliseconds per step) #define EEV_STOP_HOLD 500 //0.1..1sec for Sanhua hold time (milliseconds per step) #define EEV_CLOSEEVERY 86400000 //86400000: EEV full close (zero calibration) every 24 hours, executed while HP is NOT working (milliseconds per cycle) //positions #define EEV_CLOSE_ADD_PULSES 8 //read below, additional steps after zero position while full closing #define EEV_OPEN_AFTER_CLOSE 45 //0 - set the zero position, then add EEV_CLOSE_ADD_PULSES (zero insurance, read EEV guides for this value) and stop, EEV will be in zero position. //N - set the zero position, then add EEV_CLOSE_ADD_PULSES, than open EEV on EEV_OPEN_AFTER_CLOSE pulses //i.e. it's a "waiting position" while HP isn't working, value must be <= MINWORKPOS #define EEV_MINWORKPOS 50 //position will be not less during normal work, open EEV to this position after compressor start //temperatures #define EEV_PRECISE_START 8.6 //(8.6 tube evaporator) precise tuning threshold: make slower pulses if (real_diff-target_diff) less than this value. Used for fine auto-tuning #define EEV_EMERG_DIFF 1.7 //(2.5 tube evaporator) liquid at suction threshold: if dangerous condition occurred, real_diff =< (target_diff - EEV_EMERG_DIFF) then EEV will be closed to min. work position //Ex: EEV_EMERG_DIFF = 2.0, target diff 5.0, if real_diff =< (5.0 - 2.0) then EEV will be closed to EEV_MINWORKPOS #define EEV_HYSTERESIS 0.45 //(0.6 tube evaporator) hysteresis, to stop fine tuning: must be less than EEV_PRECISE_START, ex: target difference = 4.0, hysteresis = 0.3, no EEV pulses will be done while real difference in range 4.0..4.3 #define EEV_TARGET_TEMP_DIFF 3.6 //(3.6 tube evaporator) target difference between Before Evaporator and After Evaporator, the head of the whole algorithm //additional options #define EEV_REOPENLAST 1 ///1 = reopen to last position on compressor start, useful for ordinary schemes with everyday working cycles, 0 = not #define EEV_REOPENMINTIME 40000 //after system start: min. delay between "min. work pos." (must be > 0 in this case and > waiting position) set and reopening start //#define EEV_MANUAL //comment to disable, manual set of EEV position via a console; warning: this option will stop all EEV auto-activities, including zero position find procedure; so this option not recommended: switch auto/manual mode from a console //do not use next option if you're not sure what are you doing //#define EEV_DEBUG //debug, useful during system fine-tuning, works both with local serial and RS485_HUMAN //-----------------------ADDRESSES----------------------- const char devID = 0x45; //used only if JSON communication, does not matter for MODBUS and Valden display https://github.com/OpenHP/Display/ const char hostID = 0x30; //used only if JSON communication, not used for MODBUS //-----------------------OTHER----------------------- #define MAX_SEQUENTIAL_ERRORS 15 //max cycles to wait auto-clean error, ex: T sensor appears, stop compressor after counter exceeded (millis_cycle * MAX_SEQUENTIAL_ERRORS) //-----------------------Fine Tuning OPTIONS END ----------------------- //-----------------------changelog----------------------- /* v1.0, 01 Sep 2019: + initial version, hardware and software branch ready v1.1: 21 Sep 2019: + Dev and Host ID to header v1.2: 20 Dec 2019: +- ?seems to be fixed minor bug while HP stopped: wattage is 0, if tCrc < T_CRANKCASE_HEAT_THRESHOLD and may be few sensors absence + min_user_t/max_user_t to header v1.3: 05 Jan 2020: + manual EEV mode (high priority, ex: new system 1st starts and charge) + rs485_modbus + reopen to last EEV value at startup v1.4: 22 Jan 2020 + crankcase naming v1.5: 05 Jun 2020 + minor modbus updates v1.6: 09 Dec 2020 + NO_EEV option + some variables renames + Tho instead of Thi (stop conditions) bugfix + Last Start Message added v1.7: 03 Feb 2021 + 1.3 PCB revision support, previous revisions also supported + enable cold circle if tci < col_min (circulate ground loop, if outdoor installation and very cold and deep freeze) + inputs support + add option "Thi" and "Ts1" to header, enable Ts1 by this option + temperature check after start of hot side circle + 5 mins for Thi target v1.8: 06 Feb 2021 + very rare case: 0.0 readings, 2-3 attempts then pass 0.0 + countdown for compressor relay after cold CP start (stab. cold loop T) + self-test options to header v1.9-1.11: 25-27 Feb 2021: + lot of small workflow logic and user terminal changes v1.12: 21 Mar 2021: + TS1/THO #define way fix + CWP and HWP prepare optimisation v1.13: 26 Mar 2021: + rounding error via Modbus found and fixed //TODO: ? lower bit resolution for all sensors, except Tbe, Tae, Ts1 ? ? poss. DoS: infinite read to nowhere, fix it, set finite counter (ex: 200) ? add "heater start" and "cold circle start" and "not start HP" if t_crc < t_coldin/coldout(?)/tae/tbe(?) + 2.0 ? ref. migration protection for summer season with long waiting periods: start cold circle and crankcase heater if tCrc =< tci+1, add option to header ? EEV manual mode and position by RS485 python or modbus command ? ? add speaker and err code for ""ERR: no Tae or Tbe for EEV!"" ? deffered HWP stop: check HP stop cause, stop HWP if protective/error stop ? wclose and fclose to EEV ? valve_4way ? rewite re-init proc from MAGIC to another way ? EEV: target to EEPROM (?? no need ?) ? EEV: define maximum working position */ //-----------------------changelog END----------------------- // DS18B20 pins: GND DATA VDD //Connections: //DS18B20 Pinout (Left to Right, pins down, flat side toward you) //- Left = Ground //- Center = Signal (Pin N of arduino): (with 3.3K to 4.7K resistor to +5 or 3.3 ) //- Right = +5 or +3.3 V // //Speaker // // high volume scheme: +---- +5V (12V not tested) // | // +----+ // 1MOhm piezo // +----+ // |(C) // pin -> 1.6 kOhms -> (B) 2n2222 < front here // |(E) // +--- GND // /* scheme SCT-013-000: 2 pins used: tip and sleeve, center (ring) not used http://cms.35g.tw/coding/wp-content/uploads/2014/09/SCT-013-000_UNO-1.jpg pins are interchangeable due to AC 32 Ohms (22+10) between sensor pins (35 == ideal) Pin1: - via elect. cap. to GND - via ~10K..470K resistor to GND - via ~10K..470K resistor to +5 (same as prev.) if 10K+10K used: current is 25mA use 100K+100K for 3 phases Pin2: - to analog pin - via 32..35 Ohms resistor to Pin1 +5 -------------------------+ | | # R1 10K+ | | |~2.5 at this point +---------------+--------------------------------------+----+ | | | | #_ elect. cap. # R2 10K+ (same as R1) SCT-013-000 $ # R3 = 35 Ohms (ideal case), 32 used | | | | GND --------+---------------+ +----+--------> to Analog pin WARNING: calibrate 3 sensors together, from different sellers, due to case of incorrectly worked 1 of 3 sensor P(watts)=220*220/R(Ohms) */ // //MAX 485 voltage - 5V // // use resistor at RS-485 GND // 1st test: 10k result lot of issues // 2nd test: 1k, issues // 3rd test: 100, see discussions //16-ch Multiplexer EN pin: active LOW, connect to GND /* relay 1: heat pump relay 2: hot side circulator pump relay 3: cold side circulator pump relay 4: crankcase heater relay 5: (1.3+: not used anymore) relay 6: reserved relay 7: reserved T sensors: 0 cold_in; 1 cold_out; 2 before_evaporator; 3 after_evaporator; 4 separator_gas; //if flooded evaporator: separator out 5 separator_liquid; //if flooded evaporator: separator out 6 before_valve; //before expansion valve, if regenerator used 7 suction; //compressor suction, if regenerator 8 sensor_1; //additional sensor 1 9 sensor_2; //additional sensor 2 A crankcase; //compressor case B regenerator; C afrer_condenser; D before_condenser; E hot_out; F hot_in; */ String fw_version = "1.13"; //hardware resources #define RELAY_HEATPUMP A2 #define RELAY_HOTSIDE_CIRCLE A1 #define PR_LOW A6 #define PR_HIGH A7 #define OW_BUS_ALLTSENSORS 9 #define speakerOut 6 #define em_pin1 A3 String hw_version = "v1.1+"; #define LATCH_595 3 #define CLK_595 2 #define DATA_595 7 #define OE_595 4 //---------------------------memory debug #ifdef __arm__ // should use uinstd.h to define sbrk but Due causes a conflict extern "C" char* sbrk(int incr); #else // __ARM__ extern char *__brkval; #endif // __arm__ int freeMemory() { char top; #ifdef __arm__ return &top - reinterpret_cast(sbrk(0)); #elif defined(CORE_TEENSY) || (ARDUINO > 103 && ARDUINO != 151) return &top - __brkval; #else // __arm__ return __brkval ? &top - __brkval : &top - __malloc_heap_start; #endif // __arm__ } //---------------------------memory debug END #include #include #define SEED 0xFFFF #define POLY 0xA001 unsigned int crc16; int cf; #define MODBUS_MR 50 //50 ok now #include #define SerialRX 12 //RX connected to RO - Receiver Output #define SerialTX 11 //TX connected to DI - Driver Output Pin #define SerialTxControl 13 //RS485 Direction control DE and RE to this pin #define RS485Transmit HIGH #define RS485Receive LOW SoftwareSerial RS485Serial(SerialRX, SerialTX); // RX, TX #include #include //library's DEVICE_DISCONNECTED_C -127.0 OneWire ow_ALLTSENSORS(OW_BUS_ALLTSENSORS); DallasTemperature s_allTsensors(&ow_ALLTSENSORS); DeviceAddress dev_addr; //temp //short names used to prevent unreadeable source #ifdef T_cold_in bool TciE = 1; #else bool TciE = 0; #endif double Tci = -127.0; #ifdef T_cold_out bool TcoE = 1; #else bool TcoE = 0; #endif double Tco = -127.0; #ifdef T_before_evaporator bool TbeE = 1; #else bool TbeE = 0; #endif double Tbe = -127.0; #ifdef T_after_evaporator bool TaeE = 1; #else bool TaeE = 0; #endif double Tae = -127.0; /* #ifdef T_separator_gas bool TsgE = 1; #else bool TsgE = 0; #endif double Tsg = -127.0; #ifdef T_separator_liquid bool TslE = 1; #else bool TslE = 0; #endif double Tsl = -127.0; #ifdef T_before_valve bool TbvE = 1; #else bool TbvE = 0; #endif double Tbv = -127.0; #ifdef T_suction bool TsucE = 1; #else bool TsucE = 0; #endif double Tsuc = -127.0; */ #ifdef T_sensor_1 bool Ts1E = 1; #else bool Ts1E = 0; #endif double Ts1 = -127.0; #ifdef T_sensor_2 bool Ts2E = 1; #else bool Ts2E = 0; #endif double Ts2 = -127.0; #ifdef T_crc bool TcrcE = 1; #else bool TcrcE = 0; #endif double Tcrc = -127.0; #ifdef T_regenerator bool TregE = 1; #else bool TregE = 0; #endif double Treg = -127.0; #ifdef T_afrer_condenser bool TacE = 1; #else bool TacE = 0; #endif double Tac = -127.0; #ifdef T_before_condenser bool TbcE = 1; #else bool TbcE = 0; #endif double Tbc = -127.0; #ifdef T_hot_out bool ThoE = 1; #else bool ThoE = 0; #endif double Tho = -127.0; #ifdef T_hot_in bool ThiE = 1; #else bool ThiE = 0; #endif double Thi = -127.0; double T_setpoint = T_SETPOINT; double T_setpoint_lastsaved = T_setpoint; double T_EEV_setpoint = EEV_TARGET_TEMP_DIFF; double T_EEV_dt = 0.0; //real, used during run const double cT_setpoint_max = T_SETPOINT_MAX; const double cT_setpoint_min = T_SETPOINT_MIN; //const double cT_hotcircle_delta_min = T_HOTCIRCLE_DELTA_MIN; const double cT_crc_min = T_CRANKCASE_MIN; const double cT_crc_max = T_CRANKCASE_MAX; const double cT_crc_heat_threshold = T_CRANKCASE_HEAT_THRESHOLD; //const double cT_reg_heat_threshold = T_REG_HEAT_THRESHOLD; const double cT_before_condenser_max = T_BEFORE_CONDENSER_MAX; const double cT_coldref_min = T_COLDREF_MIN; const double cT_before_evap_work_min = T_BEFORE_EVAP_WORK_MIN; const double cT_cold_min = T_COLD_MIN; const double cT_hot_max = T_HOT_MAX; //const double cT_workingOK_cold_delta_min = 0.5; // 0.7 - 1st try, 2nd try 0.5 //const double cT_workingOK_hot_delta_min = 0.5; const double cT_workingOK_crc_min = T_WORKINGOK_CRANKCASE_MIN; //need to be not very high to normal start after deep freeze const double c_wattage_max = MAX_WATTS; //FUNAI: 1000W seems to be normal working wattage INCLUDING 1(one) CR25/4 at 3rd speed //PH165X1CY : 920 Watts, 4.2 A const double c_workingOK_wattage_min = c_wattage_max/5; // unsigned int pr_low_state_anal = 0; //sensors are NC for spec. conditions, so 1 == ok, 0 == error unsigned int pr_high_state_anal = 0; // bool pr_low_state_bool = 1; //sensors are NC for spec. conditions, so 1 == ok, 0 == error bool pr_high_state_bool = 1; // bool heatpump_state = 0; bool hotside_circle_state = 0; bool coldside_circle_state = 0; bool crc_heater_state = 0; //bool reg_heater_state = 0; //bool relay6_state = 0; //bool relay7_state = 0; bool LED_OK_state = 0; bool LED_ERR_state = 0; bool S0_state = 0; bool S1_state = 0; bool S2_state = 0; bool S3_state = 0; bool EEV1_state = 0; bool EEV2_state = 0; bool EEV3_state = 0; bool EEV4_state = 0; const long poweron_pause = POWERON_PAUSE ; //default 5 mins const long mincycle_poweroff = MINCYCLE_POWEROFF; //default 5 mins const long mincycle_poweron = MINCYCLE_POWERON ; //default 60 mins bool _1st_start_sleeped = 0; //??? TODO: periodical start ? //const long floor_circle_maxhalted = 6000000; //circle NOT works max 100 minutes const long deffered_stop_hotcircle = DEFFERED_STOP_HOTCIRCLE; int EEV_cur_pos = 0; int EEV_reopen_pos = 0; bool EEV_must_reopen_flag = 0; int EEV_apulses = 0; //for async bool EEV_adonotcare = 0; const unsigned char EEV_steps[4] = {0b1010, 0b0110, 0b0101, 0b1001}; char EEV_cur_step = 0; bool EEV_fast = 0; #ifdef EEV_MANUAL bool EEV_manual = 1; #else bool EEV_manual = 0; #endif const bool c_EEV_reopenlast = EEV_REOPENLAST; //main cycle vars unsigned long millis_prev = 0; unsigned long millis_now = 0; unsigned long millis_cycle = 1000; unsigned long millis_last_heatpump_on = 0; unsigned long millis_last_heatpump_off = 0; unsigned long millis_last_hotWP_on = 0; unsigned long millis_last_hotWP_off = 0; unsigned long millis_last_coldWP_off = 0; unsigned long millis_notification = 0; unsigned long millis_notification_interval = 33000; unsigned long millis_displ_update = 0; unsigned long millis_displ_update_interval = 10000; unsigned long millis_escinput_485 = 0; unsigned long millis_charinput_485 = 0; unsigned long millis_escinput_local = 0; unsigned long millis_charinput_local = 0; unsigned long millis_lasteesave = 0; unsigned long millis_last_printstats = 0; unsigned long millis_eev_last_close = 0; unsigned long millis_eev_last_on = 0; unsigned long millis_eev_last_step = 0; unsigned long millis_eev_minworkpos_time = 0; unsigned long millis_eev_last_work = 0; unsigned long tmic1 = 0; unsigned long tmic2 = 0; int skipchars_485 = 0; int skipchars_local = 0; #define BUFSIZE 150 unsigned char dataBuf[BUFSIZE+1]; // Allocate some space for the string, do not change that size! char inChar= -1; // space to store the character read byte index = 0; // Index into array; where to store the character //-------------temporary variables char temp[10]; int i = 0; int u = 0; int z = 0; int x = 0; int y = 0; double tempdouble = 0.0; double tempdouble_intpart = 0.0; int tempint = 0; bool tempbool = 0; char fp_integer = 0; char fp_fraction = 0; String outString; String lastStopCauseTxt; //20 reserved, but use 12 chars of text max bool fl_printSS_lastStopCauseTxt = 0; //flag to call printSS #define LSCint_normal 0 #define LSCint_protective 1 #define LSCint_error 2 int LSCint = LSCint_normal; //0 = normal, 1 = protective, 2 = error String lastStartMsgTxt; //same as LSC bool fl_printSS_lastStartMsgTxt = 0; //flag to call printSS String t_sensorErrString; char convBuf[13]; //-------------EEPROM int eeprom_magic_read = 0x00; int eeprom_addr = 0x00; //initial values, saved to EEPROM and can be modified later //CHANGE eeprom_magic after correction! const int eeprom_magic = MAGIC; //-------------ERROR states #define ERR_OK 0 #define ERR_T_SENSOR 1 #define ERR_P_HI 2 #define ERR_P_LO 3 int errorcode = 0; unsigned char sequential_errors = 0; //--------------------------- for wattage #define ADC_BITS 10 //10 fo regular arduino #define ADC_COUNTS (1<>1; //Low-pass filter output double sqI_1,sumI_1 = 0; //sq = squared, sum = Sum, inst = instantaneous double async_Irms_1 = 0; double async_wattage = 0; //--------------------------- for wattage END const char str1[] PROGMEM = "Valden Heat Pump Controller, https://github.com/OpenHP/\n\r\n\rCommands: \n\r(?) help\n\r(-) decrease setpoint T\n\r\n\r(+) increase setpoint T"; const char str2[] PROGMEM = "(<) decrease EEV T diff \n\r(>) increase EEV T diff\n\r\n\r(M) manual EEV mode\n\r(A) auto EEV mode\n\r\n\r(z) -1 EEV\t(Z) -10 EEV\n\r(x) +1 EEV\t(X) +10 EEV\n\r(G) get stats"; const char str3[] PROGMEM = "EEV:auto"; const char str4[] PROGMEM = "EEV:manual"; const char str5[] PROGMEM = "N/A,auto"; const char str6[] PROGMEM = "+10 ok"; const char str7[] PROGMEM = "-10 ok"; const char str8[] PROGMEM = "+1 ok"; const char str9[] PROGMEM = "-1 ok"; const char str10[] PROGMEM = "Max!"; const char str11[] PROGMEM = "Min!"; const char str12[] PROGMEM = "HWP ON by Setp. update"; const char str13[] PROGMEM = "EE->mem"; const char str14[] PROGMEM = "mem->EE"; const char str15[] PROGMEM = "OK:E.T.Sens."; const char str16[] PROGMEM = "OK:Pr.Cold"; const char str17[] PROGMEM = "OK:Pr.Hot"; const char str18[] PROGMEM = "HWP_ON"; const char str19[] PROGMEM = "unkn_F"; PGM_P const const_strs[] PROGMEM = { str1, str2, str3, str4, str5, str6, str7, str8, str9, str10, str11, str12, str13, str14, str15, str16, str17, str18, str19 }; #define IDX_HELP1 0 #define IDX_HELP2 1 #define IDX_EEVAUTO 2 #define IDX_EEVMANUAL 3 #define IDX_NAAUTO 4 #define IDX_PLUS10_OK 5 #define IDX_MINUS10_OK 6 #define IDX_PLUS1_OK 7 #define IDX_MINUS1_OK 8 #define IDX_MAX 9 #define IDX_MIN 10 #define IDX_HWP_ONBYUPD 11 #define IDX_EEtoMEM 12 #define IDX_MEMtoEE 13 #define IDX_OK_ETSENS 14 #define IDX_OK_PRCOLD 15 #define IDX_OK_PRHOT 16 #define IDX_HWPON 17 #define IDX_UNKNF 18 //--------------------------- functions long ReadVcc() { // Read 1.1V reference against AVcc // set the reference to Vcc and the measurement to the internal 1.1V reference #if defined(__AVR_ATmega32U4__) || defined(__AVR_ATmega1280__) || defined(__AVR_ATmega2560__) ADMUX = _BV(REFS0) | _BV(MUX4) | _BV(MUX3) | _BV(MUX2) | _BV(MUX1); #elif defined (__AVR_ATtiny24__) || defined(__AVR_ATtiny44__) || defined(__AVR_ATtiny84__) ADMUX = _BV(MUX5) | _BV(MUX0); #elif defined (__AVR_ATtiny25__) || defined(__AVR_ATtiny45__) || defined(__AVR_ATtiny85__) ADMUX = _BV(MUX3) | _BV(MUX2); #else ADMUX = _BV(REFS0) | _BV(MUX3) | _BV(MUX2) | _BV(MUX1); #endif delay(2); // Wait for Vref to settle ADCSRA |= _BV(ADSC); // Start conversion while (bit_is_set(ADCSRA,ADSC)); // measuring uint8_t low = ADCL; // must read ADCL first - it then locks ADCH uint8_t high = ADCH; // unlocks both long result = (high<<8) | low; //constant NOT same as in battery controller! result = 1126400L / result; // Calculate Vcc (in mV); (me: !!) 1125300 (!!) = 1.1*1023*1000 return result; // Vcc in millivolts } /*void PrintS (String str) { #ifdef RS485_HUMAN char *outChar=&str[0]; digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outChar); RS485Serial.println(); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif }*/ void PrintSS (String str) { char *outChar=&str[0]; if (str == "") { return; } #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outChar); RS485Serial.println(); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif Serial.println(outChar); Serial.flush(); } void PrintSSch(char idx) { strcpy_P(dataBuf, (PGM_P)pgm_read_word(&const_strs[idx])); Serial.println((const char *) dataBuf); #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print((const char *) dataBuf); RS485Serial.println(); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif } void PrintSS_SaD (double num) { //global string + double #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outString); RS485Serial.println(num); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif Serial.print(outString); Serial.println(num); Serial.flush(); } void PrintSS_SaBl (bool num) { #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outString); RS485Serial.println(num); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif Serial.print(outString); Serial.println(num); Serial.flush(); } void ApToOut_D (double num) { outString += String(num); } void PrintSS_SaI (int num) { #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outString); RS485Serial.println(num); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif Serial.print(outString); Serial.println(num); Serial.flush(); } /*void PrintSS_SaI (int num) { //global string + double #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outString); RS485Serial.println(num); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif Serial.print(outString); Serial.println(num); Serial.flush(); }*/ void _PrintHelp(void) { PrintSS("fw: " + fw_version + " board: "+ hw_version); PrintSSch(IDX_HELP1); #ifndef NO_EEV PrintSSch(IDX_HELP2); #endif } void PrintSS_double (double double_to_print) { dtostrf(double_to_print,1,2,temp); PrintSS(temp); } void Add_Double_To_Buf_IntFract (double float_to_convert) { //uses tempdouble tempdouble_intpart fp_integer fp_fraction if (float_to_convert > 255.0 || float_to_convert < -127.0) { fp_integer = -127; fp_fraction = 0; } else { tempdouble = modf (float_to_convert , &tempdouble_intpart); fp_integer = trunc(tempdouble_intpart); tempdouble = tempdouble * 100; fp_fraction = round(tempdouble); } dataBuf[i] = fp_integer; i++; dataBuf[i] = fp_fraction; i++; /* Serial.println(float_to_convert); Serial.println(fp_integer, DEC); Serial.println(fp_fraction, DEC);*/ } void IntFract_to_tempdouble (char _int_to_convert, char _fract_to_convert) { //fract is also signed now! tempdouble = (double) _fract_to_convert / 100; tempdouble += _int_to_convert; /*Serial.println(_int_to_convert); Serial.println(_fract_to_convert); Serial.println(tempdouble);*/ } void _ProcessInChar(void){ //remote commands +,-,G,0x20/?/Enter/A/M/x/X/z/Z switch (inChar) { case 0x00: break; case 0x20: _PrintHelp(); break; case 0x3F: _PrintHelp(); break; case 0x0D: _PrintHelp(); break; case 0x2B: Inc_T(); break; case 0x2D: Dec_T(); break; #ifndef NO_EEV case 0x3C: Dec_E(); break; case 0x3E: Inc_E(); break; case 0x41: EEV_manual = 0; PrintSSch(IDX_EEVAUTO); break; #endif case 0x47: PrintStats_SS(); millis_last_printstats = millis_now; break; #ifndef NO_EEV case 0x4D: EEV_manual = 1; PrintSSch(IDX_EEVMANUAL); break; case 0x58: //+10 if (EEV_manual != 1){ PrintSSch(IDX_NAAUTO); break; } EEV_apulses += 10; EEV_fast = 1; PrintSSch(IDX_PLUS10_OK); break; case 0x5A: //-10 if (EEV_manual != 1){ PrintSSch(IDX_NAAUTO); break; } EEV_apulses -= 10; EEV_fast = 1; PrintSSch(IDX_MINUS10_OK); break; case 0x78: //+1 if (EEV_manual != 1){ PrintSSch(IDX_NAAUTO); break; } EEV_apulses += 1; EEV_fast = 1; PrintSSch(IDX_PLUS1_OK); break; case 0x7A: //-1 if (EEV_manual != 1){ PrintSSch(IDX_NAAUTO); break; } EEV_apulses += 10; EEV_fast = 1; PrintSSch(IDX_MINUS1_OK); break; #endif } } int Inc_T (void) { if (T_setpoint + 0.5 > cT_setpoint_max) { PrintSSch(IDX_MAX); delay (200); return 0; } T_setpoint += 0.5; PrintSS_double(T_setpoint); return 1; } int Dec_T (void) { if (T_setpoint - 0.5 < cT_setpoint_min) { PrintSSch(IDX_MIN); delay (200); return 0; } T_setpoint -= 0.5; PrintSS_double(T_setpoint); return 1; } int Inc_E (void) { ///!!! unprotected T_EEV_setpoint += 0.25; PrintSS_double(T_EEV_setpoint); return 1; } int Dec_E (void) { ///!!! unprotected T_EEV_setpoint -= 0.25; PrintSS_double(T_EEV_setpoint); return 1; } void _HotWPon_by_Setpoint_update(void){ //if setpoint updated: start hot circle to check temperature if ( (heatpump_state == 0) && (hotside_circle_state == 0) && ((unsigned long)(millis_now - millis_last_hotWP_on) < HOTCIRCLE_START_EVERY) ) { //process START_EVERY for hot side millis_last_hotWP_off = millis_now; hotside_circle_state = 1; PrintSSch(IDX_HWP_ONBYUPD); } } void PrintStats_SS (void) { if (TciE) { outString = F("\n\r---\n\r\tTbe:\t") ; PrintSS_SaD(Tbe); } if (TaeE) { outString = F("\tTae:\t") ; PrintSS_SaD(Tae); } if (TcoE) { outString = F("\tTci:\t"); PrintSS_SaD(Tci); } if (TcoE) { outString = F("\tTco:\t") ; PrintSS_SaD(Tco); } //if (TsgE) { outString = F("\tTsg: ") ; PrintSS_SaD(Tsg); } //if (TslE) { outString = F("\tTsl: ") ; PrintSS_SaD(Tsl); } //if (TbvE) { outString = F("\tTbv: ") ; PrintSS_SaD(Tbv); } //if (TsucE) { outString = F("\tTsuc: ") ; PrintSS_SaD(Tsuc); } if (Ts1E) { outString = F("\tTs1:\t") ; PrintSS_SaD(Ts1); } if (Ts2E) { outString = F("\tTs2:\t") ; PrintSS_SaD(Ts2); } //Tcrc misorder due to large string if (TregE) { outString = F("\tTreg:\t") ; PrintSS_SaD(Treg); } if (TbcE) { outString = F("\tTbc:\t") ; PrintSS_SaD(Tbc); } if (TacE) { outString = F("\tTac:\t") ; PrintSS_SaD(Tac); } if (ThiE) { outString = F("\tThi:\t") ; PrintSS_SaD(Thi); } if (ThoE) { outString = F("\tTho:\t") ; PrintSS_SaD(Tho); } if (TcrcE) { outString = F("\tTcrankcase:\t"); PrintSS_SaD(Tcrc); }//misorder due to large string outString = F("\tSetpoint:\t"); PrintSS_SaD(T_setpoint); outString = F("\n\r\tHP:\t"); PrintSS_SaBl(heatpump_state); outString = F("\tHWP:\t"); PrintSS_SaBl(hotside_circle_state); outString = F("\tCWP:\t"); PrintSS_SaBl(coldside_circle_state); outString = F("\tCRCheat:"); PrintSS_SaBl(crc_heater_state); outString = F("\tWatts:\t") ; PrintSS_SaD(async_wattage); #ifndef NO_EEV outString = F("\n\r\tT_EEV_setpoint: "); PrintSS_SaD(T_EEV_setpoint); outString = "\tEEV_pos:\t"; PrintSS_SaI(EEV_cur_pos); #endif outString = "\n\r\tErr:\t"; PrintSS_SaI(errorcode); outString = F("\tPr.Cold:") ; if (pr_low_state_bool == 1) { outString += F("OK"); } else { outString += F("ERR"); } outString += F("\n\r\tPr.Hot:\t") ; if (pr_high_state_bool == 1) { outString += F("OK"); } else { outString += F("ERR"); } outString += F("\n\r\n\r\tLast Stop Cause:\t"); outString += lastStopCauseTxt; outString += F("\n\r\tLast Start Message:\t"); outString += lastStartMsgTxt; outString += F("\n\r---\n\r"); PrintSS(outString); #ifdef RS485_HUMAN digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); RS485Serial.print(outString); RS485Serial.println(); RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); #endif } void Calc_CRC(unsigned char b) { //uses/changes y crc16 ^= b & 0xFF; for (y=0; y<8; y++) { cf = crc16 & 0x0001; crc16>>=1; if (cf) { crc16 ^= POLY; } } } void CheckIsInvalidCRCAddr(unsigned char *addr) { if (OneWire::crc8( addr, 7) != addr[7] ) { i+= 1; } } void WriteFloatEEPROM(int addr, float val) { byte *x = (byte *)&val; for(byte u = 0; u < 4; u++) EEPROM.write(u+addr, x[u]); } float ReadFloatEEPROM(int addr) { byte x[4]; for(byte u = 0; u < 4; u++) x[u] = EEPROM.read(u+addr); float *y = (float *)&x; return y[0]; } void SaveSetpointEE(void) { if( (T_setpoint_lastsaved != T_setpoint) && ( ((unsigned long)(millis_now - millis_lasteesave) > 15*60*1000 ) || (millis_lasteesave == 0) ) ) { eeprom_addr = 1; WriteFloatEEPROM(eeprom_addr, T_setpoint); millis_lasteesave = millis_now; T_setpoint_lastsaved = T_setpoint; } } double GetT (int channel) { S0_state = bitRead(channel,0); S1_state = bitRead(channel,1); S2_state = bitRead(channel,2); S3_state = bitRead(channel,3); halifise(); tempdouble = -127.0; for ( i = 0; i < 8; i++) { #ifdef WATCHDOG wdt_reset(); #endif eevise(); tempdouble = s_allTsensors.getTempCByIndex(0); if ( (tempdouble == 85.0) || (tempdouble < -55.0) || (tempdouble == 0.0) || (tempdouble > 125.0) ) { //0.0 added to test //outString = F("Warn:T_SensReRead!"); //PrintSS_SaD(tempdouble); if ( tempdouble == 85.0 || tempdouble == 0.0 ) { //initial value in dallas register after poweron s_allTsensors.requestTemperatures(); //!!!added to test, seems to work ok delay (375); //375 actual for 11 bits resolution, 2-3 retries OK for 12-bits resolution } else { delay (37); } } else { break; } } s_allTsensors.requestTemperatures(); if ( (tempdouble > 125.0) || (tempdouble < -55.0)) { //incorrect readings protection, rare tempdouble = -127.0; } return tempdouble; } //older version of GetT /*double GetT (int channel) { S0_state = bitRead(channel,0); S1_state = bitRead(channel,1); S2_state = bitRead(channel,2); S3_state = bitRead(channel,3); halifise(); tempdouble = -127.0; for ( i = 0; i < 8; i++) { #ifdef WATCHDOG wdt_reset(); #endif eevise(); tempdouble = s_allTsensors.getTempCByIndex(0); if ( (tempdouble == 85.0) || (tempdouble == -127.0) ) { if ( tempdouble == 85.0 ) { //initial value in dallas register after poweron s_allTsensors.requestTemperatures();//!!! added to test delay (375); //375 actual for 11 bits resolution, 2-3 retries OK for 12-bits resolution } else { delay (37); } } else { break; } } s_allTsensors.requestTemperatures(); return tempdouble; }*/ void GetTemperatures(void){ if (TciE) { Tci = GetT(0);} if (TcoE) { Tco = GetT(1);} if (TbeE) { Tbe = GetT(2);} if (TaeE) { Tae = GetT(3);} //if (TsgE) { Tsg = GetT(4);} //if (TslE) { Tsl = GetT(5);} //if (TbvE) { Tbv = GetT(6);} //if (TsucE) { Tsuc = GetT(7);} if (Ts1E) { Ts1 = GetT(8);} if (Ts2E) { Ts2 = GetT(9);} if (TcrcE) { Tcrc = GetT(10);} if (TregE) { Treg = GetT(11);} if (TacE) { Tac = GetT(12);} if (TbcE) { Tbc = GetT(13);} if (ThoE) { Tho = GetT(14);} if (ThiE) { Thi = GetT(15);} } void on_EEV(){ x = EEV_steps[EEV_cur_step]; EEV1_state = bitRead(x, 0); EEV2_state = bitRead(x, 1); EEV3_state = bitRead(x, 2); EEV4_state = bitRead(x, 3); halifise(); } void off_EEV(){ EEV1_state = 0; EEV2_state = 0; EEV3_state = 0; EEV4_state = 0; //PrintSS("off_EEV"); halifise(); } void halifise(void){ /* relay 1: heat pump relay 2: hot side circulator pump relay 3: cold side circulator pump relay 4: crankcase heater (no more v1.3mi) relay 5: #define RELAY_HEATPUMP A2 #define RELAY_HOTSIDE_CIRCLE A1 Reg 1: 595.0: 4067 S3 595.1: 4067 S0 595.2: 4067 S1 595.3: 4067 S2 595.4: EEV_1 595.5: EEV_2 595.6: EEV_3 595.7: EEV_4 Reg 2: 595.8: !! free 595.9: ok/err LED 2 595.A: Relay 6 595.B: Relay 7 595.C: Relay 5 595.D: Relay 4 595.E: Relay 3 595.F: ok/err LED 1 Reg 3: 595.10: LED "EEV opening" 595.11: LED "EEV closing" 595.12: LED "EEV Fast" 595.13: LED "485 RX" 595.14: LED "485 TX" 595.15: LED "Manual mode" 595.16: LED "LSC: error" 595.17: LED "LSC: protection" */ digitalWrite(LATCH_595, 0); //17 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); if (LSCint == LSCint_protective) { digitalWrite(DATA_595, 1); } else { digitalWrite(DATA_595, 0); } digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //16 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); if (LSCint == LSCint_error) { digitalWrite(DATA_595, 1); } else { digitalWrite(DATA_595, 0); } digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //15 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV_manual); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //14 tempbool = digitalRead (13); digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, tempbool); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //13 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, !tempbool); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //12 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV_fast); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //11 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); if ( EEV_apulses < 0 ) { digitalWrite(DATA_595, 1); } else { digitalWrite(DATA_595, 0); } digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //10 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); if ( EEV_apulses > 0 ) { digitalWrite(DATA_595, 1); } else { digitalWrite(DATA_595, 0); } digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //F digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, LED_ERR_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //E digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, coldside_circle_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //D digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, crc_heater_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //C digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); //digitalWrite(DATA_595, reg_heater_state); digitalWrite(DATA_595, 0); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //B digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); //digitalWrite(DATA_595, relay7_state); digitalWrite(DATA_595, 0); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //A digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); //digitalWrite(DATA_595, relay6_state); digitalWrite(DATA_595, 0); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //9 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, LED_OK_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //8 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, 0); //FREE digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //7 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV4_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //6 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV3_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //5 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV2_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //4 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, EEV1_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //3 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, S2_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //2 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, S1_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //1 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, S0_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); //0 digitalWrite(CLK_595, 0); __asm__ __volatile__ ("nop\n\t"); digitalWrite(DATA_595, S3_state); digitalWrite(CLK_595, 1); __asm__ __volatile__ ("nop\n\t"); digitalWrite(CLK_595, 0); // digitalWrite(LATCH_595, 1); __asm__ __volatile__ ("nop\n\t"); digitalWrite(LATCH_595, 0); digitalWrite (RELAY_HEATPUMP, heatpump_state); digitalWrite (RELAY_HOTSIDE_CIRCLE, hotside_circle_state); } void eevise(void) { if ( ((( EEV_apulses < 0 ) && (EEV_fast == 1)) && ((unsigned long)(millis_now - millis_eev_last_step) > (EEV_PULSE_FCLOSE_MILLIS)) ) || ((( EEV_apulses < 0 ) && (EEV_fast == 0)) && ((unsigned long)(millis_now - millis_eev_last_step) > (EEV_PULSE_CLOSE_MILLIS) ) ) || ((( EEV_apulses > 0 ) && (EEV_cur_pos < EEV_MINWORKPOS )) && ((unsigned long)(millis_now - millis_eev_last_step) > (EEV_PULSE_WOPEN_MILLIS) ) ) || ((( EEV_apulses > 0 ) && (EEV_fast == 1) && (EEV_cur_pos >= EEV_MINWORKPOS )) && ((unsigned long)(millis_now - millis_eev_last_step) > (EEV_PULSE_FOPEN_MILLIS) ) ) || ((( EEV_apulses > 0 ) && (EEV_fast == 0) && (EEV_cur_pos >= EEV_MINWORKPOS )) && ((unsigned long)(millis_now - millis_eev_last_step) > (EEV_PULSE_OPEN_MILLIS) ) ) || (millis_eev_last_step == 0) ) { if ( EEV_apulses != 0 ) { if ( EEV_apulses > 0 ) { if (EEV_cur_pos + 1 <= EEV_MAXPULSES) { EEV_cur_pos += 1; EEV_cur_step += 1; EEV_apulses -= 1; } else { EEV_apulses = 0; //PrintSS("EEmax!"); } } if ( EEV_apulses < 0 ) { if ( (EEV_cur_pos - 1 >= EEV_MINWORKPOS) || (EEV_adonotcare == 1) ) { EEV_cur_pos -= 1; EEV_cur_step -= 1; EEV_apulses += 1; } else { EEV_apulses = 0; //PrintSS("EEmin!"); } } if (EEV_cur_step > 3) EEV_cur_step = 0; if (EEV_cur_step < 0) EEV_cur_step = 3; x = EEV_steps[EEV_cur_step]; EEV1_state = bitRead(x, 0); EEV2_state = bitRead(x, 2); //!!!here pins are swapped fot sanhua EEV3_state = bitRead(x, 1); //!!!here pins are swapped fot sanhua EEV4_state = bitRead(x, 3); } if (EEV_cur_pos < 0) { EEV_cur_pos = 0; } millis_eev_last_step = millis_now; #ifdef EEV_DEBUG PrintSS(String(EEV_cur_pos)); #endif halifise(); } } //--------------------------- functions END void setup(void) { pinMode (LATCH_595, OUTPUT); pinMode (CLK_595, OUTPUT); pinMode (DATA_595, OUTPUT); pinMode (OE_595, OUTPUT); pinMode (RELAY_HEATPUMP, OUTPUT); pinMode (RELAY_HOTSIDE_CIRCLE, OUTPUT); pinMode (PR_LOW, INPUT); pinMode (PR_HIGH, INPUT); digitalWrite (LATCH_595, LOW); digitalWrite (CLK_595, LOW); digitalWrite (DATA_595, LOW); digitalWrite (OE_595, LOW); digitalWrite (RELAY_HEATPUMP, LOW); digitalWrite (RELAY_HOTSIDE_CIRCLE, LOW); halifise(); #ifdef WATCHDOG wdt_disable(); delay(2000); #endif // start serial port Serial.begin(9600); //Serial.print("Starting, dev_id:"); //Serial.println(devID); RS485Serial.begin(9600); pinMode(SerialTxControl, OUTPUT); pinMode(SerialTX, OUTPUT); pinMode(SerialRX, INPUT); digitalWrite(SerialTxControl, RS485Receive); delay(100); PrintSS("ID: 0x" + String(devID, HEX)); delay(200); off_EEV(); pinMode (em_pin1, INPUT); //PrintSS("setpoint (C):"); //PrintSS(setpoint); //PrintSS(String(freeMemory())); s_allTsensors.begin(); s_allTsensors.setWaitForConversion(false); //ASYNC mode, request before get, see Dallas library for details //----------------------------- self-tests ----------------------------- ----------------------------- ----------------------------- /* index = 0; outChar[index] = 0xFF; index++; outChar[index] = 0xAA; index++; outChar[index] = 0xBB; index++; outChar[index] = 0xCC; index++; crc16 = SEED; for (z = 0; z < index; z++) { Calc_CRC(outChar[z]); } outChar[index]=crc16 & 0xFF; index++; outChar[index]=crc16 >> 8; index++; outChar[index]=0x00; index++; Serial.println(crc16, HEX); for (z = 0; z < index; z++) { Serial.print(" "); Serial.print(outChar[z], HEX); } Serial.println(" "); */ //Relays self-test #if (defined SELFTEST_RELAYS_LEDS_SPEAKER || defined SELFTEST_EEV || defined SELFTEST_T_SENSORS) while ( 1 == 1) { #if defined SELFTEST_RELAYS_LEDS_SPEAKER PrintSS(F("Relays and LEDS self-test")); analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); heatpump_state = 1; halifise(); delay(1000); hotside_circle_state = 1; halifise(); delay(1000); coldside_circle_state = 1; halifise(); delay(1000); crc_heater_state = 1; halifise(); delay(1000); //reg_heater_state = 1; halifise(); delay(1000); //relay6_state = 1; halifise(); delay(1000); //relay7_state = 1; halifise(); delay(1000); EEV_apulses = 10; halifise(); delay(1000); EEV_apulses = -10; halifise(); delay(1000); EEV_fast = 1; halifise(); delay(1000); digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1000); EEV_manual = 1; halifise(); delay(1000); LSCint = LSCint_error; halifise(); delay(1000); LSCint = LSCint_protective; halifise(); delay(1000); LED_OK_state = 1; halifise(); delay(1000); LED_ERR_state = 1; halifise(); delay(1000); analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); heatpump_state = 0; halifise(); delay(1000); hotside_circle_state = 0; halifise(); delay(1000); coldside_circle_state = 0; halifise(); delay(1000); crc_heater_state = 0; halifise(); delay(1000); //reg_heater_state = 0; halifise(); delay(1000); //relay6_state = 0; halifise(); delay(1000); //relay7_state = 0; halifise(); delay(1000); EEV_apulses = 10; halifise(); delay(1000); EEV_apulses = -10; halifise(); delay(1000); EEV_fast = 0; halifise(); delay(1000); digitalWrite(SerialTxControl, RS485Receive); halifise(); delay(1000); digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1000); EEV_manual = 0; halifise(); delay(1000); LSCint = LSCint_error; halifise(); delay(1000); LSCint = LSCint_protective; halifise(); delay(1000); LED_OK_state = 0; halifise(); delay(1000); LED_ERR_state = 0; halifise(); delay(1000); analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); #endif #if defined SELFTEST_EEV EEV_apulses = 0; EEV_fast = 0; halifise(); delay(1000); //EEV self-test, also can be used for compressor test //vacuuming/charge via low pressure side: leave EEV opened //PrintSS("EEV self-test"); EEV_apulses = -(EEV_MAXPULSES + EEV_CLOSE_ADD_PULSES); EEV_adonotcare = 1; EEV_fast = 1; while (EEV_apulses < 0){ millis_now = millis(); eevise(); } analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); delay(1000); //EEV_apulses = EEV_MAXPULSES; EEV_apulses = 50; EEV_fast = 1; while (EEV_apulses > 0){ millis_now = millis(); eevise(); } analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); delay(1000); #endif #if defined SELFTEST_T_SENSORS GetTemperatures(); outString=F("Tbe: "); PrintSS_SaD(Tbe); outString=F("Tae: "); PrintSS_SaD(Tae); outString=F("Tci: "); PrintSS_SaD(Tci); outString=F("Tco: "); PrintSS_SaD(Tco); outString=F("Tbc: "); PrintSS_SaD(Tbc); outString=F("Tac: "); PrintSS_SaD(Tac); outString=F("Thi: "); PrintSS_SaD(Thi); outString=F("Tho: "); PrintSS_SaD(Tho); outString=F("Ts1: "); PrintSS_SaD(Ts1); outString=F("Tcrc: "); PrintSS_SaD(Tcrc); outString=F("Ts2: "); PrintSS_SaD(Ts2); outString=F("Treg: "); PrintSS_SaD(Treg); analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); delay(1000); #endif //---------DEBUG END-------- } #endif //----------------------------- self-test END----------------------------- ----------------------------- ----------------------------- eeprom_magic_read = EEPROM.read(eeprom_addr); eeprom_addr += 1; //EEPROM content: 0x00 - magic, 0x01..0x04 target value if (eeprom_magic_read == eeprom_magic){ PrintSSch(IDX_EEtoMEM); } else { PrintSSch(IDX_MEMtoEE); WriteFloatEEPROM(eeprom_addr, T_setpoint); EEPROM.write(0x00, eeprom_magic); } T_setpoint = ReadFloatEEPROM(eeprom_addr); PrintSS_double(T_setpoint); //eeprom_addr += 4; T_setpoint_lastsaved = T_setpoint; #ifdef WATCHDOG wdt_enable (WDTO_8S); #endif GetTemperatures(); outString.reserve(80); lastStopCauseTxt.reserve(20); lastStartMsgTxt.reserve(20); t_sensorErrString.reserve(12); //PrintSS(String(freeMemory())); LED_OK_state = 1; _PrintHelp(); analogWrite(speakerOut, 10); delay (1500); analogWrite(speakerOut, 0); lastStopCauseTxt = F("Start Pause"); lastStartMsgTxt = ""; } void loop(void) { digitalWrite(SerialTxControl, RS485Receive); millis_now = millis(); halifise(); eevise(); if (((unsigned long)(millis_now - millis_last_printstats) > HUMAN_AUTOINFO) || (millis_last_printstats == 0) ) { PrintStats_SS(); millis_last_printstats = millis_now; } //--------------------async fuctions start if (em_i == 0) { supply_voltage = ReadVcc(); } if (em_i < em_samplesnum) { sampleI_1 = analogRead(em_pin1); // Digital low pass filter extracts the 2.5 V or 1.65 V dc offset, then subtract this - signal is now centered on 0 counts. offsetI_1 = (offsetI_1 + (sampleI_1-offsetI_1)/1024); filteredI_1 = sampleI_1 - offsetI_1; // Root-mean-square method current // 1) square current values sqI_1 = filteredI_1 * filteredI_1; // 2) sum sumI_1 += sqI_1; em_i += 1; } else { em_i = 0; double I_RATIO = em_calibration *((supply_voltage/1000.0) / (ADC_COUNTS)); async_Irms_1 = I_RATIO * sqrt(sumI_1 / em_samplesnum); async_wattage = async_Irms_1*220.0; //Reset accumulators sumI_1 = 0; //----------------------------- self-test !!! /* PrintSS("Async impl. results 1: "); PrintSS(String(async_wattage)); // Apparent power PrintSS(String(async_Irms_1)); // Irms PrintSS(" voltage: "); PrintSS(String(supply_voltage)); */ //----------------------------- self-test END } eevise(); //--------------------async fuctions END if ( heatpump_state == 1 && async_wattage > c_wattage_max ) { if ( ((unsigned long)(millis_now - millis_last_heatpump_off) > POWERON_HIGHTIME ) || (async_wattage > c_wattage_max*3)) { millis_last_heatpump_on = millis_now; heatpump_state = 0; LSCint = LSCint_protective; halifise(); lastStopCauseTxt = ("P.WtMax:") + String(async_wattage); PrintSS(lastStopCauseTxt); } } //-------------------check cycle if( ((unsigned long)(millis_now - millis_prev) > millis_cycle ) || (millis_prev == 0) ) { millis_prev = millis_now; GetTemperatures(); // wdt_reset here due to 85.0'C filtration SaveSetpointEE(); pr_low_state_anal = analogRead(PR_LOW); // pr_high_state_anal = analogRead(PR_HIGH); //shotrcut test shows 993-994 for analogRead (10.4ma) if (pr_low_state_anal > 200) { pr_low_state_bool = 1; } else { pr_low_state_bool = 0; } if (pr_high_state_anal > 200) { pr_high_state_bool = 1; } else { pr_high_state_bool = 0; } //--------------------important logic //check T sensors if ( errorcode == ERR_OK ) { if (TbeE == 1 && Tbe == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tbe");} if (TaeE == 1 && Tae == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tae");} if (TciE == 1 && Tci == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tci");} if (TcoE == 1 && Tco == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tco");} if (TbcE == 1 && Tbc == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tbc");} if (TacE == 1 && Tac == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tac");} if (ThiE == 1 && Thi == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Thi");} if (ThoE == 1 && Tho == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tho");} //if (TsgE == 1 && Tsg == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tsg");} //if (TslE == 1 && Tsl == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tsl");} //if (TbvE == 1 && Tbv == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tbv");} //if (TsucE == 1 && Tsuc == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tsuc");} if (Ts1E == 1 && Ts1 == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Ts1");} if (Ts2E == 1 && Ts2 == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Ts2");} if (TcrcE == 1 && Tcrc == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Tcrc");} if (TregE == 1 && Treg == -127 ) {errorcode = ERR_T_SENSOR; outString = F("E.Treg");} if (errorcode == ERR_T_SENSOR){ //PrintSS(String(outString)); t_sensorErrString = String(outString); //printed to console below } } //auto-clean sensor error on sensor appears // add 1xor enable here! if ( ( errorcode == ERR_T_SENSOR ) && ( ((TciE == 1 && Tci != -127 ) || (TciE ^1)) && ((TcoE == 1 && Tco != -127 ) || (TcoE ^1)) && ((TbeE == 1 && Tbe != -127 ) || (TbeE ^1)) && ((TaeE == 1 && Tae != -127 ) || (TaeE ^1)) && //((TsgE == 1 && Tsg != -127 ) || (TsgE ^1)) && //((TslE == 1 && Tsl != -127 ) || (TslE ^1)) && //((TbvE == 1 && Tbv != -127 ) || (TbvE ^1)) && //((TsucE == 1 && Tsuc != -127 ) || (TsucE ^1)) && ((Ts1E == 1 && Ts1 != -127 ) || (Ts1E ^1)) && ((Ts2E == 1 && Ts2 != -127 ) || (Ts2E ^1)) && ((TcrcE == 1 && Tcrc != -127 ) || (TcrcE ^1)) && ((TregE == 1 && Treg != -127 ) || (TregE ^1)) && ((TacE == 1 && Tac != -127 ) || (TacE ^1)) && ((TbcE == 1 && Tbc != -127 ) || (TbcE ^1)) && ((ThoE == 1 && Tho != -127 ) || (ThoE ^1)) && ((ThiE == 1 && Thi != -127 ) || (ThiE ^1)) )) { errorcode = ERR_OK; PrintSSch(IDX_OK_ETSENS); sequential_errors = 0; t_sensorErrString = ""; } //check pressure sensors //auto-clean prev. errors first if ( errorcode == ERR_P_LO ) { if (pr_low_state_bool == 1) { errorcode = ERR_OK; PrintSSch(IDX_OK_PRCOLD); } } if ( errorcode == ERR_P_HI ) { if (pr_high_state_bool == 1) { errorcode = ERR_OK; PrintSSch(IDX_OK_PRHOT); } } //recheck, if another sensor if ( errorcode == ERR_OK ) { if (pr_low_state_bool == 0) {errorcode = ERR_P_LO;} //for PrintSS scroll down if (pr_high_state_bool == 0) {errorcode = ERR_P_HI;} //for PrintSS scroll down } //-------------- EEV cycle /* //v1 algo if ( EEV_apulses == 0 ) { if ( ((async_wattage < c_workingOK_wattage_min) && ((unsigned long)(millis_now - millis_eev_last_close) > EEV_CLOSEEVERY)) || millis_eev_last_close == 0 ){ PrintSS("EEV: FULL closing"); if ( millis_eev_last_close != 0 ) { EEV_apulses = -(EEV_cur_pos + EEV_CLOSE_ADD_PULSES); } else { EEV_apulses = -(EEV_MAXPULSES + EEV_CLOSE_ADD_PULSES); } EEV_adonotcare = 1; EEV_fast = 1; //delay(EEV_STOP_HOLD); millis_eev_last_close = millis_now; } else if (errorcode != 0 || async_wattage <= c_workingOK_wattage_min) { //err or sleep PrintSS("EEV: err or sleep"); if (EEV_cur_pos <= 0 && EEV_OPEN_AFTER_CLOSE != 0) { //set waiting pos EEV_apulses = +EEV_OPEN_AFTER_CLOSE; EEV_adonotcare = 0; EEV_fast = 1; } if (EEV_cur_pos > 0 && EEV_cur_pos != EEV_OPEN_AFTER_CLOSE && EEV_cur_pos <= EEV_MAXPULSES) { //waiting pos. set PrintSS("EEV: close"); EEV_apulses = -(EEV_cur_pos + EEV_CLOSE_ADD_PULSES); EEV_adonotcare = 1; EEV_fast = 1; } } else if (errorcode == 0 && async_wattage > c_workingOK_wattage_min) { T_EEV_dt = Tae.T - Tbe.T; PrintSS("EEV: driving " + String(T_EEV_dt)); if (EEV_cur_pos <= 0){ PrintSS("EEV: full close protection"); if (EEV_OPEN_AFTER_CLOSE != 0) { //full close protection EEV_apulses = +EEV_OPEN_AFTER_CLOSE; EEV_adonotcare = 0; EEV_fast = 1; } } else if (EEV_cur_pos > 0) { if (T_EEV_dt < (T_EEV_setpoint - EEV_EMERG_DIFF) ) { //emerg! PrintSS("EEV: emergency closing!"); EEV_apulses = -EEV_EMERG_STEPS; EEV_adonotcare = 0; EEV_fast = 1; } else if (T_EEV_dt < T_EEV_setpoint) { //too PrintSS("EEV: closing"); //EEV_apulses = -EEV_NONPRECISE_STEPS; EEV_apulses = -1; EEV_adonotcare = 0; EEV_fast = 0; } else if (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS + EEV_PRECISE_START) { //very PrintSS("EEV: fast opening"); //EEV_apulses = +EEV_NONPRECISE_STEPS; EEV_apulses = +1; EEV_adonotcare = 0; EEV_fast = 1; } else if (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS) { //too PrintSS("EEV: opening"); EEV_apulses = +1; EEV_adonotcare = 0; EEV_fast = 0; } else if (T_EEV_dt > T_EEV_setpoint) { //ok PrintSS("EEV: OK"); // } } off_EEV(); } } */ //v1.2 algo: reopen added #ifndef NO_EEV if ( EEV_manual == 0 && errorcode == 0 && async_wattage >= c_workingOK_wattage_min && EEV_cur_pos > 0 ) { T_EEV_dt = Tae - Tbe; #ifdef EEV_DEBUG PrintSS("EEV Td: " + String(T_EEV_dt)); #endif if ( EEV_apulses >= 0 && EEV_cur_pos >= EEV_MINWORKPOS) { if (T_EEV_dt < (T_EEV_setpoint - EEV_EMERG_DIFF) ) { //emerg! #ifdef EEV_DEBUG PrintSS(F("EEV: 1 emergency closing!")); #endif EEV_apulses = -1; EEV_adonotcare = 0; EEV_fast = 1; } else if (T_EEV_dt < T_EEV_setpoint) { //too #ifdef EEV_DEBUG PrintSS(F("EEV: 2 closing")); #endif //EEV_apulses = -EEV_NONPRECISE_STEPS; EEV_apulses = -1; EEV_adonotcare = 0; EEV_fast = 0; } //faster open when needed, condition copypasted (see EEV_apulses <= 0) if (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS + EEV_PRECISE_START) { //very #ifdef EEV_DEBUG PrintSS(F("EEV: 3 enforce faster opening")); #endif //EEV_apulses = +EEV_NONPRECISE_STEPS; //EEV_apulses = +1; EEV_adonotcare = 0; EEV_fast = 1; } } if ( EEV_apulses <= 0 ) { if ( EEV_must_reopen_flag == 1 && (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS) && ((unsigned long)(millis_now - millis_eev_minworkpos_time) > EEV_REOPENMINTIME) && (millis_eev_last_work < millis_eev_minworkpos_time) ) { //reopen EEV_must_reopen_flag = 0; EEV_apulses = EEV_reopen_pos - EEV_cur_pos; EEV_adonotcare = 0; EEV_fast = 1; #ifdef EEV_DEBUG PrintSS(F("EEV: 14 reopening last")); PrintSS(String(EEV_apulses)); PrintSS(String(millis_now)); PrintSS(String(millis_eev_minworkpos_time)); PrintSS(String(millis_eev_last_work)); #endif } else if (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS + EEV_PRECISE_START) { //very #ifdef EEV_DEBUG PrintSS(F("EEV: 4 fast opening")); #endif //EEV_apulses = +EEV_NONPRECISE_STEPS; EEV_apulses = +1; EEV_adonotcare = 0; EEV_fast = 1; } else if (T_EEV_dt > T_EEV_setpoint + EEV_HYSTERESIS) { //too #ifdef EEV_DEBUG PrintSS(F("EEV: 5 opening")); #endif EEV_apulses = +1; EEV_adonotcare = 0; EEV_fast = 0; } else if (T_EEV_dt > T_EEV_setpoint) { //ok #ifdef EEV_DEBUG PrintSS(F("EEV: 6 OK")); #endif // } //faster closing when needed, condition copypasted (see EEV_apulses >= 0) if (T_EEV_dt < (T_EEV_setpoint - EEV_EMERG_DIFF) ) { //emerg! #ifdef EEV_DEBUG PrintSS(F("EEV: 7 enforce faster closing!")); #endif //EEV_apulses = -EEV_EMERG_STEPS; EEV_adonotcare = 0; EEV_fast = 1; } } off_EEV(); } if ( EEV_manual == 0 && EEV_apulses == 0 ) { if ( ((async_wattage < c_workingOK_wattage_min) && ((unsigned long)(millis_now - millis_eev_last_close) > EEV_CLOSEEVERY)) || millis_eev_last_close == 0 ){ //close every 24h by default #ifdef EEV_DEBUG PrintSS(F("EEV: 10 FULL closing")); #endif if ( millis_eev_last_close != 0 ) { EEV_apulses = -(EEV_cur_pos + EEV_CLOSE_ADD_PULSES); } else { EEV_apulses = -(EEV_MAXPULSES + EEV_CLOSE_ADD_PULSES); } EEV_adonotcare = 1; EEV_fast = 1; //delay(EEV_STOP_HOLD); millis_eev_last_close = millis_now; } else if (errorcode != 0 || async_wattage < c_workingOK_wattage_min) { //err or sleep if (EEV_cur_pos > 0 && EEV_cur_pos > EEV_OPEN_AFTER_CLOSE) { //waiting pos. set EEV_reopen_pos = EEV_cur_pos; //reopen pos. set EEV_must_reopen_flag = 1; millis_eev_last_work = millis_now; #ifdef EEV_DEBUG PrintSS(F("EEV: 11 close before open")); #endif EEV_apulses = -(EEV_cur_pos + EEV_CLOSE_ADD_PULSES); EEV_adonotcare = 1; EEV_fast = 1; } } off_EEV(); } if ( EEV_manual == 0 && EEV_apulses == 0 && async_wattage < c_workingOK_wattage_min && EEV_cur_pos < EEV_OPEN_AFTER_CLOSE) { #ifdef EEV_DEBUG PrintSS(F("EEV: 12 full close protection")); #endif if (EEV_OPEN_AFTER_CLOSE != 0) { //full close protection EEV_apulses = EEV_OPEN_AFTER_CLOSE - EEV_cur_pos; EEV_adonotcare = 0; EEV_fast = 1; } off_EEV(); } if ( EEV_manual == 0 && EEV_apulses == 0 && async_wattage >= c_workingOK_wattage_min && EEV_cur_pos < EEV_MINWORKPOS) { #ifdef EEV_DEBUG PrintSS(F("EEV: 13 open to work")); #endif if (EEV_MINWORKPOS != 0) { EEV_apulses = EEV_MINWORKPOS - EEV_cur_pos; EEV_adonotcare = 0; EEV_fast = 1; //millis_eev_minworkpos_time = millis_now; } off_EEV(); } if (EEV_cur_pos < EEV_MINWORKPOS) { //for reopen millis_eev_minworkpos_time = millis_now; } if ( EEV_manual == 0 && EEV_apulses == 0 && EEV_fast == 1 ) {//just for LED EEV_fast = 0; } if ( ((unsigned long)(millis_now - millis_eev_last_on) > 10000) || millis_eev_last_on == 0 ) { //PrintSS("EEV: ON/OFF"); on_EEV(); //delay(30); //off_EEV(); //off_EEV called somewhere else takes care of it millis_eev_last_on = millis_now; } //-------------- EEV cycle END #endif #ifndef EEV_ONLY //process heatpump crankcase heater if (TcrcE == 1) { if ( Tcrc < cT_crc_heat_threshold && crc_heater_state == 0 && Tcrc != -127) { crc_heater_state = 1; } else if (Tcrc >= cT_crc_heat_threshold && crc_heater_state == 1) { crc_heater_state = 0; } else if (Tcrc == -127) { crc_heater_state = 0; } halifise(); } //main logic if (_1st_start_sleeped == 0) { //enable hot WP immidiately if (hotside_circle_state == 0){ millis_last_hotWP_off = millis_now; hotside_circle_state = 1; } //_1st_start_sleeped = 1; if ( (millis_now < poweron_pause) && (_1st_start_sleeped == 0) ) { outString = String(((poweron_pause-millis_now))/1000); //PrintSS("Wait: " + outString + " s."); lastStartMsgTxt = "StCntd:" + outString; //start countdown, max 5 numerical places fl_printSS_lastStartMsgTxt = 1; //PrintSS(lastStartMsgTxt); //return; } else { _1st_start_sleeped = 1; lastStopCauseTxt=""; lastStartMsgTxt=""; } } //process_heatpump: //start if // (last_on > N or not_started_yet) // and (no errors) // and (t hot out < t target) // and (t hot out < t hot max) // and (t hot in < t hot max) // and (crc t > min'C) // and (crc t < max'C) // and (t watertank < target) // and (t after evaporator > after evaporator min) // and (t cold in > cold min) // and (t cold out > cold min) if (heatpump_state == 0 && errorcode == ERR_T_SENSOR) { lastStartMsgTxt = t_sensorErrString; //fl_printSS_lastStartMsgTxt = 1; } if (heatpump_state == 0 && errorcode == ERR_P_LO ) { lastStartMsgTxt = F("E.PresCold"); } if (heatpump_state == 0 && errorcode == ERR_P_HI ) { lastStartMsgTxt = F("E.PresHot"); } if (heatpump_state == 0 && errorcode == ERR_OK && _1st_start_sleeped == 1) { i = 0; #ifdef SETPOINT_THI if ( Thi < T_setpoint ) {i+=1;} else { lastStartMsgTxt = F("#Thi>Setp."); } //or1 //Thi = warm floor heat pump #endif #ifdef SETPOINT_TS1 if ( Ts1 < T_setpoint ) {i+=1;} else { lastStartMsgTxt = F("#Ts1>Setp."); } //or1 //Ts1 = tank heater #endif //2 wait cold circe if needed if ( coldside_circle_state == 1 && ((unsigned long)(millis_now - millis_last_coldWP_off) > COLDCIRCLE_PREPARE) ){ i+= 1; //only if hot runned and T < setpoint } else if ((coldside_circle_state == 0) && (hotside_circle_state == 1) && ((unsigned long)(millis_now - millis_last_hotWP_off) > HOTCIRCLE_CHECK_PREPARE) ) { #ifdef SETPOINT_THI if ( Thi < T_setpoint ) { #endif #ifdef SETPOINT_TS1 if ( Ts1 < T_setpoint ) { #endif lastStartMsgTxt = F("#CPpStart"); millis_last_coldWP_off = millis_now; coldside_circle_state = 1; fl_printSS_lastStartMsgTxt = 1; //PrintSS(lastStartMsgTxt); } } else if (coldside_circle_state == 1) { lastStartMsgTxt = "#CPp:" + String( (COLDCIRCLE_PREPARE -(unsigned long)(millis_now - millis_last_coldWP_off))/1000 ); } //3 wait hot circe if needed #ifdef SETPOINT_THI if ((hotside_circle_state == 1) && ((unsigned long)(millis_now - millis_last_hotWP_off) > HOTCIRCLE_CHECK_PREPARE) ) { i+=1; } else if (hotside_circle_state == 1) { //waiting for T stabilisation lastStartMsgTxt = "#HotPrp:" + String( (HOTCIRCLE_CHECK_PREPARE -(unsigned long)(millis_now - millis_last_hotWP_off))/1000 ); } else if (hotside_circle_state == 0) { //sleeping, hot CP off, waiting for next check cycle lastStartMsgTxt = "#HotSlp:" + String( (HOTCIRCLE_START_EVERY -(unsigned long)(millis_now - millis_last_hotWP_on))/1000 ); } #else ifdef SETPOINT_TS1 i+=1; #endif //4 countdown, compressor min. cycle if (((unsigned long)(millis_now - millis_last_heatpump_on) > mincycle_poweroff) || (millis_last_heatpump_on == 0) ) { i+=1; } else { if (millis_last_heatpump_on != 0){ lastStartMsgTxt = "#HPSlp:" + String( (mincycle_poweroff -(unsigned long)(millis_now - millis_last_heatpump_on))/1000 ); } } if ( (TcrcE == 1 && Tcrc > cT_crc_min) || (TcrcE^1)) {i+=1;} else { lastStartMsgTxt = F("#CaseCold"); } //5 if ( (TaeE == 1 && Tae > cT_coldref_min) || (TaeE^1)) {i+=1;} else { lastStartMsgTxt = F("#Tae cT_coldref_min) || (TbeE^1)) {i+=1;} else { lastStartMsgTxt = F("#Tbe cT_cold_min) || (TciE^1)) {i+=1;} else { lastStartMsgTxt = F("#Tci cT_cold_min) || (TcoE^1)) {i+=1;} else { lastStartMsgTxt = F("#TcoMax"); } //10 if ( (ThiE == 1 && Thi < cT_hot_max) || (ThiE^1)) {i+=1;} else { lastStartMsgTxt = F("#Thi>Max"); } //11 //t1_crc > t2_cold_in && ??? if ( (TcrcE == 1 && Tcrc < cT_crc_max) || (TcrcE^1)) {i+=1;} else { lastStartMsgTxt = F("#CaseHot"); } //12 if ( (TbcE == 1 && Tbc < cT_before_condenser_max) || (TbcE^1)) {i+=1;} else { lastStartMsgTxt = F("#Tbc>Max"); } //13 //if ( (TregE == 1 && Treg > cT_crc_min) || (TregE^1)) {i+=1;} else { lastStartMsgTxt = F("RegCold"); } //14 //if ( (TsucE == 1 && Tsuc > cT_coldref_min) || (TsucE^1)) {i+=1;} else { lastStartMsgTxt = F("Suc N) and (t watertank > target) ) #ifdef SETPOINT_THI if ( heatpump_state == 1 && ((unsigned long)(millis_now - millis_last_heatpump_off) > mincycle_poweron) && (Thi > T_setpoint) && errorcode == ERR_OK) {//or Ts1, if tank heater #endif #ifdef SETPOINT_TS1 if ( heatpump_state == 1 && ((unsigned long)(millis_now - millis_last_heatpump_off) > mincycle_poweron) && (Ts1 > T_setpoint) && errorcode == ERR_OK) {//or Thi, if default warm floor heat pump #endif millis_last_heatpump_on = millis_now; heatpump_state = 0; LSCint = LSCint_normal; lastStopCauseTxt=F("Normal_stop"); fl_printSS_lastStopCauseTxt = 1; //PrintSS(lastStopCauseTxt); } //process_hot_side_pump: //start if (heatpump_enabled) //stop if (heatpump_disabled and (t hot out or in < t target + heat delta min) ) if ( ((heatpump_state == 1) && (hotside_circle_state == 0) ) || ((_1st_start_sleeped == 0 ) && (hotside_circle_state == 0)) ){ PrintSSch(IDX_HWPON); millis_last_hotWP_off = millis_now; hotside_circle_state = 1; } #ifdef SETPOINT_THI if ( (heatpump_state == 0) && (hotside_circle_state == 0) && ((unsigned long)(millis_now - millis_last_hotWP_on) > HOTCIRCLE_START_EVERY) ) { //process START_EVERY for hot side millis_last_hotWP_off = millis_now; hotside_circle_state = 1; //PrintSS(F("HWP ON by startevery")); lastStartMsgTxt = F("HWP_ON_by_ev"); fl_printSS_lastStartMsgTxt = 1; } #endif if ( (heatpump_state == 0) && (hotside_circle_state == 1) ) { if ( ( (unsigned long)(millis_now - millis_last_heatpump_on) > deffered_stop_hotcircle) || millis_last_heatpump_on == 0) { //deffered stop aftret heat pump stop and correct processing of 1st start, 1st_start sleeped flag not used - there's another logic /* //useful for tank heater with Ts1 as setpont control and large intermediate water reservoir if ( (ThoE == 1 && Tho < (Ts1 + cT_hotcircle_delta_min)) || (ThiE == 1 && Thi < (Ts1 + cT_hotcircle_delta_min)) ) { PrintSS(F("Hot CP OFF 1")); millis_last_hotWP_on = millis_now; hotside_circle_state = 0; } else { PrintSS(F("Hot CP OFF 2")); millis_last_hotWP_on = millis_now; hotside_circle_state = 0; } */ if ( (unsigned long)(millis_now - millis_last_hotWP_off) > HOTCIRCLE_STOP_AFTER) { //and START_EVERY processing #ifdef SETPOINT_THI if ( Thi > T_setpoint ) { #endif #ifdef SETPOINT_TS1 if ( Ts1 > T_setpoint ) { #endif //PrintSS(F("HWP OFF")); lastStartMsgTxt = F("HWP_OFF"); fl_printSS_lastStartMsgTxt = 1; millis_last_hotWP_on = millis_now; hotside_circle_state = 0; } } } } //heat if we can, just in case, ex. if lost power, usefull for tank heater with large intermediate water reservoir /* if ( (hotside_circle_state == 0) && ( ThoE == 1 && Tho > (Ts1 + cT_hotcircle_delta_min) ) || ( ThiE == 1 && Thi > (Ts1 + cT_hotcircle_delta_min) ) ) { PrintSS(F("Hot WP ON")); hotside_circle_state = 1; } */ //process_cold_side_pump: //start if (heatpump_enabled) //stop if (heatpump_disbled) //start if tci < cold_min if ( (heatpump_state == 1) && (coldside_circle_state == 0) ) { //PrintSS(F("CWP_ON")); millis_last_coldWP_off = millis_now; coldside_circle_state = 1; } if ( (heatpump_state == 0) && (TciE == 1) && (Tci > -127.0) && (Tci < cT_cold_min) && (coldside_circle_state == 0) ) { //PrintSS(F("CWP ON by ColdMin")); lastStartMsgTxt = F("CWP_ON_CoMin"); fl_printSS_lastStartMsgTxt = 1; millis_last_coldWP_off = millis_now; coldside_circle_state = 1; } if ( (heatpump_state == 0) && (coldside_circle_state == 1) ) { //is on if ( (TciE == 1 && Tci > cT_cold_min) || (TciE^1)) { //does not overfrozen //next: deal with unstable env. to prevent false starts (water tank with dynamic flows, maybe air heating): stop CWP while waiting period if false start //stop if T>S OR if not needed by prepare #ifdef SETPOINT_THI if ( ( Thi > T_setpoint ) || ((unsigned long)(millis_now - millis_last_coldWP_off) > (COLDCIRCLE_PREPARE*2)) ) { #endif #ifdef SETPOINT_TS1 if ( ( Ts1 > T_setpoint ) || ((unsigned long)(millis_now - millis_last_coldWP_off) > (COLDCIRCLE_PREPARE*2)) ) { #endif //PrintSS(F("CWP_OFF")); coldside_circle_state = 0; } } } //protective_cycle: //stop if // (error) // (t hot out > hot max) // (t hot in > hot max) // (crc t > max'C) // or (t after evaporator < after evaporator min) // or (t cold in < cold min) // or (t cold out < cold min) // if ( heatpump_state == 1 && errorcode == ERR_OK ){ if (ThoE == 1 && Tho > cT_hot_max) {heatpump_state = 0; lastStopCauseTxt = F("P.Tho"); } if (ThiE == 1 && Thi > cT_hot_max) {heatpump_state = 0; lastStopCauseTxt = F("P.Thi"); } if (TcrcE == 1 && Tcrc > cT_crc_max) {heatpump_state = 0; lastStopCauseTxt = F("P.Tcrc"); } if (TaeE == 1 && Tae < cT_coldref_min) {heatpump_state = 0; lastStopCauseTxt = F("P.Tae"); } if (TbeE == 1 && Tbe < cT_before_evap_work_min) {heatpump_state = 0; lastStopCauseTxt = F("P.Tbe"); } //if (TsucE == 1 && Tsuc < cT_coldref_min) {heatpump_state = 0; lastStopCauseTxt = F("P.Tsuc"); } if (TbcE == 1 && Tbc > cT_before_condenser_max) {heatpump_state = 0; lastStopCauseTxt = F("P.Tbc"); } if (TciE == 1 && Tci < cT_cold_min) {heatpump_state = 0; lastStopCauseTxt = F("P.Tci"); } if (TcoE == 1 && Tco < cT_cold_min) {heatpump_state = 0; lastStopCauseTxt = F("P.Tco"); } if (heatpump_state == 0){ LSCint = LSCint_protective; fl_printSS_lastStopCauseTxt = 1; //PrintSS(lastStopCauseTxt); millis_last_heatpump_on = millis_now; } } //5 minutes workout checks //alive_check_cycle_after_5_mins: //(old)error if //(new)not error, just poweroff all //next disabled: issues after a deep freeze, long time needed for stabilisation //DISABLED// or (t cold in - t cold out < t workingok min diff) //DISABLED// or (t hot out - t hot in < t workingok min diff) // or (crc t < 25'C) // or wattage too low if ( heatpump_state == 1 && ((unsigned long)(millis_now - millis_last_heatpump_off) > 300000) ) { //cold side processing simetimes works incorrectly, after long period of inactivity, due to T inertia on cold tube sensor, commented out //if ( ( errorcode == ERR_OK ) && ( tr_cold_in - tr_cold_out < cT_workingOK_cold_delta_min ) ) { // errorcode = ERR_COLD_PUMP; //} //if ( ( errorcode == ERR_OK ) && ( Tho.e == 1 && Thi.e == 1 && (Tho.T - Thi.T < cT_workingOK_hot_delta_min )) ) { // errorcode = ERR_HOT_PUMP; //} if ( ( errorcode == ERR_OK ) && ( TcrcE == 1 && Tcrc < cT_workingOK_crc_min ) ) { //errorcode = ERR_HEATPUMP; millis_last_heatpump_on = millis_now; heatpump_state = 0; LSCint = LSCint_protective; lastStopCauseTxt = F("P.W.TcrcMIN"); fl_printSS_lastStopCauseTxt = 1; //PrintSS(lastStopCauseTxt); } if ( ( errorcode == ERR_OK ) && ( async_wattage < c_workingOK_wattage_min ) ) { //errorcode = ERR_WATTAGE; millis_last_heatpump_on = millis_now; heatpump_state = 0; LSCint = LSCint_protective; lastStopCauseTxt = F("P.W.wattMIN"); fl_printSS_lastStopCauseTxt = 1; //PrintSS(lastStopCauseTxt); } //digitalWrite(RELAY_HEATPUMP, heatpump_state); ////!!! old, now halifised } //disable pump by t.sensor error, sequentially if ( heatpump_state == 1 && errorcode == ERR_T_SENSOR ) { sequential_errors += 1; if (sequential_errors > MAX_SEQUENTIAL_ERRORS) { millis_last_heatpump_on = millis_now; heatpump_state = 0; LSCint = LSCint_error; lastStopCauseTxt = t_sensorErrString; fl_printSS_lastStopCauseTxt = 1; } //PrintSS(t_sensorErrString); } if ( errorcode == ERR_OK ) { //auto-clean counter just in case sequential_errors = 0; } //disable pump by pressure error, immediately if ( heatpump_state == 1 && ( errorcode == ERR_P_HI || errorcode == ERR_P_LO ) ) { millis_last_heatpump_on = millis_now; heatpump_state = 0; if (errorcode == ERR_P_HI) { lastStopCauseTxt = F("E.PressHot"); } else if (errorcode == ERR_P_LO) { lastStopCauseTxt = F("E.PressCold"); } LSCint = LSCint_error; fl_printSS_lastStopCauseTxt = 1; //PrintSS(lastStopCauseTxt); } //!!! self-test ///heatpump_state = 1; halifise(); if (errorcode == ERR_T_SENSOR) { PrintSS(t_sensorErrString); } if (fl_printSS_lastStartMsgTxt == 1){ PrintSS(lastStartMsgTxt); fl_printSS_lastStartMsgTxt = 0; } if (fl_printSS_lastStopCauseTxt == 1){ PrintSS(lastStopCauseTxt); fl_printSS_lastStopCauseTxt = 0; } #endif //process errors //beep N times error if ( errorcode != ERR_OK ) { LED_OK_state = 0; LED_ERR_state = 1; if ( ((unsigned long)(millis_now - millis_notification) > millis_notification_interval) || millis_notification == 0 ) { millis_notification = millis_now; outString = F("Err: "); PrintSS_SaI(errorcode); for ( i = 0; i < errorcode; i++) { LED_ERR_state = 0; halifise(); analogWrite(speakerOut, 10); delay (500); LED_ERR_state = 1; halifise(); analogWrite(speakerOut, 0); delay (500); } } } else { LED_OK_state = 1; LED_ERR_state = 0; halifise(); } } if (Serial.available() > 0) { inChar = Serial.read(); if ( inChar == 0x1B ) { skipchars_local += 3; inChar = 0x00; millis_escinput_local = millis(); } if ( skipchars_local != 0 ) { millis_charinput_local = millis(); if ((unsigned long)(millis_charinput_local - millis_escinput_local) < 16*2 ) { //2 chars for 2400 if (inChar != 0x7e) { skipchars_local -= 1; } if (inChar == 0x7e) { skipchars_local = 0; } if (inChar >= 0x30 && inChar <= 0x35) { skipchars_local += 1; } inChar = 0x00; } else { skipchars_local = 0; } } _ProcessInChar(); } if (RS485Serial.available() > 0) { //PrintSS("some on 485.."); //!!!debug #ifdef RS485_HUMAN if (RS485Serial.available()) { inChar = RS485Serial.read(); //RS485Serial.print(inChar); //!!!debug if ( inChar == 0x1B ) { skipchars_485 += 3; inChar = 0x00; millis_escinput_485 = millis(); } if ( skipchars_485 != 0 ) { millis_charinput_485 = millis(); //if (millis_escinput_485 + 2 > millis_charinput_485) if ((unsigned long)(millis_charinput_485 - millis_escinput_485) < 16*2 ) { //2 chars for 2400 if (inChar != 0x7e) { skipchars_485 -= 1; } if (inChar == 0x7e) { skipchars_485 = 0; } if (inChar >= 0x30 && inChar <= 0x35) { skipchars_485 += 1; } inChar = 0x00; } else { skipchars_485 = 0; } } _ProcessInChar(); } #endif #ifdef RS485_JSON index = 0; while (RS485Serial.available() > 0) { // Don't read unless you know there is data if(index < 49) { // size of the array minus 1 inChar = RS485Serial.read(); // Read a character dataBuf[index] = inChar; // Store it index++; // Increment where to write next dataBuf[index] = '\0'; // clear next symbol, null terminate the string delayMicroseconds(80); //80 microseconds - the best choice at 9600, "no answer"disappeared //40(20??) microseconds seems to be good, 9600, 49 symbols // } else { //too long message! read it to nowhere inChar = RS485Serial.read(); delayMicroseconds(80); //break; //do not break if symbols!! } } //!!!debug, be carefull, can cause strange results /* if (dataBuf[0] != 0x00) { PrintSS("-"); PrintSS(dataBuf); PrintSS("-"); } */ //or this debug /* digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(10); RS485Serial.println(dataBuf); RS485Serial.flush(); RS485Serial.println(index); */ //ALL lines must be terminated with \n! if ( (dataBuf[0] == hostID) && (dataBuf[1] == devID) ) { // COMMANDS: // G (0x47): (G)et main data // TNN.NN (0x54): set aim (T)emperature // ENN.NN (0x45): set (E)EV difference aim digitalWrite(SerialTxControl, RS485Transmit); halifise(); delay(1); //PrintSS(freeMemory()); outString = ""; outString = devID; outString += hostID; outString += "A "; //where A is Answer, space after header char *outChar=&outString[0]; if ( (dataBuf[2] == 0x47 ) ) { //PrintSS("G"); //WARNING: this procedure can cause "NO answer" effect if no or few T sensors connected //outString = ""; //if (TsgE) { outString += ",\"TSG\":" + String(Tsg); } //if (TslE) { outString += ",\"TSL\":" + String(Tsl); } //if (TbvE) { outString += ",\"TBV\":" + String(Tbv); } //if (TsucE) { outString += ",\"TSUC\":" + String(Tsuc);} //RS485Serial.write(outChar); //dirty hack to transfer long string //RS485Serial.flush(); //delay (1); //lot of errors without delay outString += "{"; outString += "\"E1\":" + String(errorcode); if (TciE) { outString += ",\"TCI\":"; ApToOut_D(Tci); } if (TcoE) { outString += ",\"TCO\":"; ApToOut_D(Tco); } if (TbeE) { outString += ",\"TBE\":"; ApToOut_D(Tbe); } if (TaeE) { outString += ",\"TAE\":"; ApToOut_D(Tae); } if (Ts1E) { outString += ",\"TS1\":"; ApToOut_D(Ts1); } if (Ts2E) { outString += ",\"TS2\":"; ApToOut_D(Ts2); } if (TcrcE) { outString += ",\"TCRC\":"; ApToOut_D(Tcrc);} if (TregE) { outString += ",\"TR\":"; ApToOut_D(Treg);} RS485Serial.write(outChar); //dirty hack to transfer long string RS485Serial.flush(); delay (1); //lot of errors without delay outString = ""; if (TacE) { outString += ",\"TAC\":"; ApToOut_D(Tac); } if (TbcE) { outString += ",\"TBC\":"; ApToOut_D(Tbc); } if (ThoE) { outString += ",\"THO\":"; ApToOut_D(Tho); } if (ThiE) { outString += ",\"THI\":"; ApToOut_D(Thi);} outString += ",\"W1\":"; ApToOut_D(async_wattage); outString += ",\"EEVP\":" + String(EEV_cur_pos); outString += ",\"EEVA\":"; ApToOut_D(T_EEV_setpoint); #ifndef EEV_ONLY outString += ",\"A1\":"; ApToOut_D(T_setpoint); //(A)im (target) outString += ",\"RP\":" + String(heatpump_state*RELAY_HEATPUMP); outString += ",\"RH\":" + String(hotside_circle_state*RELAY_HOTSIDE_CIRCLE); outString += ",\"RC\":" + String(coldside_circle_state*1); outString += ",\"RCRCH\":" + String(crc_heater_state*3); //if (TregE) { outString += ",\"RRH\":" + String(reg_heater_state*4);} //RS485Serial.write(outChar); //dirty hack to transfer long string //RS485Serial.flush(); //delay (1); //lot of errors without delay #endif RS485Serial.write(outChar); //dirty hack to transfer long string RS485Serial.flush(); delay (1); //lot of errors without delay outString = ""; outString = ",\"LSC\":\""; outString += lastStopCauseTxt; outString += ("\""); //RS485Serial.write(outChar); //dirty hack to transfer long string //RS485Serial.flush(); //delay (1); //lot of errors without delay outString += ",\"LSM\":\""; outString += lastStartMsgTxt; outString += ("\""); outString += "}"; } else if ( (dataBuf[2] == 0x54 ) || (dataBuf[2] == 0x45 )) { //(T)arget or (E)EV target format NN.NN, text if ( isDigit(dataBuf[ 3 ]) && isDigit(dataBuf[ 4 ]) && (dataBuf[ 5 ] == 0x2e) && isDigit(dataBuf[ 6 ]) && isDigit(dataBuf[ 7 ]) && ( ! isDigit(dataBuf[ 8 ])) ) { analogWrite(speakerOut, 10); delay (100); analogWrite(speakerOut, 0); char * carray = &dataBuf[ 3 ]; tempdouble = atof(carray); if (dataBuf[2] == 0x54 ){ if (tempdouble > cT_setpoint_max) { outString += "{\"r\":\"too hot!\"}"; } else if (tempdouble < cT_setpoint_min) { outString += "{\"r\":\"too cold!\"}"; } else { T_setpoint = tempdouble; _HotWPon_by_Setpoint_update(); outString += "{\"r\":\"ok, new value: "; ApToOut_D(T_setpoint); outString += "\"}"; } } if (dataBuf[2] == 0x45 ) { if (tempdouble > 10.0) { //!!!!!!! hardcode !!! outString += "{\"r\":\"too hot!\"}"; } else if (tempdouble < 0.1) { //!!!!!!! hardcode !!! outString += "{\"r\":\"too cold!\"}"; } else { T_EEV_setpoint = tempdouble; outString += "{\"r\":\"ok, new EEV value: "; ApToOut_D(T_EEV_setpoint); outString += "\"}"; } } } else { outString += "{\"r\":\"NaN, format: NN.NN\"}"; } } else { //default, just for example outString += "{\"r\":\"no_command\"}"; } //crc.integer = CRC16.xmodem((uint8_t& *) outString, outString.length()); //outString += (crc, HEX); outString += "\n"; RS485Serial.write(outChar); } index = 0; for (i=0;i < (BUFSIZE);i++) { //clear buffer dataBuf[i]=0; } RS485Serial.flush(); digitalWrite(SerialTxControl, RS485Receive); delay(1); #endif #ifdef RS485_MODBUS index = 0; z = 0; //error flag while ( 1 == 1 ) {//9600 //read //!!!!!!! //Serial.println("-"); if (RS485Serial.available()) { if(index < BUFSIZE) { inChar = RS485Serial.read(); //Serial.print(inChar, HEX); //Serial.print(" "); dataBuf[index] = inChar; index++; dataBuf[index] = '\0'; delayMicroseconds(80); //yep, 80, HERE } else { z = 1; while (RS485Serial.available()) { inChar = RS485Serial.read(); delayMicroseconds(1800); } break; } } else { //Serial.print("."); tmic1 = micros(); for (i = 0; i < 10; i++) { delayMicroseconds(180); if (RS485Serial.available()){ //Serial.print("babaika"); //Serial.println(i); tmic2 = micros(); break; } tmic2 = micros(); if ( (unsigned long)(tmic2 - tmic1) > 1800 ){ i = 10; break; } } if (i == 10 && RS485Serial.available()) { z = 2; i = 0; while (RS485Serial.available()) { if (i > 200){ break; } inChar = RS485Serial.read(); delayMicroseconds(1800); i++; } break; } else if (!RS485Serial.available()) { break; } else if (RS485Serial.available()) { continue; } else { //PrintSS(F("e2245")); } } } //check CRC if (index < 3) { z+= 10; } if ( dataBuf[1] == 0x03 && ( (index % 8 ) == 0) && index > 8 ) { //automatic "duplicated message" detector, can be found if lot of T sensors absent and requests are too fast index = 8; } crc16 = SEED; for (x = 0; x < (index-2); x++) { Calc_CRC(dataBuf[x]); } x = dataBuf[index - 2]; y = dataBuf[index - 1]; if (( x != (crc16 & 0xFF )) || ( y != (crc16 >> 8))) { z += 100; } //PrintSS(F("-----")); if ( z != 0 ) { //probably another proto //PrintSS(F("MmsgERR: ")); /*Serial.println(z); for (x =0; x MODBUS_MR) { //0x03 z = 3; } if (dataBuf[1] == 0x03 && dataBuf[5] > MODBUS_MR) { //0x05 z = 5; } i = 0; //dataBuf[i] = devID; //unchanged! can be devID or 0x00 i++; if (z == 0) { //PrintSS(F("ModParse")); x = dataBuf[3]; //addr y = dataBuf[5]; //num if (dataBuf[1] == 0x03) { //PrintSS(F("F03")); dataBuf[i] = 0x03; i++; //the most significant byte is sent first dataBuf[i] = y*2; i++; // data for (u = x; u < (x+y); u++) { if (u > MODBUS_MR){ z = 2; break; } switch (u) { case 0x00: Add_Double_To_Buf_IntFract(Tci); //uses dataBuf, i break; case 0x01: Add_Double_To_Buf_IntFract(Tco); //uses dataBuf, i break; case 0x02: Add_Double_To_Buf_IntFract(Tbe); //uses dataBuf, i break; case 0x03: Add_Double_To_Buf_IntFract(Tae); //uses dataBuf, i break; case 0x04: //Add_Double_To_Buf_IntFract(Tsg); //uses dataBuf, i dataBuf[i] = 0; i++; dataBuf[i] = 0; i++; break; case 0x05: //Add_Double_To_Buf_IntFract(Tsl); //uses dataBuf, i dataBuf[i] = 0; i++; dataBuf[i] = 0; i++; break; case 0x06: //Add_Double_To_Buf_IntFract(Tbv); //uses dataBuf, i dataBuf[i] = 0; i++; dataBuf[i] = 0; i++; break; case 0x07: //Add_Double_To_Buf_IntFract(Tsuc); //uses dataBuf, i dataBuf[i] = 0; i++; dataBuf[i] = 0; i++; break; case 0x08: Add_Double_To_Buf_IntFract(Ts1); //uses dataBuf, i break; case 0x09: Add_Double_To_Buf_IntFract(Ts2); //uses dataBuf, i break; case 0x0A: Add_Double_To_Buf_IntFract(Tcrc); //uses dataBuf, i break; case 0x0B: Add_Double_To_Buf_IntFract(Treg); //uses dataBuf, i break; case 0x0C: Add_Double_To_Buf_IntFract(Tac); //uses dataBuf, i break; case 0x0D: Add_Double_To_Buf_IntFract(Tbc); //uses dataBuf, i break; case 0x0E: Add_Double_To_Buf_IntFract(Tho); //uses dataBuf, i break; case 0x0F: Add_Double_To_Buf_IntFract(Thi); //uses dataBuf, i break; case 0x10: dataBuf[i] = 0; i++; dataBuf[i] = errorcode; i++; break; case 0x11: dataBuf[i] = (int)async_wattage >> 8; i++; dataBuf[i] = (int)async_wattage & 0xFF; i++; break; case 0x12: dataBuf[i] = 0; i++; dataBuf[i] = 0; bitWrite(dataBuf[i], 0, heatpump_state); bitWrite(dataBuf[i], 1, hotside_circle_state); bitWrite(dataBuf[i], 2, coldside_circle_state); bitWrite(dataBuf[i], 3, crc_heater_state); //bitWrite(dataBuf[i], 4, reg_heater_state); i++; break; case 0x13: Add_Double_To_Buf_IntFract(T_EEV_setpoint); //uses dataBuf, i break; case 0x14: Add_Double_To_Buf_IntFract(T_setpoint); //uses dataBuf, i break; case 0x15: dataBuf[i] = (int)EEV_cur_pos >> 8; i++; dataBuf[i] = (int)EEV_cur_pos & 0xFF; i++; break; case 0x16: dataBuf[i] = lastStopCauseTxt.charAt(0); i++; dataBuf[i] = lastStopCauseTxt.charAt(1); i++; break; case 0x17: dataBuf[i] = lastStopCauseTxt.charAt(2); i++; dataBuf[i] = lastStopCauseTxt.charAt(3); i++; break; case 0x18: dataBuf[i] = lastStopCauseTxt.charAt(4); i++; dataBuf[i] = lastStopCauseTxt.charAt(5); i++; break; case 0x19: dataBuf[i] = lastStopCauseTxt.charAt(6); i++; dataBuf[i] = lastStopCauseTxt.charAt(7); i++; break; case 0x1A: dataBuf[i] = lastStopCauseTxt.charAt(8); i++; dataBuf[i] = lastStopCauseTxt.charAt(9); i++; break; case 0x1B: dataBuf[i] = lastStopCauseTxt.charAt(10); i++; dataBuf[i] = lastStopCauseTxt.charAt(11); i++; break; case 0x1C: dataBuf[i] = lastStartMsgTxt.charAt(0); i++; dataBuf[i] = lastStartMsgTxt.charAt(1); i++; break; case 0x1D: dataBuf[i] = lastStartMsgTxt.charAt(2); i++; dataBuf[i] = lastStartMsgTxt.charAt(3); i++; break; case 0x1E: dataBuf[i] = lastStartMsgTxt.charAt(4); i++; dataBuf[i] = lastStartMsgTxt.charAt(5); i++; break; case 0x1F: dataBuf[i] = lastStartMsgTxt.charAt(6); i++; dataBuf[i] = lastStartMsgTxt.charAt(7); i++; break; case 0x20: dataBuf[i] = lastStartMsgTxt.charAt(8); i++; dataBuf[i] = lastStartMsgTxt.charAt(9); i++; break; case 0x21: dataBuf[i] = lastStartMsgTxt.charAt(10); i++; dataBuf[i] = lastStartMsgTxt.charAt(11); i++; break; default: dataBuf[i] = 0x00; i++; dataBuf[i] = 0x00; i++; break; } } } else if (dataBuf[1] == 0x06) { //de-facto echo //PrintSS(F("F06")); dataBuf[i] = 0x06; i++; dataBuf[i] = 0x00; i++; dataBuf[i] = x; i++; switch (x) { case 0x13: //PrintSS(F("06F_EEV_setpoint")); IntFract_to_tempdouble(dataBuf[4], dataBuf[5]); //Serial.println(tempdouble); if (tempdouble > 15.0 || tempdouble < -15.0) { //incorrectest values filter z = 3; break; } T_EEV_setpoint = tempdouble; //Serial.println(T_EEV_setpoint); Add_Double_To_Buf_IntFract(T_EEV_setpoint); //uses dataBuf, i break; case 0x14: //PrintSS(F("06F_T_setpoint")); IntFract_to_tempdouble(dataBuf[4], dataBuf[5]); //Serial.println(tempdouble); if (tempdouble > cT_setpoint_max || tempdouble < cT_setpoint_min) { //incorrectest values filter z = 3; break; } T_setpoint = tempdouble; _HotWPon_by_Setpoint_update(); //Serial.println(T_setpoint); Add_Double_To_Buf_IntFract(T_setpoint); //uses dataBuf, i break; //case 0x15: // //EEV_cur_pos // break; default: z = 3; break; } } else { PrintSSch(IDX_UNKNF); z = 1; } if (z != 0) { i = 1; bitWrite(dataBuf[i], 7, 1); i++; dataBuf[i] = z; i++; } crc16 = SEED; for (x = 0; x < (i); x++) { Calc_CRC(dataBuf[x]); } dataBuf[i] = crc16 & 0xFF; i++; dataBuf[i] = crc16 >> 8; i++; RS485Serial.write(dataBuf, i); RS485Serial.flush(); delay (1); //!!! debug /* for (x = 0; x