Dann habe ich folgenden Code: (ohne Standard-Anweisungen)


Code:
   Config Adc = Single , Prescaler = Auto                   'Für Tastenabfrage und Spannungsmessung
   Config Porta = Input                                     'Port A als Eingang setzen
   Config Portc = Output                                    'Port C für LED's setzen
           Porta. = 1                                       'Pullup-Wiederstände von Port A ein

   Do                                                       ' Abfrageschleife
      If Pina.5 = 1 Then
         Portc.1 = 0
      Else
         Portc.1 = 1
      End If
   Loop
Aber selbst dann tut sich gar nichts.