Hallo xxrider,
diese Schaltung ist bereits sehr empfindlich für Licht. Der Kondesator dient zur Pufferung, damit der Schatten eines Vogels/Flugzeuges nicht schon die Nacht einläutet.
Im Code würde ich folgende Dinge beachten:
1) Nacht ist es erst, wenn es auch 5 Minuten lang Nacht meldet.
2) Tag ist auch erst, wenn 5 Minuten lang Tag gemeldet wird.
So sparst du dir viele Fehlalarme.
Die Schaltung kannst du unmittelbar an den Eingang eines ADC anschliessen und abfragen. Der Wert von X ist im Dunkeln HOCH in der Helligkeit niedrig
Dim licht as word
dim day as byte
light = getadc(1)
if light >800 then day=0
if light<100 then day=1
die Werte 800 100 kannst du dann frei anpassen.
Aufwändiger wäre eine Erweiterung mit 2 Potis, an denen du Tag und Nacht einstellen kannst. Hierfür brauchst du dann nochmals 2 freie ADC, an die du je einen Poti mit 50-200k anbringst.
do
waitms 1800 ' alle 30 Minuten prüfen
licht=getadc(1)
nachtpoti=getadc(2)
tagpoti=getadc(3)
if licht > nachtpoti then
gosub klappezu
waitms 3600 ' wenn schon zu, dann auch mind. 1 Stunde
end if
if licht < tagpoti then
gosub klappeauf
waitms 3600
end if
loop
.........
Wobei in diesem Fall die Function klappeXXX alle 3600 Sekunden (+1800Sekunden) neu aufgerufen wird. Was aber egal ist.
Zitieren
Lesezeichen