Hallo,

hier erstmal mein Programm (auf das Nötigste gekürzt)

Code:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600

' =============================================================================
' Variablendeklaration
' =============================================================================
Dim I As Integer                                            'Zählvariable

Dim Servodevice As Byte                                     'Servoansteuerung
Dim Servocommand As Byte
Dim Servonummer As Byte
Dim Servodata As Byte

Dim Greifer As Integer                                      'Greiferposition
Dim Greifergelenk As Integer
Dim Mittelgelenk As Integer
Dim Hauptgelenk1 As Integer
Dim Hauptgelenk2 As Integer


' =============================================================================
' Konfiguration
' =============================================================================
Config Portb = Input                                        'Input1 für Taster
Config Portc = Output                                       'Output für LEDs
Config Portd = Input                                        'Input2 für Taster
Config Portd.7 = Output                                     'Output für Sounds
Config Scl = Portc.0                                        'Ports fuer I2C-Bus
Config Sda = Portc.1

Config Pina.0 = Output                                      'Kommunikation
Stepper_enable Alias Porta.0                                'mit MOTCTRL
Config Pina.1 = Output
Stepper_richtung Alias Porta.1
Config Pina.2 = Output
Stepper_takt Alias Porta.2


' =============================================================================
' Statusmeldung "OK"
' =============================================================================
Sound Portd.7 , 400 , 200
   Waitms 100
Sound Portd.7 , 400 , 300
   Waitms 100
Sound Portd.7 , 400 , 400
   Waitms 100
Sound Portd.7 , 400 , 500
   Waitms 100
Sound Portd.7 , 400 , 600
   Waitms 100
Sound Portd.7 , 400 , 700
   Waitms 100
Sound Portd.7 , 400 , 800
   Waitms 100
Sound Portd.7 , 900 , 900
   Waitms 100


' =============================================================================
' Initialisierung
' =============================================================================
Portc.0 = 0                                                 'Alle LEDs an
Portc.1 = 0
Portc.2 = 0
Portc.3 = 0
Portc.4 = 0
Portc.5 = 0
Portc.6 = 0
Portc.7 = 0

Portb.0 = 1                                                 'Pullup-Widerstände
Portb.1 = 1
Portb.2 = 1
Portb.3 = 1
Portb.4 = 1
Portb.5 = 1
Portb.6 = 1
Portb.7 = 1

Portd.0 = 1
Portd.2 = 1
Portd.4 = 1
Portd.6 = 1

Stepper_enable = 0                                          'Motor aus


' =============================================================================
' Eigentliches Programm als Endlosschleife
' =============================================================================
Do
' =============================================================================
' Taster 1                       nach links schwenken
' =============================================================================
  If Pinb.0 = 1 Then
    Portc.0 = 0
  Else
    Portc.0 = 1
  End If
' =============================================================================
' Taster 2                       nach rechts schwenken
' =============================================================================
  If Pinb.2 = 1 Then
    Portc.1 = 0
  Else
    Portc.1 = 1
  End If
' =============================================================================
' Taster 3                       Element 1 heben
' =============================================================================
  If Pinb.4 = 1 Then
    Portc.2 = 0
  Else
    Portc.2 = 1
  End If
' =============================================================================
' Taster 4                       Element 1 senken
' =============================================================================
  If Pinb.6 = 1 Then
    Portc.3 = 0
  Else
    Portc.3 = 1
  End If
' =============================================================================
' Taster 5                       Greifer öffnen
' =============================================================================
  If Pinb.1 = 1 Then
    Portc.4 = 0
  Else
    Portc.4 = 1
  End If
' =============================================================================
' Taster 6                       Greifer schließen
' =============================================================================
  If Pinb.3 = 1 Then
    Portc.5 = 0
  Else
    Portc.5 = 1
  End If
' =============================================================================
' Taster 7                       Element 2 heben
' =============================================================================
  If Pinb.5 = 1 Then
    Portc.6 = 0
  Else
    Portc.6 = 1
  End If
' =============================================================================
' Taster 8                       Element 2 senken
' =============================================================================
  If Pinb.7 = 1 Then
    Portc.7 = 0
  Else
    Portc.7 = 1
  End If
' =============================================================================
' Taster 9                       Greifer heben
' =============================================================================
  If Pind.0 = 1 Then
    'Portc.0 = 0
  Else
    Sound Portd.7 , 400 , 200
  End If
' =============================================================================
' Taster 10                      Greifer senken
' =============================================================================
  If Pind.2 = 1 Then
    'Portc.0 = 0
  Else
    Sound Portd.7 , 400 , 200
  End If
' =============================================================================
' Taster 11                      UNBELEGT
' =============================================================================
  If Pind.4 = 1 Then
    'Portc.0 = 0
  Else
    Sound Portd.7 , 400 , 200
  End If
' =============================================================================
' Taster 12                      UNBELEGT
' =============================================================================
  If Pind.6 = 1 Then
    'Portc.0 = 0
  Else
    Sound Portd.7 , 400 , 200
  End If
Loop


End
Ich benutze den USB-Programmer von Robotik-Hardware, habe diesen aber - wie ich an dieser Stelle leider zugeben muss - aus Versehen kurz an die I2C-Schnittstelle des RN-Boards angeschlossen und versucht, Daten zu übertragen, deswegen der Verdacht des Defekts.

Lasse ich dieses Programm nun auf dem Board laufen, "denkt" dieses, Taste 3 wäre durchgehend gedrückt, auch wenn meine Selbstbau-Tastatur garnicht angeschlossen ist. Vorher funktionierte alles, aber vllt habe ich ja doch einen Fehler in der Software.
Seltsam ist auch, dass der Fehler nur bei angeschlossenem Programmer auftaucht, andere (hier nicht gepostete) Teile des Programms funktionieren aber auch dann nicht mehr wie noch vor 2 Tagen.

Was denkt ihr, habe ich den Programmer geschrottet oder liegt's an was anderem?

Thx für eure Hilfe!