ich möchte den Drehwinkel eines Potis (etwa 300°) durch einen analogen Eingang berechnen lassen.

Klappt auch soweit mit meinem erdachtenCode, nur ist mir die Berechnung zu lang - kann man da etwas verbessern/verkürzen ?

Code:
Do
Cls
Dim W As Word
Dim I As Byte
Dim G As Word
Dim E As Word

Dim Channel As Byte
Config Adc = Single , Prescaler = 16 , Reference = Off
Start Adc
Channel = 0
W = Getadc(channel)
I = 3.41                                                    'Faktor -> 1023 max. Analog entspricht max. Drehwinkel von 300 Grad'
G = W * I                                                   'Ergebnis Analogwert * Faktor'
E = G / 10                                                  'geteilt durch 10'
Lcd "Drehwinkel = " ; E ;
Cursor Off
Waitms 100
Loop
End

...wünschenswert wäre so ungefähr
Winkel = (gelesener Analogwert * Faktor) : 10