Hallo!
Einfacher gehts nicht!Code:$regfile = "m16def.dat" $crystal = 14745600 $hwstack = 64 $swstack = 64 $framesize = 64 $baud = 19200 Admux = &B01100000 'Ref=AVCC;Left Adj.;Pina.0 Adcsra = &B11100110 'ADC Enable;Start Conversion;Auto Trigger;Prescaler=64 Sfior = &B00000000 'Free Run Dim Adc_wert As Byte Do Adc_wert = Adch Print Adc_wert Loop End
MfG
Rone
Edit: All diese Hinweise wurden schon gegeben!
Lesezeichen