habe die lösung gefunden für Bascom :
Code:
$regfile = "m16def.dat"
$crystal = 8000000
$baud = 19200


Dim Adhi As Byte
Dim Adlow As Byte
Dim Adcergebnis As Word
Dim A As String * 10

Config Porta = Input

Disable Interrupts
Adcsra.aden = 1
Adcsra.adate = 1
Adcsra.adie = 1
Adcsra.adsc = 1
Adcsra.adps0 = 1
Adcsra.adps1 = 1
Adcsra.adps2 = 1
Admux.refs0 = 1
Admux.mux0 = 1 ' adc1
Enable Interrupts

On Adc Onadc

Do

Input A
Print A
Waitms 10

Loop

Onadc:
   Adcsra.adsc = 1
   Adlow = Adcl
   Adhi = Adch
   Adcergebnis = Adhi * 256
   Adcergebnis = Adcergebnis + Adlow
   If Adcergebnis < 200 Then
     Print Adcergebnis
   End If
Return