Subversion Repositories Projects

Rev

Rev 838 | Blame | Compare with Previous | Last modification | View Log | RSS feed

/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * main.c - Servo controlled infrared transmitter
 *
 * Copyright (c) 2010-0xFFFF Stefan Pendsa
 * Based on the nice IR decoder/encoder routines (IRMP/IRSND) from Frank Meyer => http://www.mikrocontroller.net/articles/IRMP
 *
 * ATMEGA8 @ 16 MHz
 *
 * Fuses: lfuse:0xAE  hfuse:0xD9
 *
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 * 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 2 of the License, or
 * (at your option) any later version.
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */


#include <inttypes.h>
#include <avr/io.h>
#include <util/delay.h>
#include <avr/pgmspace.h>
#include <avr/interrupt.h>
#include <avr/eeprom.h>
#include "irmp.h"
#include "irsndconfig.h"
#include "irsnd.h"

#ifndef F_CPU
#error F_CPU unkown
#endif


/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * Global variables
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

unsigned char key=0;                     // goes 1 when key was pressed
unsigned char ee_dummy EEMEM;            // don't use the first byte in EEPROM, causes problems on some old AVRs...
unsigned char ee_check EEMEM;            // Check-Byte to see if EEPROM is initialized
unsigned char active[5][5];              // Array to see which servo-combinations were populated with valid IR-codes
unsigned char ee_active[5][5] EEMEM;     // Array to see which servo-combinations were populated with valid IR-codes (in EEPROM)

IRMP_DATA ir_data[5][5];                 // Array with IR-codes for every servo-combination
IRMP_DATA ee_ir_data[5][5] EEMEM;        // Array with IR-codes for every servo-combination (in EEPROM)
IRMP_DATA ir_temp;                       // Received IR-codes goes into here



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * timer 1 initialization
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void timer_init (void)
{
  OCR1A   =  (F_CPU / F_INTERRUPTS) - 1; // compare value: 1/10000 of CPU frequency
  TCCR1B  = (1 << WGM12) | (1 << CS10);  // switch CTC Mode on, set prescaler to 1

#if defined (__AVR_ATmega8__) || defined (__AVR_ATmega16__) || defined (__AVR_ATmega32__) || defined (__AVR_ATmega64__) || defined (__AVR_ATmega162__)
  TIMSK  = 1 << OCIE1A;                  // OCIE1A: Interrupt by timer compare (use TIMSK for ATMEGA162)
#else
  TIMSK1  = 1 << OCIE1A;                 // OCIE1A: Interrupt by timer compare (use TIMSK for ATMEGA162)
#endif  // __AVR...
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * timer 1 compare handler, called every 1/20000 sec
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

ISR(TIMER1_COMPA_vect)
{
  if (!irsnd_ISR())                      // call irsnd ISR
  {                                      // if not busy...
      irmp_ISR();                        // call irmp ISR
  }    
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * LED control: 0 = off, >0 = on
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void LED(unsigned char bit)
{
  if (bit == 0) PORTD |= 1<<PORTD7;
  else PORTD &= ~(1<<PORTD7);
}




/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * LED Flash (on for time1, off for time2, repeated). Keypressing is checked in background
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void Flash(unsigned char time1, unsigned char time2, unsigned char repeat)
{
  unsigned char i,j;
  key = 0;
  for (i=0;i<repeat;i++)
  {
    PORTD &= ~(1<<PORTD7);
    for (j=0;j<time1;j++)
    {
      _delay_ms(1);
      if (!(PINB & (1<<PINB2))) key = 1;
    }
    PORTD |= 1<<PORTD7;
    for (j=0;j<time2;j++)
    {
      _delay_ms(1);
      if (!(PINB & (1<<PINB2))) key = 1;
    }
  }
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * LED Flash2 (on/off for time1, repeated, followed by delay of time2). Keypressing is checked in background
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void Flash2(unsigned char time1, unsigned int time2, unsigned char repeat)
{
  unsigned int i,j;
  key = 0;

  for (i=0;i<repeat;i++)
  {
    PORTD &= ~(1<<PORTD7);
    for (j=0;j<time1;j++)
    {
      _delay_ms(1);
      if (!(PINB & (1<<PINB2))) key = 1;
    }
    PORTD |= 1<<PORTD7;
    for (j=0;j<time1;j++)
    {
      _delay_ms(1);
      if (!(PINB & (1<<PINB2))) key = 1;
    }
  }

  for (j=0;j<time2;j++)
  {
    _delay_ms(1);
    if (!(PINB & (1<<PINB2))) key = 1;
  }
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * Waits for button release followed by a debounce delay
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void WaitForKeyRelease(void)
{
  while(!(PINB & (1<<PINB2)));
  _delay_ms(50);
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * Get position from servo inputs 1 and 2. Returns 1/2/3 for down/middle/up, 0 for GND and 4 for VCC
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

unsigned char Servo(unsigned char chan)
{
  cli();
  unsigned int i=0;

  for (i=0;i<7500;i++)                   // wait max. 75 ms for signal going down
  {
    _delay_us(10);
    if (!(PINC & (1<<(chan+1)))) break;
  }

  for (i=0;i<7500;i++)                   // wait max. 75 ms for signal going up
  {
    _delay_us(10);
    if (PINC & (1<<(chan+1))) break;
  }

  for (i=0;i<255;i++)                    // measure time until signal goes down
  {
    if (!(PINC & (1<<(chan+1)))) break;
    _delay_us(10);
  }


  sei();
  if (i < 75) return 0;                  // 0,00 - 0,74 ms => 0 (switch to GND)
  else if (i > 74 && i < 125) return 1;  // 0,75 - 1,24 ms => 1 (stick down)
  else if (i > 124 && i < 175) return 2; // 1,25 - 1,74 ms => 2 (stick middle)
  else if (i > 174 && i < 225) return 3; // 1,75 - 2,24 ms => 3 (stick up)
  else if (i > 224) return 4;            // 2,25 - ever ms => 4 (switch to VCC or open input)
  return 0;
}



/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * Learning-Mode: When an IR signal arrives, it is saved in an array position related to the actual servo positions
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

void Learn(void)
{
  unsigned char i,j,Servo1,Servo2,mode=1;
  for (i=0;i<5;i++)                      // first, forget every assignment
  {
    for (j=0;j<5;j++)
    {
      active[i][j] = 0;
    }
  }

  WaitForKeyRelease();

  while(1)
  {
    if (irmp_get_data (&ir_temp))        // when IR code is decoded,
    {
      Servo1 = Servo(1);                 // get Servo positions
      Servo2 = Servo(2);
      ir_temp.flags = 0;                 // ignore repeat-flag
      ir_data[Servo1][Servo2] = ir_temp; // populate the array
      active[Servo1][Servo2] = mode;     // and flag it with the actually mode
      Flash(25,25,10);                   // fast flash LED 10 times to indicate a learned code
    }

    Flash2(100,500,mode);                // slow flash LED whole time to indicate we are in learning mode (flashing 1 or 2 times, depends on mode)

    if (key)                             // toggle mode: single -> multi -> single -> multi ...
    {
      if (mode == 1) mode = 2;
      else mode = 1;

      _delay_ms(500);
      if (!(PINB & (1<<PINB2))) break;   // Leave learning mode when button is pressed for 500 ms
    }

  }

                                         // Write to EEPROM  
  eeprom_write_block(&ir_data,&ee_ir_data,sizeof(unsigned char)*25*6);
  eeprom_write_block(&active,&ee_active,sizeof(unsigned char)*25);

  Flash(25,25,10);                       // fast flash LED 10 times to indicate that we are leaving the learning mode
  WaitForKeyRelease();
}


/*---------------------------------------------------------------------------------------------------------------------------------------------------
 * MAIN: main routine
 *---------------------------------------------------------------------------------------------------------------------------------------------------
 */

int main (void)
{
  unsigned char i,j,Servo1,Servo2,Servo1old=99,Servo2old=99;

  DDRB = 0b00001000;                     // IRED output, Switch input
  PORTB = 0b00000100;                    // PullUp for Switch

  DDRC = 0b00000000;                     // Input for Servo-Signals
  PORTC = 0b00001100;                    // PullUp for (unused) Servos

  DDRD = 0b10000000;                     // Input for received IR, output for LED
  PORTD = 0b11000000;                    // PullUp for received IR, LED off
 

  if (eeprom_read_byte(&ee_check)!=0xE7) // When EEPROM is uninitialized, do it now
  {
    for (i=0;i<5;i++)
    {
      for (j=0;j<5;j++)
      {
        active[i][j] = 0;
      }
    }
   
    eeprom_write_byte(&ee_check, 0xE7);
    eeprom_write_block(&active,&ee_active,sizeof(unsigned char)*25);
  }

  else                                   // else, read in the contents
  {
    eeprom_read_block(&ir_data,&ee_ir_data,sizeof(unsigned char)*25*6);
    eeprom_read_block(&active,&ee_active,sizeof(unsigned char)*25);
  }


  irmp_init();                           // initialize irmp
  irsnd_init();                          // initialize irsnd
  timer_init();                          // initialize timer
  WaitForKeyRelease();
  sei();                                 // enable interrupts


  while(1)                               // Main loop
  {
    if (!(PINB & (1<<PINB2))) Learn();   // Enter learning mode when the button is pressed

    Servo1 = Servo(1);                   // get servo positions
    Servo2 = Servo(2);

                                         // when the actual posision was saved before, and the inputs are in a new position, send out its IR-code (single mode)
    if (active[Servo1][Servo2] == 1 && (Servo1old != Servo1 || Servo2old != Servo2))
    {
      LED(1);                            // light up LED while sending IR-code
      irsnd_send_data(&ir_data[Servo1][Servo2],FALSE);
      while (irsnd_is_busy());           // wait until the frame was sent
      _delay_ms(100);
      LED(0);
    }

    if (active[Servo1][Servo2] == 2)     // when the actual position was saved before, send out its IR-code (multi-mode)
    {
      LED(1);                            // light up LED while sending IR-code
      irsnd_send_data(&ir_data[Servo1][Servo2],FALSE);
      while (irsnd_is_busy());           // wait until the frame was sent
      LED(0);
    }

    Servo1old = Servo1;                  // save old positions for single-mode
    Servo2old = Servo2;
  }

}