Hallo Chris,
hier sind noch einige Fehler korrigiert.

Code:
$regfile = "m32def.dat"
$crystal = 16000000

Config Adc = Single , Prescaler = Auto
Config Portc = Output

Portc = 62                            'hier werden die Ausgänge 1-5 auf 1 gesetzt (00111110)
Start Adc

Dim I As Byte
Dim X As Word

X = 1
I = 1
Do
   X = Getadc(7)
   If X < 130 Then
      I = I - 1
      If I = 0 Then I = 5
   Elseif X > 220 Then
      I = I + 1
      If I = 6 Then I = 1
   End If
   Waitms 20
   Portc = 62
   Portc.i = 0
Loop

End
Welchen Wert gibt Getadc(7) zurück, wenn kein Taster gedrückt ist und wie reagiert das Programm?

Gruß

Rolf