Habe den Code geändert.
Zeit ist Waitus 20, entspricht etwa 190us in der Realzeit.
Diode Leuchtet jetzt nur, wenn der Ir-Empfänger was empfängt.
Bei mir ist Pinb.0=empfangen und Pinb.7 leuchten.
Wichtig ist die Zeit von ca 190us(real) damit die Gase in der Diode leitfähig werden.
ich habe je 100ohm an den leitungen der dioden.

Code:
Do
                                             
PORTB.0 = 1                                               
DDRB.0 = 0                                     
PORTB.0 = 0  
                                              
WaitUs 20   
                                                
Hell_dunkel = PINB.0   
                                    
DDRB.0 = 1                                     
PORTB.0 = 0   
                     
If Hell_dunkel = 0 Then
	PORTB.7 = 1
Else 
    PORTB.7=0
End If

Loop
Castle