ADC mit TWI

[MagicWSmoke]

Man kann einfacher

Readadc = ADC

schreiben.
Der ADC ist im Auto-Mode auch ohne ADCC-ISR zu betreiben, das Ergebnis per Var = ADC abgeholt entspricht dem aktuellsten Wert, d.h:

If Twi_status = &HA8 Or Twi_status = &HB8 Then
   Twdr = ADC
...

Und sowas hier:

Adcsra = &B11101110

liest sich so bedeutend besser:

 Adcsra = Bits(ADEN, ADSC, ADATE, ADIE, ADPS2, ADPS1)

Ist auch weniger anfällig für Schreibfehler.

[stefan8010]

@MagicWSmoke
Vielen Dank!
Habs hinbekommen.