CRONOTERMOSTATO ETHERNET

CRONOTERMOSTATO ETHERNET ETHERNET based CHRONOTHERMOSTAT

Il dispositivo realizza un cronotermostato per il controllo del riscaldamento di casa e di un eventuale boiler per l'acqua calda con la possibilita' di visualizzare e modificare tutte le impostazioni via internet.
Per la realizzazione del progetto sono necessari una scheda Arduino con Ethernet shield, un sensore digitale di temperature DS18B20, un pull up resistor da 4.7kOhm ed uno o due rele' elettromeccanici.
Informazioni sulla scheda Arduino e la sua programmazione tramite il relativo ambiente di sviluppo integrato (IDE) sono ampiamente disponibili su Internet ed non rientrano nello scopo di questa pagina.
I collegamenti tra i componenti possono essere realizzati come in figura, utilizzando un pin digitale per il sensore di temperatura ed un ulteriore pin per ciascuno dei rele' elettromeccanici

Il codice implementato permette il controllo automatico dell'accensione e spegnimento impianto di riscaldamento secondo le seguenti modalita':

- Sempre acceso
- Sempre spento
- Mantenimento continuo di una temperatura fissa
- Mantenimento di una temperatura variabile in base ad un calendario giornaliero e settimanale
- Mantenimento continuo di una temperatura fissa fino ad una certa data e ora e successivo passaggio al calendario
- Mantenimento di una temperatura variabile secondo uno specifico giorno della settimana fino ad una certa data e ora e successivo passaggio al calendario

E' possibile impostare fino a 6 temperature diverse nell'arco di ciascuna giornata su fasce orarie a discrezione. Tutti i giorni della settimana possono essere gestiti in modo indipendente. E' inoltre possibile accendere o spegnere un boiler per la produzione di acqua calda secondo le seguenti modalita':

- Sempre acceso
- Sempre spento
- Accensione e spegnimento in base ad un calendario giornaliero e settimanale

Si possono avere due fasce orarie indipendenti per ciascuna giornata.
Data ed ora del sistema sono costantemente aggiornate via Internet tramite un collegamento ad un server NTP.
Le impostazioni del cronotermostato sono salvate ed aggiornate su un file di testo che deve essere caricato ed accessibile su un webserver in rete.
Un esempio di file di impostazioni e' riportato qui di seguito:
The device is a chronothermostat for the control of the heating system and the control of an optional hot water boiler at home with the possibility to visualize and modify all settings through the Internet.
The project requires an Arduino board with Ethernet shield, a digital temperature sensor DS18B20, a 4.7kOhm pull up resistor and one or two electromechanical relays.
Information on the Arduino hardware and its programming IDE (Integrated Development Environment) is widely available on Internet and it is out of the scope of this page.
Connections among the components can be realized as per the picture below, using a digital pin for the temperature sensor and an additional pin for each of the electromechanical relays.

Implemented code allows the automatic switching off and on of the heating system according to following modes:

- Always on
- Always off
- Keep fixed temperature
- Keep target temperature according to a daily and weekly calendar
- Keep fixed temperature until specified date and time and subsequent switch to calendar
- Keep target temperature according to a prescribed week day until specified date and time and subsequent switch to calendar

You can set up to 6 target temperatures over arbitrary time slots along the day. All days of the week can be managed independently from each other. It's also possible to turn on and off an hot water boiler according to following modes:

- Always on
- Always off
- turn off and on according to a daily and weekly calendar

Two independent time slots per day can be managed.
System time and date are continuously updated through the Internet thanks to a connection to an NTP server.
The chronothermostat settings are saved and updated on a text file that must be loaded on a webserver on the network.
An example of the settings file is shown here below:

myheatingSETTINGS.txt:

In caso di perdita di connessione di rete il cronotermostato continua a funzionare regolarmente anche se non e' possibile cambiarne le impostazioni.
Per un corretto funzionamento del cronotermostato e' invece indispensabile avere una connessione di rete all'avvio per la prima lettura di tutte le impostazioni.

Il codice per Arduino realizza un semplicissimo server web. Collegandosi direttamente all'Arduino tramite il suo indirizzo IP con eventuale porta TCP(http://arduino_address[:port]) si ottiene in risposta un semplice file di testo con riportati i dati sullo stato e le impostazioni correnti.
Inserendo nella URL il comando per ricaricare il file delle impostazioni (http://arduino_address[:port]/?SETTINGS=RELOAD) l'Arduino si collega al webserver di rete dove e' salvato il file delle impostazioni e ne carica il contenuto.
Cambi di stato o di impostazioni del cronotermostato devono essere effettuati modificando direttamente il file di testo delle impostazioni presente sul webserver di rete prima di collegarsi all'Arduino con il comando di ricaricarlo.
Questa modalita' di utilizzo e' schematizzata nella figura sotto.

Per rendere l'utilizzo del cronotermostato molto piu' immediato e facile, ho anche realizzato una applicazione web. Una volta caricata sul webserver di rete permette di visualizzare lo stato del sistema e cambiare tutte le impostazioni mediante una semplice interfaccia grafica. Le modifiche al file delle impostazioni ed i comandi alla scheda Arduino sono gestiti in maniera del tutto trasparente per l'utente.
Per il corretto funzionamento e' necessario che il webserver di rete possa far girare applicazioni ASP.NET.
Questa modalita' di utilizzo e' schematizzata nella figura sotto.

Il codice per la scheda Arduino e' riportato qui di seguito.
I parametri relativi alla rete locale devono naturalmente essere modificati in base alla LAN a cui l'Arduino sara' connesso.
Prima di procedere con la compilazione tramite al Arduino IDE, e' necessario caricare le librerie OneWire, DallasTemperature e Time mediante il Library Manager.

In case network connection is lost, the chronothermostat goes on working regularly even if changes to settings are not possible.
On the other side, the network connection is mandatory during the chronothermostat boot in order to allow the first loading of settings.

The code for Arduino realizes a very simple web server. When directly connecting to the Arduino board with his IP address and an optional TCP port (http://arduino_address[:port]) you get an answer with a simple text summarizing data on status and current settings.
When typing in the URL the command to reload the settings file (http://arduino_address[:porta]/?SETTINGS=RELOAD), the Arduino board creates a connection to the webserver on the network and downloads it.
Status or settings changes for the chronothermostat must be implemented by directly modifying the text of the settings file on the webserver before connecting to the Arduino board and giving the reload command.
This mode of operation is shown in the picture below.

In order to have a simpler user interface to the chronothermostat, I also realized a web application. Once loaded on the webserver on the network, it allows to visualize the system status and to change all settings with a graphical interface. All changes to the settings file and commands sent to the Arduino board are managed in a fully automatic way not visible to the user.
The webserver on the network must be enabled to run ASP.NET applications.
This mode of operation is shown in the picture below.

The source code for the Arduino board is shown here below.
Local network settings should of course be changed according to the LAN the Arduino will be connected to.
Before compiling with Arduino IDE, you've to upload OneWire, DallasTemperature and Time libraries with the Library Manager.

Arduino_Riscaldamento_e_Boiler.ino:

/////////////////////////////////////////////////////////////////////////////////////////////////////////
// ARDUINO CODE TO MANAGE HOME HEATING SYSTEM AND HOT WATER BOILER
//////////////////////////////////////////////////////////////////////////////////////////////////////////
//
// 
#include <SPI.h>
#include <Ethernet.h>
#include <EthernetUdp.h>
#include <OneWire.h>
#include <DallasTemperature.h>
#include <Time.h>
#include <TimeLib.h>
#include <avr/wdt.h>
#define ONE_WIRE_BUS 2 // Digital Sensor DS18S20 on pin 2
//
// global variables
//
//
// LOCAL NETWORK SETTINGS
//
byte mac[] = {  0x90, 0xA2, 0xDA, 0x1D, 0x2D, 0x7A }; // mac address of Arduino board
byte ip[] = { 192, 168, 0, 2 }; // Arduino LAN address
byte gateway[] = { 192, 168, 0, 1 }; // LAN Gateway address
byte subnet[] = { 255, 255, 255, 0 }; //LAN subnet mask
byte myDns[] = { 8, 8, 8, 8 }; // DNS (must be provided- Google DNS used here)
//
EthernetServer server(83); //(server port)

//
// END OF LOCAL NETWORK SETTINGS
//

EthernetClient client;
EthernetClient settclient;
OneWire oneWire(ONE_WIRE_BUS); // Setup a oneWire instance to communicate with any OneWire devices (used for digital sensor DS18S20)
DallasTemperature sensors(&oneWire); // Pass oneWire reference to Dallas Temperature (used for digital sensor DS18S20)
//
int HeatingRelay = 7; // digital output PIN for heating system relay
int HotWaterRelay = 8; // digital output PIN for hot water relay
String readString; //stringa
int readStringField=0;
boolean reloadSettings = true; // to be set to "true" to load initial settings from server at boot
//
boolean HeatingON=false;
int HEATMODE=0; // Heating mode
float temp; // temperature 
float targettemp; // temperature target 
float deltatemp = 0.25; // max difference between temperature and target temperature
char targettempchar[6];
//
boolean HotWaterON=false;
int HWMODE=0; // Hot water mode
float cal_T[7][6]; //target temperatures over the weekly calendar: 7 days, 6 temperatures to be set for each day
byte cal_h[7][5]; // hours over the weekly calendar: 7 days, 5 times to define 6 time zones for 6 different temperature targets
byte cal_m[7][5]; //minutes over the weekly calendar: 7 days, 5 times to define 6 time zones for 6 different temperature targets
byte cal_ON_boi[7][2]; //ON-OFF targets over the weekly calendar: 7 days, 2 targets to be set for each day
byte cal_h_boi[7]; // hours over the weekly calendar: 7 days, 1 time to define 2 time zones for the two ON-OFF targets
byte cal_m_boi[7]; // minutes over the weekly calendar: 7 days, 1 time to define 2 time zones for the two ON-OFF targets
String NomiGiorni[7] = { "SUN", "MON", "TUE", "WED", "THU", "FRI", "SAT"};
//
// NTP Servers:
// char timeServer[] = "time.nist.gov"; // time.nist.gov NTP server
char timeServer[] = "pool.ntp.org";
const int timeZone = 1;     // Central European Time
//const int timeZone = -5;  // Eastern Standard Time (USA)
//const int timeZone = -4;  // Eastern Daylight Time (USA)
//const int timeZone = -8;  // Pacific Standard Time (USA)
//const int timeZone = -7;  // Pacific Daylight Time (USA)
//
time_t dataoranow = 0;
byte targetweekday = 0;
byte targetday = 0;
byte targetmonth = 0;
int targetyear = 0;
byte targethour = 0;
byte targetminute = 0;
time_t serialloop = 0;
time_t timeloop = 0;
long secserialloop = 5; // loop interval for info over serial port
long sectimeloop = 600; // max time allowed to sync with NTP server before reset
//
EthernetUDP Udp;
unsigned int UDPPort = 8888;  // local port to listen for UDP packets
//
//
//-------- NTP code ----------
//
const int NTP_PACKET_SIZE = 48; // NTP time is in the first 48 bytes of message
byte packetBuffer[NTP_PACKET_SIZE]; //buffer to hold incoming & outgoing packets
//
time_t getNtpTime()
{
  while (Udp.parsePacket() > 0) ; // discard any previously received packets
  Serial.println(F("Transmit NTP Request"));
  sendNTPpacket(timeServer);
  uint32_t beginWait = millis();
  while (millis() - beginWait < 1500) {
    int size = Udp.parsePacket();
    if (size >= NTP_PACKET_SIZE) {
      Serial.println(F("Receive NTP Response"));
      Udp.read(packetBuffer, NTP_PACKET_SIZE);  // read packet into the buffer
      unsigned long secsSince1900;
      // convert four bytes starting at location 40 to a long integer
      secsSince1900 =  (unsigned long)packetBuffer[40] << 24;
      secsSince1900 |= (unsigned long)packetBuffer[41] << 16;
      secsSince1900 |= (unsigned long)packetBuffer[42] << 8;
      secsSince1900 |= (unsigned long)packetBuffer[43];
      return secsSince1900 - 2208988800UL + timeZone * SECS_PER_HOUR;
    }
  }
  Serial.println(F("No NTP Response :-("));
  return 0; // return 0 if unable to get the time
}
//
// send an NTP request to the time server at the given address
//
void sendNTPpacket(char* address)
{
  // set all bytes in the buffer to 0
  memset(packetBuffer, 0, NTP_PACKET_SIZE);
  // Initialize values needed to form NTP request
  // (see URL above for details on the packets)
  packetBuffer[0] = 0b11100011;   // LI, Version, Mode
  packetBuffer[1] = 0;     // Stratum, or type of clock
  packetBuffer[2] = 6;     // Polling Interval
  packetBuffer[3] = 0xEC;  // Peer Clock Precision
  // 8 bytes of zero for Root Delay & Root Dispersion
  packetBuffer[12]  = 49;
  packetBuffer[13]  = 0x4E;
  packetBuffer[14]  = 49;
  packetBuffer[15]  = 52;
  // all NTP fields have been given values, now
  // you can send a packet requesting a timestamp:                 
  Udp.beginPacket(address, 123); //NTP requests are to port 123
  Udp.write(packetBuffer, NTP_PACKET_SIZE);
  Udp.endPacket();
}
//
String stringaData(time_t tempo) {
  String stringatempo = String(year(tempo)) + "-" + String(100+month(tempo)).substring(1) + "-" + String(100+day(tempo)).substring(1);
//  String stringatempo = String(100+day(tempo)).substring(1)  + "/" + String(100+month(tempo)).substring(1) + "/" + year(tempo);
  return stringatempo;
}
//
//-------- NTP code END ----------
//

String stringaOra(time_t tempo) {
//  String stringatempo = String(100+hour(tempo)).substring(1)  + ":" + String(100+minute(tempo)).substring(1) + ":" + String(100+second(tempo)).substring(1);
  String stringatempo = String(100+hour(tempo)).substring(1)  + ":" + String(100+minute(tempo)).substring(1);
  return stringatempo;
} 
//
int Giorno(String d) {
  for (int i=0; i <= 6; i++) {
  if (d.equals(NomiGiorni[i])) return i;
  }
}
//
// function to check if target date for target temp is expired
//
float TargetDateIsExpired(time_t adesso) {
  int anno=year(adesso);
  byte mese=month(adesso);
  byte giorno=day(adesso);
  byte ora=hour(adesso);
  byte minuto=minute(adesso);
  byte secondo=second(adesso);
  boolean expired = true;
  if ((anno < targetyear) || 
     ((anno == targetyear) && (mese < targetmonth)) || 
     ((anno == targetyear) && (mese == targetmonth) && (giorno < targetday)) ||
     ((anno == targetyear) && (mese == targetmonth) && (giorno == targetday) && (ora < targethour)) ||
     ((anno == targetyear) && (mese == targetmonth) && (giorno == targetday) && (ora == targethour) && (minuto < targetminute))) {
        expired = false;
  }          
  return expired;
}
//
// function to get target temperature from calendar based on week day and time
//
float calendarTargetTemp(time_t adesso) {
  byte giorno=weekday(adesso)-1;
  byte ore=hour(adesso);
  byte minuti=minute(adesso);
  float temperatura;
  if ((HEATMODE == 5) && !TargetDateIsExpired(dataoranow)) giorno=targetweekday-1;
  for (byte i=0; i <= 6; i++) {
    for (byte j=0; j <= 5; j++) {      
        if (i == giorno) {     
          if (j == 0) {
           if ((ore < cal_h[i][j]) || ((ore == cal_h[i][j]) && (minuti < cal_m[i][j])))  {
             temperatura=cal_T[i][j]; 
             break;
            } 
          } else if (j == 5) {
            temperatura=cal_T[i][j];
          } else {
            if (((ore > cal_h[i][j-1]) || ((ore == cal_h[i][j-1]) && (minuti >= cal_m[i][j-1]))) && ((ore < cal_h[i][j]) || ((ore == cal_h[i][j]) && (minuti < cal_m[i][j]))))  {
             temperatura=cal_T[i][j]; 
             break;
            }          
          } 
        }
     }
  } 
  return temperatura;
}
//
// function to get ON-OFF target from calendar based on week day and time
//
byte calendarHotWaterON(time_t adesso) {
  byte giorno=weekday(adesso)-1;
  byte ore=hour(adesso);
  byte minuti=minute(adesso);
  byte on;
  for (byte i=0; i <= 6; i++) {
        if (i == giorno) {     
           if ((ore < cal_h_boi[i]) || ((ore == cal_h_boi[i]) && (minuti < cal_m_boi[i])))  {
             on=cal_ON_boi[i][0];              
           } else { 
             on=cal_ON_boi[i][1];              
           }
        } 
  }
  return on;
}
//
// function to control heating system based on present heat mode
// HEATMODE = 0 => OFF
// HEATMODE = 1 => ON
// HEATMODE = 2 => KEEP TARGET TEMPERATURE
// HEATMODE = 3 => KEEP TEMPERATURE BASED ON CALENDAR
// HEATMODE = 4 => KEEP TARGET TEMPERATURE UNTIL TARGET DATE IS REACHED THEN KEEP TEMPERATURE BASED ON CALENDAR
// HEATMODE = 5 => KEEP TEMPEARURE ACCORDING TO TARGET DAY TEMPERATURES UNTIL TARGET DATE IS REACHED THEN KEEP TEMPERATURE BASED ON CALENDAR
//
void HeatingControl() {
  
  if ((HEATMODE == 0) && HeatingON)  {  
    digitalWrite(HeatingRelay, LOW); // turn off - heating relay open
    HeatingON=false;
  }
  if ((HEATMODE == 1) && !HeatingON)  {
    digitalWrite(HeatingRelay, HIGH); // turn on - heating relay closed
    HeatingON=true;
  }
  if ((HEATMODE == 5) || (HEATMODE == 4) || (HEATMODE == 3) || (HEATMODE == 2)) {
    if ((HEATMODE == 3) || ((HEATMODE == 4) && TargetDateIsExpired(dataoranow)) || (HEATMODE == 5)) targettemp=calendarTargetTemp(dataoranow);  
    if ((HEATMODE == 2) || ((HEATMODE==3) && (timeStatus() != timeNotSet)) || ((HEATMODE==4) && (timeStatus() != timeNotSet)) || ((HEATMODE==5) && (timeStatus() != timeNotSet))) {
      if (temp < (targettemp-deltatemp)) { // turn on
          digitalWrite(HeatingRelay, HIGH); // heating relay closed
          HeatingON=true;
      } else if (temp > (targettemp+deltatemp)) { // turn off
          digitalWrite(HeatingRelay, LOW); // heating relay open
          HeatingON=false;
      }
    } else  {
        digitalWrite(HeatingRelay, LOW); // turn off in case date/time is not set - heating relay open
        HeatingON=false;
    }
  }  
}
//
// funzione di controllo del boiler  
//
void HotWaterControl() {
  if ((HWMODE == 0) && HotWaterON)  {
    digitalWrite(HotWaterRelay, LOW); // turn off - boiler relay open
    HotWaterON=false;
  }
  if ((HWMODE == 1) && !HotWaterON)  {
    digitalWrite(HotWaterRelay, HIGH); // turn on - boiler relay closed
    HotWaterON=true;
  }
  if (HWMODE == 3) {
    if (timeStatus() != timeNotSet) {
      if (!HotWaterON && (calendarHotWaterON(dataoranow)>0)) { // turn on
        digitalWrite(HotWaterRelay, HIGH); // boiler relay closed
        HotWaterON=true;
      } else if (HotWaterON && (calendarHotWaterON(dataoranow)<=0)) { // turn off
        digitalWrite(HotWaterRelay, LOW); // boiler relay open
        HotWaterON=false;
      }
    } else  {
        digitalWrite(HotWaterRelay, LOW); // turn off in case date/time is not set - boiler relay open
        HotWaterON=false;      
    }
  }  
}
//
// funtion to load settings from server
//
void LoadSettings() {
  if (timeStatus() != timeNotSet) {
    if (settclient.connect("www.myserver.com", 80)) {
      settclient.println(F("GET /myheatingSETTINGS.txt HTTP/1.1"));
      settclient.println(F("Host: www.myserver.com"));
      settclient.println(F("Connection: close"));
      settclient.println();  
      while (settclient.connected()) {
        if (settclient.available()) {
          char d = settclient.read();
          Serial.write(d);
          // if "end of line" character is received line is parsed
          if (d == '\n') {
            if (readString.startsWith(F("HEATMODE"))) {
              readStringField=1;
            } else if (readString.startsWith(F("TARGET TEMPERATURE"))) {
              readStringField=2;              
            } else if (readString.startsWith(F("TARGET DATE"))) {
              readStringField=3;                            
            } else if (readString.startsWith(F("TARGET TIME"))) {
              readStringField=4;              
            } else if (readString.startsWith(F("TARGET WEEK DAY"))) {
              readStringField=5;              
            } else if (readString.startsWith(F("HEATING CALENDAR"))) {
              readStringField=6;
            } else if (readString.startsWith(F("HWMODE"))) {
              readStringField=7;
            } else if (readString.startsWith(F("HOT WATER CALENDAR"))) {
              readStringField=8;
            } else {
              if (readStringField==1) {
                HEATMODE=readString.toInt();
                readStringField=0;
              } else if (readStringField==2) {
                targettemp=readString.toFloat();
                readStringField=0;
              } else if (readStringField==3) {
                targetyear=readString.substring(0,4).toInt();
                targetmonth=readString.substring(5,7).toInt();
                targetday=readString.substring(8,10).toInt();
                readStringField=0;
              } else if (readStringField==4) {
                targethour=readString.substring(0,2).toInt();
                targetminute=readString.substring(3,5).toInt();                
                readStringField=0;
              } else if (readStringField==5) {
                targetweekday=readString.substring(0,1).toInt();
              } else if (readStringField==6) {
                for (byte j=0; j <= 5; j++) {      
                  cal_T[Giorno(readString.substring(0,3))][j]=readString.substring(4+j*12,4+j*12+5).toFloat();
                  if (j<=4)  { 
                    cal_h[Giorno(readString.substring(0,3))][j]=readString.substring(10+j*12,10+j*12+2).toInt();
                    cal_m[Giorno(readString.substring(0,3))][j]=readString.substring(13+j*12,13+j*12+2).toInt();
                  }
                }
                if (Giorno(readString.substring(0,3))==6) readStringField=0;
              } else if (readStringField==7) {
                HWMODE=readString.toInt();
                readStringField=0;
              } else if (readStringField==8) {
                cal_ON_boi[Giorno(readString.substring(0,3))][0]=readString.substring(4,5).toInt();
                cal_h_boi[Giorno(readString.substring(0,3))]=readString.substring(6,8).toInt();  
                cal_m_boi[Giorno(readString.substring(0,3))]=readString.substring(9,11).toInt();  
                cal_ON_boi[Giorno(readString.substring(0,3))][1]=readString.substring(12,13).toInt();
                if (Giorno(readString.substring(0,3))==6) readStringField=0;
              }                    
            }    
            readString="";
          } else {
            readString.concat(d); //store characters to string until End of Line is reached
          }
        } // if client available
      } // while client connesso
      // give the web browser time to receive the data
      delay(1);
      // close the connection:
      settclient.stop();
      reloadSettings=false;
    } // FINE if client// 
  }  //  if (timeStatus() != timeNotSet)         
}            
// 
//
//
//
//
//
//
//
//
//
void setup(){
  wdt_disable();
  delay(100);
//
// internal Watchdog turned on
//
  wdt_enable(WDTO_8S);
//
  Serial.begin(9600);
  Serial.println("Setup");
  Ethernet.begin(mac, ip, myDns, gateway, subnet);
  delay(100);
  server.begin();
  sensors.begin();
  Udp.begin(UDPPort);
  delay(200);
  setSyncProvider(getNtpTime);
  setSyncInterval(30);
  pinMode(HeatingRelay, OUTPUT);
  pinMode(HotWaterRelay, OUTPUT);
  digitalWrite(HeatingRelay, LOW); // heating relay open
  digitalWrite(HotWaterRelay, LOW); // boiler relay open
//
  serialloop=now();
  timeloop=serialloop;
  Serial.println("Setup END");
  wdt_reset();
}
//
//
//
//
//
//
//
//
void loop(){
// 
//////////////////////////////////////////////////////////////////////////////////////////
// HEATING SYSTEM and HOT WOTER BOILER MANAGEMENT
//////////////////////////////////////////////////////////////////////////////////////////
//
// reading temperature from DS18S20 sensor
//
  sensors.requestTemperatures(); // Send the command to get temperatures
  temp=sensors.getTempCByIndex(0);  
//  temp=20.13; // TEST
//
//
  dataoranow = now();
//
//
// settings update if requested
//
  if (reloadSettings) {
    LoadSettings();
  } 
//
// heating system management
//
  HeatingControl(); 
//
// hot water boiler management
//
  HotWaterControl();
// 
//
// client http setup to receive commands
//
  client = server.available();
  if (client) {
// an http request ends with a blank line
    boolean currentLineIsBlank = true;
    boolean GETLineReceived = false;
    while (client.connected()) {
      if (client.available()) {
        char c = client.read();
        Serial.write(c);
        if (!GETLineReceived) {
          readString.concat(c); //store characters to string until the GET line is received only
        }  
// if "end of line" character is received and the line is blank the
// http request has ended and it is possible to send the reply
//if HTTP request has ended
        if (c == '\n' && currentLineIsBlank) {
          if ((readString.indexOf(F(" /?SETTINGS")) > 0)||(readString.indexOf(F(" / ")) > 0)) {
            if(readString.indexOf(F(" /?SETTINGS=RELOAD")) > 0) {// HTTP REQUEST TO UPDATE SETTINGS BY RELOADING THEM FROM SERVER
              reloadSettings=true;
            } else { // HTTP REQUEST TO SHOW SETTINGS WITHOUT UPDATE BY RELOADING THEM FROM SERVER 
              reloadSettings=false;
            } 
//
//          
            client.println(F("HTTP/1.1 200 OK....."));
            client.println(F("Content-Type: text/html"));
            client.println();
//
//
// SIMPLE HTML PAGE (FROM ARDUINO AS WEB SERVER)
//
            client.println(F("<html>"));
            client.println(F("<head>"));
            client.println(F("<title>MyHeating - Duarf</title>"));
            client.println(F("<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' >"));
            client.println(F("</head>"));
            client.println(F("<body>"));
            client.print(F("DATE NOW"));
            client.println(F("<br>"));
            client.print(stringaData(dataoranow));
            client.println(F("<br>"));
            client.print(F("TIME NOW"));
            client.println(F("<br>"));  
            client.print(stringaOra(dataoranow));
            client.println(F("<br>"));
            client.print(F("MEASURED TEMPERATURE"));
            client.println(F("<br>"));
            client.print(String(100+temp).substring(1));
            client.println(F("<br>"));
            client.println(F("<hr>"));
//
            if (reloadSettings) {
//
// Settings update if requested
//
              LoadSettings();
//
// Heating system control after settings update
//
              HeatingControl(); 
//
// Hot water boiler control after settings update
//
              HotWaterControl();
// 
            } 
//
// End of settings update if requested
//
// Finalization of HTML page showing settings
//
            client.print(F("HEATING CONTROL RELAY"));
            client.println(F("<br>"));
            if (HeatingON) {
              client.print(F("ON"));
            } else {
              client.print(F("OFF"));
            }
            client.println(F("<br>"));
            client.print(F("HOT WATER CONTROL RELAY"));
            client.println(F("<br>"));
            if (HotWaterON) {
              client.print(F("ON"));
            } else {
              client.print(F("OFF"));
            }
            client.println(F("<br>"));
            client.println(F("<hr>"));  
//
            client.print(F("HEATMODE"));
            client.println(F("<br>"));
            client.print(HEATMODE);
            client.println(F("<br>"));
            client.print(F("TARGET TEMPERATURE"));
            client.println(F("<br>"));
            client.print(String(100+targettemp).substring(1));
            client.println(F("<br>"));
            client.print(F("TARGET DATE"));
            client.println(F("<br>"));
            client.print(String(10000+targetyear).substring(1)+"-"+String(100+targetmonth).substring(1)+"-"+String(100+targetday).substring(1));
            client.println(F("<br>"));
            client.print(F("TARGET TIME"));
            client.println(F("<br>"));
            client.print(String(100+targethour).substring(1)+":"+String(100+targetminute).substring(1));
            client.println(F("<br>"));            
            client.print(F("TARGET WEEK DAY"));
            client.println(F("<br>"));
            client.print(targetweekday);
            client.println(F("<br>"));            
            client.print(F("HEATING CALENDAR"));
            client.println(F("<br>"));
            for (byte i=0; i <= 6; i++) {
              client.print(NomiGiorni[i]);
              for (byte j=0; j <= 5; j++) {      
                client.print(" " + String(100+cal_T[i][j]).substring(1));
                if (j<=4)  { 
                  client.print(" " + String(100+cal_h[i][j]).substring(1)+":"+String(100+cal_m[i][j]).substring(1));
                }
              }
              client.println(F("<br>"));
            } 
            client.print(F("HWMODE"));
            client.println(F("<br>"));
            client.print(HWMODE);
            client.println(F("<br>"));
            client.print(F("HOT WATER CALENDAR"));
            client.println(F("<br>"));
            for (byte i=0; i <= 6; i++) {
              client.print(NomiGiorni[i]);
              for (byte j=0; j <= 1; j++) {      
                client.print(" " + String(cal_ON_boi[i][j]));
                if (j<=0)  { 
                  client.print(" " + String(100+cal_h_boi[i]).substring(1)+":"+String(100+cal_m_boi[i]).substring(1));
                }
              }
              client.println(F("<br>"));
            }           
//
            client.println(F("</body>"));
            client.println(F("</html>"));
// 
// END OF SIMPLE HTML PAGE (FROM ARDUINO AS WEB SERVER)
//
          }
          readString="";
          break;
        } //if c == \n
        if (c == '\n') {
          // you're starting a new line
          currentLineIsBlank = true;
          if (readString.startsWith(F("GET"))) {
            GETLineReceived = true;
          }
        } else if (c != '\r') {
          // you've gotten a character on the current line
          currentLineIsBlank = false;
        }
      } // if client available
    } // while client is connected
    // give the web browser time to receive the data
    delay(1);
    // close the connection:
    client.stop();
  } 
//
//
//
//////////////////////////////////////////////////////////////////////////////////////////
// LOOP TO WRITE DATE AND TIME OVER SERIAL (DEBUG PURPOSES)
//////////////////////////////////////////////////////////////////////////////////////////
//
  if ((now()-serialloop) > secserialloop) {
    serialloop = now();
    Serial.print(F("Data: "));
    Serial.println(stringaData(serialloop));
    Serial.print(F("Ora: "));
    Serial.println(stringaOra(serialloop));
  }
//
// 
//////////////////////////////////////////////////////////////////////////////////////////
// INTERNAL WATCHDOG RESET (if not done Arduino will reset automatically)
//////////////////////////////////////////////////////////////////////////////////////////
//
  if (timeStatus()!=timeNotSet) {
    timeloop=now();
    wdt_reset();      
  } else {
    if ((now()-timeloop) < sectimeloop) {
      wdt_reset();            
    } else {
      Serial.println(F("Avvio procedura reset"));
      // if watchdog counter is not reset, Arduino will reset automatically
    }
  }
  
}

L'area di testo qui sotto visualizza il codice della pagina ASP.NET da installare sul webserver di rete nella stessa directory che contiene il file di testo delle impostazioni. Oltre alla versione in Italiano, e' disponibile anche un file con tutti i menu in Inglese. Tutte le variabili di testo visualizzate nell'interfaccia utente sono raccolte in una stessa zona del codice per facilitare una eventuale traduzione in una lingua diversa.
Il file deve essere opportunamente modificato assegnando alla variabile "Indirizzo" l'URL o l'indirizzo IP della scheda Arduino.

The text area below is showing the code of the ASP.NET page to be installed on the webserver in the same directory where the settings text file is. In addition to the English version, a file with all menus in Italian is also available. All text variables used in the graphic interface are collected in the same zone of the code to simplify their translation to a different language.
The file must be modified by setting the variable "Indirizzo" to the Arduino IP address or URL.

myheatingita.aspx:

<%@ page language="VB" debug=true %>
<%@ Import Namespace="System.IO" %>

' Global variables declarations
'
dim StrRisposta
dim StrSettings = ""
dim StrHeatMode = ""
dim StrTemp = ""
dim StrTargetTemp = ""
dim StrWeekDay = ""
dim StrTargetDate = ""
dim StrTargetTime = ""
dim StrCommand = ""
dim StrHeatingON = ""
dim StrBoilerON = ""
dim StrHWMode = ""
dim StrHeatingCal = ""
dim StrHWCal = ""
dim StrData = ""
dim StrOra = ""
dim StrLunedi = ""
dim StrMartedi = ""
dim StrMercoledi = ""
dim StrGiovedi = ""
dim StrVenerdi = ""
dim StrSabato = ""
dim StrDomenica = ""
dim Giorni(6)
dim Iniziali(6)
dim Calendario(6,10)
dim Acqua(6,2)
dim Settimana(6)
dim SettimanaAcqua(6)
dim Riscaldamento(5)
dim AcquaCalda(3)
dim Nomi(12)
dim Stato(2)
dim TxtBottoneAggiorna = ""
dim TxtBottoneImposta = ""
dim x=0
dim y
dim k
'
Dim Indirizzo As String 
Dim path As String = Server.Mappath(".\")
Dim SettingsFile As String = "myheatingSETTINGS.txt"
'
'
'
Sub Page_Load(Sender as Object, e as EventArgs)
'
' commands reading
   StrCommand = Request.Form("SETTINGS")
   StrSettings = Request.Form("SETTINGSTEXT")
   StrTargetTemp = Request.Form("TARGETTEMPERATURE")
   StrTargetTime = Request.Form("TARGETTIME")
   StrTargetDate = Request.Form("TARGETDATE")
   StrHeatMode = Request.Form("HEATMODE")
   StrWeekDay = Request.Form("WEEKDAY")
   StrHWMode = Request.Form("HWMODE")
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' STRINGS TO TRASLATE TO IMPLEMENT DIFFERENT LANGUAGES
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
   TxtBottoneAggiorna = "AGGIORNA STATO"
   TxtBottoneImposta = "IMPOSTA"
'
'
   Stato(0) = "SPENTO"
   Stato(1) = "ACCESO"
   Stato(2) = "NO CONNESSIONE!"
'
   Giorni(0) = "Lunedi"
   Giorni(1) = "Martedi"
   Giorni(2) = "Mercoledi"
   Giorni(3) = "Giovedi"
   Giorni(4) = "Venerdi"
   Giorni(5) = "Sabato"
   Giorni(6) = "Domenica"

Nomi(0) = "DATA"
   Nomi(1) = "TEMPERATURA"
   Nomi(2) = "STATO RISCALDAMENTO"
   Nomi(3) = "STATO ACQUA CALDA"
   Nomi(4) = "RISCALDAMENTO"
   Nomi(5) = "CALENDARIO RISCALDAMENTO"
   Nomi(6) = "GIORNO e ORA"
   Nomi(7) = "GIORNO SETTIMANA"
   Nomi(8) = "ACQUA CALDA"
   Nomi(9) = "CALENDARIO ACQUA CALDA"
   Nomi(10)= "Ora"
   Nomi(11)= "Stato"
   Nomi(12)= "Temperatura"

Riscaldamento(0) = "<spento>SPENTO</spento>"
   Riscaldamento(1) = "<acceso>ACCESO</acceso>"
   Riscaldamento(2) = "<giallo>TEMPERATURA FISSA</giallo>"
   Riscaldamento(3) = "<giallo>CALENDARIO</giallo>"
   Riscaldamento(4) = "<giallo>TEMPERATURA FISSA</giallo> poi <giallo>CALENDARIO</giallo>"
   Riscaldamento(5) = "<giallo>GIORNO RIPETUTO</giallo> poi <giallo>CALENDARIO</giallo>"

AcquaCalda(0) = "<spento>SPENTO</spento>"
   AcquaCalda(1) = "<acceso>ACCESO</acceso>"
   AcquaCalda(3) = "<giallo>CALENDARIO</giallo>"
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' END OF STRINGS TO TRASLATE TO IMPLEMENT DIFFERENT LANGUAGES
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
   For x=0 To 6
   For k=0 To 10 Step 1
   Calendario(x,k) = Request.Form(Giorni(x) & k)
   Next
   Next
'
   For x=0 To 6
   For k=0 To 2 Step 1
   Acqua(x,k) = Request.Form("A" & Giorni(x) & k)
   Next
   Next
'
'

'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' HTTP internet address of Arduino board (arduino web server)
' URL or IP addres and optional TCP port to be specified:
'Indirizzo = "http://arduino_address[:port]/"
Indirizzo = "http://111.112.113.114"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' english international settings
session.lcid=1033
End Sub
'
'
Public Function HTMLcleanup(ByVal strToCleanup As String) As String
  Dim strCleanedup As String
  Do While (InStr(strToCleanup, "<") > 0)
    strCleanedup=Left(strToCleanup,InStr(strToCleanup, "<")-1)+Right(strToCleanup,Len(strToCleanup)-InStr(strToCleanup, ">"))
    strToCleanup=strCleanedup
  Loop 
  Return Trim(strCleanedup)
End Function
'
Public Function GetHtmlPage(ByVal strURL As String) As String
  Dim strResult As String
  Dim objResponse As System.Net.WebResponse
  Dim objRequest As System.Net.WebRequest = System.Net.HttpWebRequest.Create(strURL)
  objResponse = objRequest.GetResponse()
  Using sr As New System.IO.StreamReader(objResponse.GetResponseStream())
    strResult = sr.ReadToEnd()
      sr.Close()
  End Using
  Return strResult
End Function
'
'
Public Sub SaveSettings()
   File.WriteAllText(path & SettingsFile, StrSettings)
End Sub

</script>

</script>
<style type="text/css">
#pulsante {
 height: 30px;
 width: 300px;
 outline: none;
 cursor: pointer;
 text-align: center;
 text-decoration: none;
 color: white;
 border: none;
 background: red;
 background: -webkit-linear-gradient(top,  red, #b22222);
 background: -moz-linear-gradient(top,  red,  #b22222);
 background: -ms-linear-gradient(top,  red,  #b22222);
 background: -o-linear-gradient(top,  red,  #b22222);
border-radius: 10px; 
    -moz-border-radius: 10px;
    -webkit-border-radius: 10px;
box-shadow: 2px 3px 3px rgba(0,0,0,0.5);
    -moz-box-shadow: 2px 3px 3px rgba(0,0,0,0.5);
    -webkit-box-shadow: 2px 3px 3px rgba(0,0,0,0.5)
}
#pulsante:hover {
 background: #8b0000;
}
#pulsante:active {
  position: relative;
  top: 1px;
}
titolo {color:white; font-weight:bold; font-size:200%;}
acceso {color:green; font-weight:bold;}
spento {color:red; font-weight:bold;}
giallo {color:#FFA500; font-weight:bold;}
h0 {font-size:300%; color:white;}
h1 {font-size:200%; color:white;}
h2 {font-size:150%; color:white;}
h3 {font-size:100%; color:white;}
h4 {font-size:50%; color:white;}

/* Style the tab */
table.calendar {
    width: 140px;
    height: 415px;
}

table.water {
    width: 120px;
    height: 250px;
}

table.buttons1 {
    border: 1px solid #ccc;
    background-color: #f1f1f1;
    width: 107px;
    height: 470px;
}

table.buttons2 {
    border: 1px solid #ccc;
    background-color: #f1f1f1;
    width: 107px;
    height: 370px;
}

/* Style the links inside the tab */
a {
    float: left;
    display: block;
    color: black;
    text-align: center;
    padding: 14px 16px;
    text-decoration: none;
    transition: 0.3s;
    font-size: 17px;
}

/* Change background color of links on hover */
table.buttons1 a:hover, table.buttons2 a:hover{
    background-color: #ddd;
    cursor: pointer;
}

/* Create an active/current tablink class */
table.buttons1 a:focus, table.buttons2 a:focus, .active {
    background-color: #ccc;
}

/* Style the tab content */
<%
For x=0 To 5
Response.Write("#" & LCase(Giorni(x)) & ", ")
Next
Response.Write("#" & LCase(Giorni(6)) & " {")
%>
    display: none;
    border: 1px solid #ccc;
    background-color: white;
    border-left: none;
    border-spacing: 5px;
    width: 195px;
    height: 470px;
}

<%
For x=0 To 5
Response.Write("#" & LCase(Giorni(x)) & "2, ")
Next
Response.Write("#" & LCase(Giorni(6)) & "2 {")
%>
    display: none;
    border: 1px solid #ccc;
    background-color: white;
    border-left: none;
    border-spacing: 5px;
    width: 150px;
    height: 370px;
}
</style>

<title>MyHeating</title>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1' >
<meta name='viewport' content='width=device-width, initial-scale=1.0'/> 
<link rel='shortcut icon' href='http://tuxgraphics.org/ico/therm.ico' />
</head>

<%
Iniziali(0) = "MON"
Iniziali(1) = "TUE"
Iniziali(2) = "WED"
Iniziali(3) = "THU"
Iniziali(4) = "FRI"
Iniziali(5) = "SAT"
Iniziali(6) = "SUN"
'
' Settings file update and http request send to reload settings file 
Try
if StrCommand="RELOAD" then
'
'
' Hot water string assembly
'
	For x=0 To 6
		For k=0 To 1
			SettimanaAcqua(x) = SettimanaAcqua(x) & Acqua(x,k) & " "
		Next
		SettimanaAcqua(x) = SettimanaAcqua(x) & Acqua(x,2)
	Next
	StrHWCal = StrHWCal & Iniziali(6) & " " & SettimanaAcqua(6) & vbNewLine
	For x=0 To 4
		StrHWCal = StrHWCal & Iniziali(x) & " " & SettimanaAcqua(x) & vbNewLine
	Next
	StrHWCal = StrHWCal & Iniziali(5) & " " & SettimanaAcqua(5)
'
'
' Heating system string assembly
'
	For x=0 To 6
		For k=0 To 9
			Settimana(x) = Settimana(x) & Calendario(x,k) & " "
		Next
		Settimana(x) = Settimana(x) & Calendario(x,10)
	Next
'
	StrHeatingCal = StrHeatingCal & Iniziali(6) & " " & Settimana(6) & vbNewLine
	For x=0 To 4
		StrHeatingCal = StrHeatingCal & Iniziali(x) & " " & Settimana(x) & vbNewLine
	Next
	StrHeatingCal = StrHeatingCal & Iniziali(5) & " " & Settimana(5)
'
'
'
	StrSettings = "HEATMODE" & vbNewLine & StrHeatMode & vbNewLine & "TARGET TEMPERATURE" & vbNewLine & StrTargetTemp & vbNewLine & "TARGET DATE" & vbNewLine & StrTargetDate & vbNewLine & "TARGET TIME" & vbNewLine & StrTargetTime & vbNewLine & "TARGET WEEK DAY" & vbNewLine & StrWeekDay & vbNewLine & "HEATING CALENDAR" & vbNewLine & StrHeatingCal & vbNewLine & "HWMODE" & vbNewLine & StrHWMode & vbNewLine & "HOT WATER CALENDAR" & vbNewLine & StrHWCal & vbNewLine
'
'
'
	SaveSettings()
end if

StrRisposta = GetHtmlPage(Indirizzo + "?SETTINGS=RELOAD")
'
' parsing of http response from Arduino to get whole status
'
'
StrSettings = Mid(StrRisposta,InStr(StrRisposta,"HEATMODE"))
StrSettings = HTMLCleanup(StrSettings)
StrHeatMode = Mid(StrRisposta,InStr(StrRisposta,"HEATMODE")+14,1)
StrData = Mid(StrRisposta,InStr(StrRisposta,"DATE NOW")+14,10)
StrOra = Mid(StrRisposta,InStr(StrRisposta,"TIME NOW")+14,8)
StrTemp = Mid(StrRisposta,InStr(StrRisposta,"MEASURED TEMPERATURE")+26,5)
StrHeatingON = Mid(StrRisposta,InStr(StrRisposta,"HEATING CONTROL RELAY")+27,2)
StrBoilerON = Mid(StrRisposta,InStr(StrRisposta,"HOT WATER CONTROL RELAY")+29,2)
StrTargetTemp = Mid(StrRisposta,InStr(StrRisposta,"TARGET TEMPERATURE")+24,5)
StrTargetDate = Mid(StrRisposta,InStr(StrRisposta,"TARGET DATE")+17,10)
StrTargetTime = Mid(StrRisposta,InStr(StrRisposta,"TARGET TIME")+17,5)
StrWeekDay = Mid(StrRisposta,InStr(StrRisposta,"TARGET WEEK DAY")+21,1)
StrHeatingCal = Mid(StrRisposta,InStr(StrRisposta,"HEATING CALENDAR")+22,525)
StrHWMode = Mid(StrRisposta,InStr(StrRisposta,"HWMODE")+12,1)
StrHWCal = Mid(StrRisposta,InStr(StrRisposta,"HOT WATER CALENDAR")+24,133)
'
'
' parsing of Hot Water calendar string
'
For y=0 To 6
	SettimanaAcqua(y) = Mid(StrHWCal,InStr(StrHWCal,Iniziali(y))+4,9)
	Acqua(y,0) = Mid(SettimanaAcqua(y),InStr(SettimanaAcqua(y),"")+0,1)
	Acqua(y,1) = Mid(SettimanaAcqua(y),InStr(SettimanaAcqua(y),"")+2,5)
	Acqua(y,2) = Mid(SettimanaAcqua(y),InStr(SettimanaAcqua(y),"")+8,1)
Next
'
'
' parsing of Heating System calendar string
'
For y=0 To 6
	Settimana(y) = Mid(StrHeatingCal,InStr(StrHeatingCal,Iniziali(y))+4,65)
	For x=0 To 10
		Calendario(y,x) = Mid(Settimana(y),InStr(Settimana(y),"")+6*x,5)
	Next
Next
'
'
'
Catch wex as System.Exception

End Try

<h0><b>
<br><%  Response.Write(StrTemp) %>
&deg;C <br></b></h0>
<h1><b>
<%  Response.Write(StrTargetTemp) %>
&deg;C </b><br></h1>
<h3><% Response.Write(Nomi(2)) %>: 
<%
if StrHeatingON="OF" then
  Response.Write("<spento>" & Stato(0) & "</spento>")
else if StrHeatingON="ON" then
  Response.Write("<acceso>" & Stato(1) & "</acceso>")
else 
  Response.Write("<giallo>" & Stato(2) & "</giallo>")
end if
%>
</h3>

<h3><% Response.Write(Nomi(3)) %>: 
<%
if StrBoilerON="OF" then
  Response.Write("<spento>" & Stato(0) & "</spento>")
else if StrBoilerON="ON" then
  Response.Write("<acceso>" & Stato(1) & "</acceso>")
else 
  Response.Write("<giallo>" & Stato(2) & "</giallo>")
end if
%>
</h3>
<h4>
<form name='refresh' method='post'>
	<input type='hidden' name='SETTINGS' value='DISPLAY'>
<input type='submit' id="pulsante" value='<% Response.Write(TxtBottoneAggiorna)%>' >
</form>
</h4>
<hr>
<hr>
</div>
<form name='rel' method='post'>
<div style='font-family:verdana; width:2000px;'>
<titolo><% Response.Write(Nomi(4)) %></titolo>
<h3>
<%
For x=0 To 5
Response.Write("<input type='radio' name='HEATMODE' id='H" & x & "' value='" & x & "' onClick='Heating()' ")
if StrHeatMode=x then 
Response.Write("checked") 
else 
end if
Response.Write("><label for='H" & x & "'>" & Riscaldamento(x) & "</label><br>")
Next
%>
</h3>
</div>
<div style='font-family:verdana; width:2000px;' id="TTemperature">
<h3><% Response.Write(Nomi(1)) %></h3>
<input type="text" name='TARGETTEMPERATURE' value="<%Response.Write(StrTargetTemp)%>"/>
<br>
</div>
<div style='font-family:verdana; width:2000px;' id="TDate&Time">
<h3><% Response.Write(Nomi(6)) %></h3>
<input type="date" name="TARGETDATE" value="<%Response.Write(StrTargetDate)%>">
<input type="time" name="TARGETTIME" value="<%Response.Write(StrTargetTime)%>">
</div>
<div style='font-family:verdana; width:2000px;' id="TWeekDay">
<h3><% Response.Write(Nomi(7)) %></h3>
<select name="WEEKDAY">
<%
For x=1 To 6
Response.Write("<option value='" & x+1 & "'")
 
if StrWeekDay=x+1 then 
Response.Write("selected") 
else 
end if

Response.Write(">" & Giorni(x-1) & "</option>")
Next
Response.Write("<option value='1'")
 
if StrWeekDay="1" then 
Response.Write("selected") 
else 
end if

Response.Write(">" & Giorni(6) & "</option>")
%>
</select>
<br>
</div>
<div style='font-family:verdana; width:2000px;' id="HCal">
<h3><% Response.Write(Nomi(5)) %></h3>
<table><tr><td>
<table class="buttons1">
<%
For x=0 To 6
Response.Write("<tr><td><a class='tablinks' onclick='openDay(event, """ & LCase(Giorni(x)) & """)'>" & Giorni(x) & "</a></td></tr>")
Next
%>
</table>
</td>
<td>

<%
For x=0 To 6
	Response.Write("<table id='" & LCase(Giorni(x)) & "' class='tabcontent'><tr><td><b>" & Giorni(x) & "</b></td></tr><tr><td><table class='calendar'><tr><td>" & Nomi(10) & "</td><td>" & Nomi(12) & "</td></tr><tr><td><input type='text' name='x" & Giorni(x) & "' value='00:00' size='3' disabled='disabled'></td><td></td></tr>")
For k=0 To 9 Step 2
Response.Write("<tr><td></td><td><input type='text' name='" & Giorni(x) & k & "' size='3' maxlength='5' value='" & Calendario(x,k) & "'></td></tr><tr><td><input type='text' name='" & Giorni(x) & k+1 & "' size='3' maxlength='5' value='" & Calendario(x,k+1) & "'></td><td></td></tr>")
Next
Response.Write("<tr><td></td><td><input type='text' name='" & Giorni(x) & "10" & "' size='3' maxlength='5' value='" & Calendario(x,10) & "'></td></tr><tr><td><input type='text' name='y" & Giorni(x) & "' value='24:00' size='3' disabled='disabled'></td><td></td></tr></table></td></tr></table>")
Next
%>
</td>
</tr>
</table>
</div>
<div style='font-family:verdana; width:2000px;'>
<br>
<hr>
<titolo><% Response.Write(Nomi(8)) %></titolo>
<h3>
<%
For x=0 To 3
if x<>2 then
Response.Write("<input type='radio' name='HWMODE' id='HW" & x & "' value='" & x & "' onClick='HotWater()' ")
if StrHWMode=x then 
Response.Write("checked") 
else 
end if
Response.Write("/><label for='HW" & x & "'>" & AcquaCalda(x) & "</label><br>")
else
end if
Next
%>
</h3>
</div>
<div style='font-family:verdana; width:2000px;' id="HWCalendar">
<h3><% Response.Write(Nomi(9)) %></h3>
<table><tr><td>

<table class="buttons2">
<%
For x=0 To 6
Response.Write("<tr><td><a class='tablinks' onclick='openDay(event, """ & LCase(Giorni(x)) & "2"")'>" & Giorni(x) & "</a></td></tr>")
Next
%>
</table>

</td>
<td>
<%
For x=0 To 6
Response.Write("<table id='" & LCase(Giorni(x)) & 2 & "' class='tabcontent'><tr><td><b>" & Giorni(x) & "</b></td></tr><tr><td><table class='water'><tr><td>" & Nomi(10) & "</td><td>" & Nomi(11) & "</td></tr><tr><td><input type='text' value='00:00' size='3' disabled='disabled'></td><td></td></tr><tr><td></td><td><select name='A" & Giorni(x) & "0'><option value='0'")
'
if Acqua(x,0)="0" then 
Response.Write("selected") 
else 
end if
'
Response.Write(">" & Stato(0) & "</option><option value='1'")
'
if Acqua(x,0)="1" then 
Response.Write("selected") 
else 
end if
'
Response.Write(">" & Stato(1) & "</option></select></td></tr><tr><td><input type='text' name='A" & Giorni(x) & "1' size='3' maxlength='5' value='" & Acqua(x,1)  & "'></td><td></td></tr><tr><td></td><td><select name='A" & Giorni(x) & "2'><option value='0'")
'
if Acqua(x,2)="0" then 
Response.Write("selected") 
else 
end if
'
Response.Write(">" & Stato(0) & "</option><option value='1'")
'
if Acqua(x,2)="1" then 
Response.Write("selected") 
else 
end if
'
Response.Write(">" & Stato(1) & "</option></select></td></tr><tr><td><input type='text' value='24:00' size='3' disabled='disabled'></td><td></td></tr></table></td></tr></table>")
Next
%>

</td></tr></table>
<br>
</div>
<div style='font-family:verdana; width:2000px;'>
<input type='hidden' name='SETTINGS' value='RELOAD'>
<input id="pulsante" type='submit' value='<% Response.Write(TxtBottoneImposta)%>' >
<hr>
<hr>

</form>
<h4><a href='https://www.faureragani.it' target='_blank'>www.faureragani.it</a></h4>
</div>
</body>
</html>

Tutti i file necessari per realizzare il sistema possono essere scaricati a questo link.

Uno speciale ringraziamento a mio figlio Giulio che mi ha supportato nella realizzazione della pagina web ASP.NET.

All files needed to realize this system can be downloaded at this link.

Special thanks to my son Giulio who supported me in programming the ASP.NET web application.

"Arudino", "DS18B20" ed altri marchi citati in queste pagine sono proprieta' dei rispettivi titolari. "Arduino", "DS18B20" and other brands mentioned in these pages are trademarks of their respective owners.