//final code for ATmega1284
//function: wireless receive, lighting, fan and music control system
#include <inttypes.h>
#include<util/delay.h>
#include <avr/io.h>
#include <avr/interrupt.h>
#include "lcd_lib.h"
#include <avr/pgmspace.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <util/delay.h>
#define BAUDRATE 9600
#define UBRRVAL ((F_CPU/(BAUDRATE*16UL))-1)
#define USART_DDR       DDRD
#define USART_PORT      PORTD
#define USART_RX_PIN    2       
#define USART_TX_PIN    3
#define t1 1000



int8_t lcd_buffer[17];	// LCD display buffer
int8_t lcd_buffer2[17];
volatile unsigned int lcdtime=30;
volatile unsigned int time0,time1=0;
//float pinvalue=0;
volatile char index;

volatile unsigned int pinvalue=0;



//**************************************************************************
// LCD setup
void init_lcd(void) 
{
	LCDinit();	//initialize the display
	LCDcursorOFF();
	LCDclr();				//clear the display
	LCDGotoXY(0,0);
}	


//**************************************************************************
//timer 0 compare ISR
ISR (TIMER0_COMPA_vect)
{
  //Update the task time
  //if (time0>0)	--time0;
  if (time1>0)  --time1;
  
}  
//**************************************************************************

// task 1 writes to LCD every 1000 mSec

void task1 (void) 
{
  

  if(lcdtime>0)
  {
    lcdtime-=1;
  }
  else
  {
    lcdtime=0;   
	if (index=='i')
	{
     OCR0A=255;
	}
  }


  pinvalue=ADCH*0.96/5.00;
  
  //*0.955/50.00;
  ADCSRA|=(1<<ADSC);
//pinvalue=PINA1;
//pinvalue=PINA&_BV(PINA1);

   if(pinvalue<2.00) //need to test
    {
   	    LCDGotoXY(0,1);
	    LCDstring("No Device          ",strlen("No Device          "));
    }

  	if(pinvalue>2.00)
  	{
    	LCDGotoXY(0,1);
		LCDstring("BR LED WORKING          ",strlen("BR LED WORKING          "));
   	}

}


//**************************************************************************
void USART_Init(void)
{
  USART_DDR|=((1<<USART_TX_PIN)&(~(1<<USART_RX_PIN)));//0x00000010 Tx output Rx input
  USART_PORT = 0X00; 


//Set baud rate
  UBRR1L=(F_CPU/16/(BAUDRATE+1))%256;   
  UBRR1H=(F_CPU/16/(BAUDRATE+1))/256;

//Set data frame format: asynchronous mode,no parity, 1 stop bit, 8 bit size
  UCSR1C=(0<<UMSEL11)|(0<<UMSEL10)|(0<<UPM11)|(0<<UPM10)|
  (0<<USBS1)|(0<<UCSZ12)|(1<<UCSZ11)|(1<<UCSZ10)|(0<<UCPOL1);


//Enable Receiver and Interrupt on receive complete
  UCSR1B=(1<<RXEN1)|(1<<RXCIE1)|(1<<TXEN1);

                         
}

//**************************************************************************
uint8_t USART_vReceiveByte(void)
{
  // Wait until a byte has been received, is there any data has not been read out
  while((UCSR1A&(1<<RXC1)) == 0);
  //while(!(UCSR1A&(1<<RXC1)));

  // Return received data
  return UDR1;
}

  ISR(USART1_RX_vect)
  {
    UDR1=0;//clear UART buffer

    uint8_t data;//unsigned char

    data=USART_vReceiveByte();//receive data
 
//OCR0A--P3  living room---"a"on/"b"off/"c"dimmer  
//OCR0B--P4  bedroom room---"d"on/"e"off
//OCR2A--D7  fan ---"f"on/"g"off/"h"dimmer
//OCR2B--D6  NC
//set 30sec discount+stop 1.trun on fan/turn off fan;2.on/off living room;3.on/off dining room
//error detection pull out fan bulb show error on lcd

//Bedroom LED on
 if(data=='a')
 {
     OCR0A = 10;
     //LCD show "BR LED ON"
     LCDGotoXY(0,0);
     LCDstring("BR LED ON       ",strlen("BR LED ON       "));
 
     LCDGotoXY(0,1);
     LCDstring("               ",strlen("               "));
  }

//Bedroom LED off 
  if(data=='b')
  {
     OCR0A = 255;
   //LCD show "LR LED OFF"
     LCDGotoXY(0,0);
     LCDstring("BR LED OFF",strlen("BR LED OFF"));

   //LCD second line show "working" or "open"
     LCDGotoXY(0,1);
	 LCDstring("               ",strlen("               "));
  }

//Bedroom LED dimmer
  if(data=='c')
  {
     OCR0A = 200;
   //LCD show "LR LED OFF"
     LCDGotoXY(0,0);
     LCDstring("BR LED DIMMER  ",strlen("BR LED DIMMER  "));

   //LCD second line show "working" or "open"
     LCDGotoXY(0,1);
	 LCDstring("               ",strlen("               "));
  }

//Living room LED on
  if(data=='d')
 {
     OCR0B = 0;
     //LCD show "LR LED ON"
     LCDGotoXY(0,0);
     LCDstring("LR LED ON       ",strlen("LR LED ON       "));

   //LCD second line show "working" or "open"
  }

//living room LED off
  if(data=='e')
  {
     OCR0B = 255;
     //LCD show "LR LED OFF"
     LCDGotoXY(0,0);
     LCDstring("LR LED OFF       ",strlen("LR LED OFF       "));

     //LCD second line show "working" or "open"
     LCDGotoXY(0,1);
	 LCDstring("          ",strlen("          "));
   }

//Fan on
  if(data=='f')
 {
     OCR2A = 0;
     //LCD show "LR LED ON"
     LCDGotoXY(0,0);
     LCDstring("FAN ON  ",strlen("FAN ON  "));

     //LCD second line show "working" or "open"

  }

  if(data=='h')
 {
     PORTA^=0xFE;
  
       // (1<<PINB3) |(1<<PINB4)
     DDRA=0xFE;
 }
  
  
//Fan lower
  if(data=='j')
 {
     OCR2A = 100;
     //LCD show "LR LED ON"
     LCDGotoXY(0,0);
     LCDstring("FAN LOWER  ",strlen("FAN LOWER  "));

     //LCD second line show "working" or "open"

  }

//Fan off
  if(data=='g')
  {
     OCR2A = 255;
     //LCD show "LR LED OFF"
     LCDGotoXY(0,0);
     LCDstring("FAN OFF",strlen("FAN OFF"));

     //LCD second line show "working" or "open"
     LCDGotoXY(0,1);
	 LCDstring("          ",strlen("          "));
  }


//Bedroom LED Timing Mode
  if(data=='i')
  {
    OCR0A=10;
    lcdtime=30;
	index=data;
   //lcd show lcdtime as each time 
   
    LCDGotoXY(0,0);
    LCDstring("T=",strlen("T="));
    sprintf(lcd_buffer,"%d",lcdtime); 
    LCDGotoXY(2, 0);
  	// display the lcdtime 
    LCDstring(lcd_buffer, strlen(lcd_buffer));	
    LCDGotoXY(2+strlen(lcd_buffer),0);
    LCDstring("sec      ", strlen("sec      "));
  }

}

//*******************************************************************************
int main(void)
{ 
//UDR1=0;//clear UART buffer turn on UDR1

  // start the LCD 
  init_lcd();

  LCDGotoXY(0,0);
  LCDstring("SMART HOME   ",strlen("SMART HOME   "));

  ADMUX=(1<<ADLAR)|(1<<REFS0);//left adjust and turn on the internal reference
  ADCSRA=(1<<ADEN)|(1<<ADSC)+7;//enanle ADC and start conversion, set the prescalar to 1MHz

  PORTA=0x00;

  DDRA=0x00;


 // pinvalue=bit_is_set(PINA,PINA1);

//LCDclr();
//**********************************

  //set up timer 0 for 1 mSec ticks
  TIMSK0 = 2;		//turn on timer 0 cmp match ISR 
  OCR0A = 249;  	//set the compare reg to 250 time ticks
  TCCR0A = 0b00000010; // turn on clear-on-match
  TCCR0B = 0b00000011;	// clock prescalar to 64 clkI/O/64 (From prescaler)

//***********************************
//pwm

   DDRB = (1<<PINB3) |(1<<PINB4);
   DDRD = (1<<PINB6) |(1<<PINB7);
 //  PORTB=0x10;

   // timer 0 runs at full rate
   TCCR0B = 3 ;  //clkI/O/64 (From prescaler)=011
   TCCR2B = 3;    //clkT2S/64 (From prescaler)=100   /32=011

   // turn on PWM
   // turn on fast PWM and OC0A output
   // at full clock rate, toggle OC0A (pin B3) 
   // 16 microsec per PWM cycle sample time
   TCCR0A = (1<<COM0A0) | (1<<COM0A1) | (1<<WGM00) | (1<<WGM01) |(1<<COM0B0) | (1<<COM0B1); 

   OCR0A =255;   //P3
   OCR0B =255;   //p4

   TCCR2A = (1<<COM2A0) | (1<<COM2A1) | (1<<WGM20) | (1<<WGM21) |(1<<COM2B0) | (1<<COM2B1); 
   OCR2A =255;  //D7
   OCR2B =255;  //D6

//*****************************************************************

//PORTC=0xFF;
  sei();//enable global interrupts

  USART_Init();


 while(1)
  { 

   if (time1==0){ time1=t1; task1();}

  }

}