danke so funktioniert es nur will ich auch wenn ich den sensor betätige dass das licht 5 sekunden an bleibt wenn ich allerdings:

Messung = Getadc (0)
If Messung > 300 OR _hour > 20 or _hour < 8 then
Portb.5 = 1
wait 5
else
Portb.5 = 0
End If

schreibe frisst es irgendwie die gesamte rechenleistung. da geht dann gar nix mehr. kann nix mehr bedienen. weiß da jemand rat?