Wenn du auch ein M16 hast, stimmen die Ports.

Alternativ, damit der Erfolg nicht auf morgen verschoben werden muss, eine andere Variante des Programms. Falls die erste nicht geht

$regfile = "m16def.dat" 'Mega16
$crystal = 12000000 '12 MHz
Config Adc = Single , Prescaler = Auto , Reference = Internal 'ADC einstellen
Start Adc

DIM A As Byte
DIM I as Byte

Config Portb = Output

Do
A = GETADC(0) 'Den Pin beachten! für Mega16 wäre das Pin 40
Portb = $ff
do
decr a
Waitms 1
loop until a=0
Portb = $00

a=getadc(0) 'hier den Wert nochmal einholen, der alte A Wert ist ja schon auf 0
do
decr a
waitms 1
loop until a = 0
Loop



Waitms evtl auf ein paar ms mehr setzen.

Und dann am Poti drehen und schauen was passiert.