Ok, bitte sehr (ist aber noch nicht optimiert Bild   ):

Code:
'
$regfile = "2343DEF.dat"
$crystal = 1000000
'
Config Portb = &B00011000                                   'Pinb.3 und .4 auf 'Ausgang', Rest auf 'Eingang' schalten
Portb = &B11100111                                          'Pullups zuschalten, außer für Pinb.3 und .4
'
Dim A As Byte
Dim Hell_dunkel As Bit
'
Do
'
Portb.3 = 0                                                 'Portb.3 auf Masse schalten
Portb.4 = 1                                                 'Portb.4 auf +Ub schalten, um die LED zu 'laden'
Waitms 1                                                    'Ladezeit 1 ms
Config Portb.4 = Input                                      'Portb.4 nun zwecks Abfrage der LED-Ladung auf 'Eingang' schalten
Portb.4 = 0                                                 'Pullup abschalten, sonst geht's nicht!
Waitms 1                                                    'Entladezeit 1 ms - je kleiner, je unempfindlicher
Hell_dunkel = Pinb.4                                        'Ladezustand einlesen
Config Portb.4 = Output                                     'Portb.4 wieder auf Ausgang schalten
Portb.4 = 0                                                 'Portb.4 auf Masse schalten
'
If Hell_dunkel = 0 Then
    For A = 1 To 10
        Portb.3 = 1
        Waitms 50
        Portb.3 = 0
        Waitms 500
    Next A
End If
'
Loop
'
End
Wird die LED kurz angeleuchtet, dann blinkt sie mit 10 gut sichtbaren Impulsen zurück.

Es grüßt...

...Radio Eriwan