Hallo
Ich hab mir mal für mein RN-Controllboard 1.4 ein Programm gebastelt um 5 von den 6 Tastern zu benutzen um die LEDs an und aus zu machen.
Nur sobald ich das Programm hochlade sind alle 5 LEDs an und das mit den Tastern funktioniert nicht.

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

Speaker Alias Portd.7
Declare Function Tastenabfrage() As Byte
Config Adc = Single , Prescaler = Auto , Reference = Internal
Config Portc.7 = Output
Config Portc.6 = Output
Config Portc.5 = Output
Config Portc.4 = Output
Config Portc.3 = Output
Blink_led Alias Portc.7
Blink_led2 Alias Portc.6
Blink_led3 Alias Portc.5
Blink_led4 Alias Portc.4
Blink_led5 Alias Portc.3

Dim Taste As Byte
Const Ref = 5 / 1023

Function Tastenabfrage() As Byte

Local Ws As Word
Tastenabfrage = 0
Start Adc
Ws = Getadc(0.)

End

If Ws < 1010 Then

Select Case Ws

Case 410 To 450
Tastenabfrage = 1
Blink_led = 1

Case 340 To 380
Tastenabfrage = 2
Blink_led2 = 1

Case 265 To 305
Tastenabfrage = 3
Blink_led3 = 1

Case 180 To 220
Tastenabfrage = 4
Blink_led4 = 1

Case 100 To 130
Tastenabfrage = 5
Blink_led5 = 1

End Select
End If
End Function

Das ist der Code. Findet da jemand einen Fehler? Oder sind evtl nur die Werte für den Case falsch.