Entfernungsmesser mit TSOP31240 oder Zufallszahlengenerator

 /*IR_Diode.c

 *

 * Function: Program erzeugt einen 40kHz Rechteck Takt an OC2 (PB3), liest AD-Werte an ADC0 (PC0) ein und gibt diese aus. 

 *

 * Created: 17.08.2011 21:33:07

 * letzte Änderung: 02.11.2011, 18.11.2011 (Einfügen der Variable temp)

 * Author: Jan

 */ 

#define F_CPU 1000000L

#include <avr/io.h>

#include <avr/interrupt.h>

#include <util/delay.h>

void init_timer2();

void adu_init();

int main(void)

{

  init_timer2();

  adu_init();

  PORTB |= 1;  //alles läuft

    while(1)

    {

    TCCR2 |= 1<<CS00;    //IR Takt starten

    _delay_ms(1);      //ca. 40 Takte warten

    ADCSRA |= 1<<ADSC;    //Start Conversion

    }

}

void init_timer2()

{

  DDRB = 0xff; //Port B auf Ausgang schalten (Toggle PORTB3)

  //Mode CTC

  TCCR2 |= (1<<WGM21)| (0<<WGM20);

  //Toggle OC2

  TCCR2 |= (1<<COM20) | (0<<COM21);

  //Comparewert 12Takte, f=1MHz

  //13=35kHz; 12=38,8kHz

  OCR2 = 12;  

  //Timer Starten

  TCCR2 |= 1<<CS00;  //Kein Prescaler, Timer Starten

}

//Ausgabe auf PortD

void adu_init()

{

  //Adu initialisieren  

  DDRD = 0xFF;          //PortD ist Ausgang

  PORTD =0x00;

  ADMUX =0;            //MUX3..0=0 ADC0 ist Eingang

  ADMUX |= 1<<REFS0 | 0<<REFS1;  //Vacc ist auch Ref-Spannung

  ADMUX |= 1<<ADLAR;        //ADC9-ADC2 stehen in ADCH, ADC1-ADC0 stehen in ADCL

  ADCSRA = 0;            //ADPS2..0 = 0 Kein Prescaler

  //ADCSRA |= 0<<ADFR;      //single Conversion Modus

  ADCSRA |= 1<<ADIE;        //Interrupt Freischalten (Conversion complete)

  ADCSRA |= 1<<ADEN;        //ADC Enable (einschalten)

  sei();

}

ISR(ADC_vect)

{

  unsigned char temp;  

  TCCR2 &= ~(1<<CS00);    //Timer2 stoppen

  temp= ADCH;

  PORTD=0xFF-temp;      //TSSOP ist lowaktiv -> naher Gegenstand = 0V (gewünscht ist naher Gegenstand = 255

  _delay_ms(100);        //Warten bis sich der Sensor wieder "beruhigt" hat

}