Hallo!

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
Einfacher gehts nicht!

MfG
Rone


Edit: All diese Hinweise wurden schon gegeben!