Hier mal der Code - das Klicken hört man - geht trotzdem noch nicht:

Code:
$regfile = "m8def.dat"
$crystal = 7372800

Config Pind.5 = Output                                      ' LED zum Testeb
Config Pinc.0 = Input                                       ' Sensor

Led Alias Portd.5                                           ' schönere Namen geben ;-)
Sensor Alias Pinc.0                                         ' - " -"

Portc.0 = 1                                                  ' internen PullUp aktivieren

Do
   If Sensor = 0 Then                                       ' Falls Sensor geschlossen
      If Led = 1 Then                                       ' Falls LED schon an
         Led = 0                                            ' schalte diese aus
      Else                                                  ' sonst
         Led = 1                                            ' schalte sie an
      End If
   End If
Loop

End
ich hoffe er ist verständlich

Gruß, Björn