/*
 * HomemanagerGKH.c
 * -HM-V1.0
 * -HM-V1.1  wenn Status Störung, wir des Display backlight heller
 * -HM-V1.11 Softwarestruktur geändert, Lösung ohne Inerrunpts 22.02.2015
 *           Autoreset bei NIV ALARM und UV ALARM.
 * -HM-V1.12 Grenzwert P2 UV-c Entkeimung von 24W/m2 auf 20W/m2 geändert 01.03.2015
 * Created: 03.02.2015 19:10:01
 *  Author: thobe
 * Display 2x16, 
 *  |NTU= <NT.U> Niv:(OK/<70)|
 *  |UV:(OK/ST) Heizung: (OK/ST)|
 *
 * Eingänge:
 * AlarmReset Taster no(PB2), Störung W.Zulaufventil no(PB3), Störung Heizung no(PB4)
 * Störung Niveau nc(PD2), Störung UVC nc(PD3)
 * ADC0 NTU(PC0), AREF =3.3V
 * Ausgänge:
 * LEDdimmOFF(PB0) Display Hintergrundbeleuchtung wird heller
 * LED/Blinklicht Relais(PB1)
 */ 

#define F_CPU 8e6
#define NIV_ST PIND &(1<<PD2)
#define NIV_OK (!(PIND &(1<<PD2)))
#define UV_ST PIND &(1<<PD3)
#define UV_OK (!(PIND &(1<<PD3)))
#define ALR PINB &(1<<PB2)
#define STV_ST (!(PINB &(1<<PB3)))
#define STH_OK PINB &(1<<PINB4)
#define AlarmEin PORTB |= (1<<PB1)
#define AlarmAus PORTB &= ~(1<<PB1)
#define BLO PORTB |= (1<<PB0)
#define BLD PORTB &= ~(1<<PB0)
#include <avr/io.h>
#include <util/delay.h>
#include <stdio.h>
#include <stdlib.h>
#include "../../Includes/LCD_display_BT_D014567.h"

char str[4];
uint16_t ADC_result;
float offset = 0.6;//0-10  (4-20mA =) 0.6-3.0V-offset(0.6)=0-2.4V
float slope = 0.24;//2.4V/10=0.24
float voltage;
float NTU;
int lstat = 0;//level status
int ustat = 0;//UVC status

int main(void)	
{
			// initialize ADC - Prescaler=64 (8 MHz/64=125 kHz)
	ADCSRA = (1<<ADEN) | (1<<ADPS2) | (1<<ADPS1);
	ADMUX = 0x00; // select channel (ADC0)
	ADCSRA |= (1<<ADSC); // single conversion
	while ( ADCSRA & (1<<ADSC) ); // wait for ADC ready
	ADC_result = ADCW; // get value
	ADC_result = 0; // discard dummy value
	
			// initialize LCD - Display PORTD (RS)0,(E)1,(D4)4,(D5)5,(D6)6,(D7)7
	lcd_init(); lcd_send(COMMAND, LCD_CLEAR);//!setzt alle Pins am DDRD auf 1 (Ausgang) DDRD = 0xff)!
	lcd_set_cursor(1, 0);lcd_write("Homemanager  GKH");
	lcd_set_cursor(2, 2);lcd_write("V1.1 2015 BT");
	_delay_ms(5000);
	lcd_send(COMMAND, LCD_CLEAR);
			//Ein und Ausgänge konfigurieren
	DDRB |= (1<<PB0)|(1<<PB1);//Ausgang LEDdimmOFF, Alarm
	DDRD &= ~((1<<PD2)|(1<<PD3));//Eingänge PORT D
	DDRB &= ~((1<<PB2)|(1<<PB3)|(1<<PB4));//Eingänge PORT B
	PORTB |= (1<<PB2)|(1<<PB3)|(1<<PB4);//Pullups
			//Statusanzeige
	lcd_set_cursor(1, 0);lcd_write("NTU=     Niv:");
	lcd_set_cursor(2, 0);lcd_write("UV:   Heizung:");

    while(1)
    {  
		if (STV_ST)
		   {lcd_set_cursor(1, 0); lcd_write("Stoerung Wasser-");
			lcd_set_cursor(2, 0); lcd_write("Zulaufventil    ");
			AlarmEin;
			while (STV_ST);
			lcd_set_cursor(1, 0);lcd_write("NTU=     Niv:");
			lcd_set_cursor(2, 0);lcd_write("UV:   Heizung:");
			AlarmAus;
		   }
		if ((NIV_ST) && (lstat == 0))
			{AlarmEin;
		    lcd_set_cursor(1, 0); lcd_write("Wassertank  10m3");
			lcd_set_cursor(2, 0); lcd_write("Niveau unter 70%");
			while ((ALR) && (NIV_ST));//warten bis Reset Taster gedrückt, oder Niveau OK 
			lcd_set_cursor(1, 0);lcd_write("NTU=     Niv:");
			lcd_set_cursor(2, 0);lcd_write("UV:   Heizung:");
			lstat =1;
			AlarmAus;				
		   }
		if ((UV_ST) && (ustat == 0))
		   {AlarmEin;
			lcd_set_cursor(1, 0); lcd_write("Stoerung UV-Entk");
		    lcd_set_cursor(2, 0); lcd_write("P2! Leistung<20W");
		    while ((ALR)  && (UV_ST));//warten bis Reset Taster gedrückt, oder UV OK
			lcd_set_cursor(1, 0);lcd_write("NTU=     Niv:");
			lcd_set_cursor(2, 0);lcd_write("UV:   Heizung:");
			ustat =1;
			AlarmAus;				
		   }
		   
		//ADC conversion
		ADMUX = 0x00; // select channel (ADC0)
        	//ADMUX Ref=extern
        ADCSRA |= (1<<ADSC); // single conversion
        while ( ADCSRA & (1<<ADSC) );
        ADC_result = ADCW;
        voltage = ((ADC_result * 3.3 /1023.0)-offset);
        		// AREF=3.3V, 10 Bit A/D-converter: 2^10-1=1023
        NTU = (voltage /slope);
        dtostrf(NTU, 4, 1, str);
        lcd_set_cursor (1, 4); lcd_write(str); 
		
		//check status
		 if (lstat == 0)
			{lcd_set_cursor(1, 13);lcd_write("OK ");
			}
			else
			{lcd_set_cursor(1, 13);lcd_write("<70");
			 BLO;//Disp. Backuplight dimmOFF
			}
		if (ustat == 0)
			{lcd_set_cursor(2, 3);lcd_write("OK");
			}
			else
			{lcd_set_cursor(2, 3);lcd_write("ST");
			BLO;//Disp. Backuplight dimmOFF
			}
		
		if (STH_OK)//Störung Heizung
			{lcd_set_cursor(2, 14); lcd_write("OK");
			AlarmAus;				
			} 
			else
			{lcd_set_cursor(2, 14); lcd_write("ST");
			AlarmEin;
			} 
			
		if (NIV_OK) //PIN-Abfrage INT0 =nicht1
			{lstat = 0;
			}
		if (UV_OK) //PIN-Abfrage INT1 =nicht1
			{ustat = 0;
			}
	
	    if ((lstat == 0) && (ustat == 0))
		    {BLD; //Dispay backlight dimm
		    }
	}
}