TSL201 und AtMega

[Josef M. (Firma: Privat) (jmoellers)]

Moin,

Hat schon mal jemand den TSL201 (64 X 1 LINEAR SENSOR ARRAY) mit einem 
AtMega angesteuert?

Ich habe einen AtMega88 der mit dem internen Taktgenerator arbeitet 
(ohne /8 Prescaler).

Den Takt des TSL201 erzeuge ich mit dem TIMER2 im Phase-Correct PWM und 
den SI Impuls direkt:

    TCCR2A = (0 << COM2A0) | (3 << COM2B0) | ((wgm & 0x03) << WGM20);
    TCCR2B = (((wgm >> 2) & 0x01) << WGM22) | (2 << CS20);
    TCNT2 = 0;
    OCR2A = 64;
    OCR2B = 32;
    TIMSK2 = 0;     /* Disable all interrupts or (1 << OCIE2B)?? */
    DDRD |= (1 << 3) | (1 << 2);

        /* Clear TOV1 */
        TIFR2 |= (1 << TOV2);
        /* Wait for TOV1 */
        while ((TIFR2 & (1 << TOV2)) == 0)
            ;
        /* set PD2 */
        PORTD |= (1 << 2);
        /* Wait for TCNT2 to decrease */
        do {
            tcnt2 = TCNT2;
        } while (TCNT2 >= tcnt2);
        /* clear PD2 */
        PORTD &= ~(1 << 2);

Den ADC habe ich so initialisiert:

    ADMUX = (0 << REFS0) | (1 << ADLAR) | (0 << MUX0);
    USART_send_hex(ADMUX); USART_Transmit('\n');
    ADCSRA = (1 << ADEN) | (0 << ADSC) | (0 << ADATE) | (1 << ADIF) | (0 << ADIE) | (6 << ADPS0);
    USART_send_hex(ADCSRA); USART_Transmit('\n');
    DIDR0 = (1 << ADC0D);

Dann starte ich den ADC:

        for (i = 0; i < 64; i++)
        {
            /* Clear OCF2B */
            TIFR2 |= (1 << OCF2B);
            /* Wait for OCF2B */
            while ((TIFR2 & (1 << OCF2B)) == 0)
                ;
            /* start conversion */
            ADCSRA |= (1 << ADSC) | (1 << ADIF);
            PORTD |= (1 << 4);
            /* wait for conversion to finish */
            while ((ADCSRA & (1 << ADIF)) == 0)
                ;
            PORTD &= ~(1 << 4);
            /* read converted value into array */
            array[i] = ADCH;
        }

Seltsamerweise sehe ich keinen Unterschied in den Daten, egal ob der 
Sensor angestrahlt oder im Dunkeln ist!

[Josef M. (Firma: Privat) (jmoellers)]

Problem gelöst:

Ich hatte zwei Durchläufe programmiert: einmal um den Sensor (durch 
Auslesen) zu löschen und einmal um den Sensor dann definiert auszulesen.
Natürlich muß man beim zweiten Durchlauf erneut ein SI geben, sonst 
sieht man nix ;-)

Jetzt erkenne ich, wenn ich den Sensor teilweise abdecke: nur ein Teil 
ist ff, der andere ist kleiner!

Josef