Um das Mysterium zu lüften:
Lt. RNControl Test Programm ist die korrekte Tastenabfrage folgendermassen:
Code:
   Start Adc
   Ws = Getadc(7)
   If Ws < 1010 Then
      Select Case Ws
         Case 410 To 450     'TASTE 1 gedrückt
         Case 340 To 380     'TASTE 2 gedrückt
         Case 265 To 305     'TASTE 3 gedrückt
         Case 180 To 220     'TASTE 4 gedrückt
         Case 100 To 130     'TASTE 5 gedrückt
      End Select
   End If
Also ist KEINE Taste ist offenbar >= 1010




ANderes Problem:
Code:
 If X < 130 Then 
  I = I - 1 
  Waitms 20 
  If I = 1 Then ....
  Elseif I > 5 Then ....
Beim Runterzählen macht man üblicherweise
Elseif I < 1 Then ....
Die Zahl kann ja nur kleiner werden und nicht grösser

Noch was :
bei I > 5 oder < 1 setzt du immer I=1
da du aber sofort +1 oder -1 rechnest, kommt also entweder 2 oder 0 raus, die "1" kommt NIE