Ich habe es gerade auch festgestellt.
Es ergibt sich folgender Code:
Code:
Config Portf = Input
Config Adc = Single , Prescaler = Auto , Reference = Avcc



Dim Joy1x As Integer
Dim Joy1x_temp As Integer
Dim Joy1x_skal As Integer

Start Adc

Do

  Joy1x = Getadc(1)

  Joy1x_temp = Joy1x / -5.03
  Joy1x_skal = Joy1x_temp + 100.8

  Print #2 , "Joystick 1 Position:  X=" ; Joy1x_skal

  Wait 1
Loop


End
Aber es braucht noch den Feinschliff, da die Werte noch nicht ganz passen.