Ah, ich hab das Problem nun entdeckt. Ich hab das teil an ein 5m langes Druckerverlängerungskabel angeschlossen, war wol zu lang^^

So, ich hab nun das Programm übertragen, funzt aber nicht richtig. Weiss nicht wo der fehler ist, ich hab nach der Vorlage von Frank gearbeitet. Alsoh RNControl reagiert nicht auf die Taster

Hier mal der Code, ich hoffe jemand kann das kurz durchgehen^^
Code:
Declare Sub Lauflicht1()
Declare Sub Lauflicht2()
Declare Sub Lauflicht3()
Declare Sub Lauflicht4()
Declare Function Tastenabfrage() As Byte
Dim Taste As Byte
Dim Ton As Integer
$regfile = "m32def.dat"

$crystal = 16000000
$baud = 9600


Sound Portd.7 , 400 , 450                                   'BEEP
Sound Portd.7 , 400 , 250                                   'BEEP
Sound Portd.7 , 400 , 450                                   'BEEP
 Config Adc = Single , Prescaler = Auto

 Config Pina.7 = Input                                      'Für Tastenabfrage
 Porta.7 = 1

 Taste = Tastenabfrage()
 If Taste <> 0 Then

      Select Case Taste
         Case 1
               Call Lauflicht1

         Case 2
               Call Lauflicht2

         Case 3
               Call Lauflicht3

         Case 3
               Call Lauflicht4



      End Select


 End If



 End

 Function Tastenabfrage() As Byte
 Local Ws As Word

 Tastenabfrage = 0
 Start Adc
 Ws = Getadc(7)
 If Ws < 1010 Then
      Select Case Ws
         Case 410 To 450
            Tastenabfrage = 1

         Case 340 To 380
            Tastenabfrage = 2

         Case 265 To 305
            Tastenabfrage = 3

         Case 180 To 220
            Tastenabfrage = 4


      End Select

   End If

 End Function

Sub Lauflicht1()

    Config Portc = Output
   Do
      Porta.0 = 1
      Wait 1
      Porta.0 = 0
      Wait 1
      Porta.0 = 1
      Wait 1
      Porta.0 = 0
      Wait 1
   Loop
   End Sub


Sub Lauflicht2()

   Config Portc = Output
       Do
      Portc.0 = 1
      Wait 1
      Portc.1 = 1
      Wait 1
      Portc.2 = 1
      Wait 1
      Portc.3 = 1
       Portc.0 = 1
      Wait 1
      Portc.1 = 1
      Wait 1
      Portc.2 = 1
      Wait 1
      Portc.3 = 1
     Loop
End Sub

Sub Lauflicht3()
    Do
   Config Portc = Output
      Portc.0 = 1
      Wait 1
      Portc.0 = 0
      Wait 1
      Portc.1 = 1
      Wait 1
      Portc.1 = 0
      Wait 1
      Portc.2 = 1
      Wait 1
      Portc.2 = 0
      Wait 1
      Portc.3 = 1
      Wait 1
      Portc.3 = 0
  Loop
   End Sub

Sub Lauflicht4()
 Do
   Config Portc = Output
      Portc.0 = 1
      Wait 1
      Portc.0 = 0
      Portc.1 = 1
      Wait 1
      Portc.1 = 0
      Portc.2 = 1
      Wait 1
      Portc.2 = 0
      Portc.3 = 1
      Wait 1
      Portc.3 = 0
      Portc.4 = 1
      Wait 1
      Portc.4 = 0
        Loop
End Sub
gruss Serge