INFO - FAQ - CC2-Forum - CCPro-Forum |
Hallo, ich habe folgendes Programm bei mir laufen und möchte dort bei erreichen einer bestimmten Temperatur,das das Licht für Lampe1 und Lampe2 2 Stunden früher ausgeht. Ich krieg es ncht hin. Vielleicht hat einer einen Vorschlag. Mit der Schrittprogrammierung hab ich probiert ebenfalls mit der Priorität, irgendwo klemmt es. Ich habe nur das, wie ich hoffe wichtigste kopiert für das Forum. Danke für eine Anregung. define Lampe1 port[1] 'Lampe1 define Lampe2 port[2] 'Lampe2 define Lampe3 port[3] 'blau define Lampe4 port[4] 'Mond define Kühlung port[5] 'Lüfter define Pegel port[6] 'Pegel define Duenger port[7] 'Dünger define Strömung port[8] 'Fischerpumpe define Phmess ad[1] define TempMess ad[2] LichtOn=90 LichtOff=223 Lampe4On=222 Lampe4Off=10 PegelOn=180 PegelOff=183 DuengerOn=120 DuengerZeit=4 LastSec=0 LastMin=99 #MainLoop '** Sub Schaltzeiten überprüfen ** wait second <> LastSec LastSec = second LastMin = minute if (hour* 100+ minute>= Lampe1On * 10)and (hour * 100 + minute < Lampe1Off * 10) then Lampe1=on else Lampe1=off if (hour* 100+ minute>= Lampe2On * 10)and (hour * 100 + minute < Lampe2Off * 10) then Lampe2=on else Lampe2=off if (hour* 100+ minute>= Lampe3On * 10)and (hour * 100 + minute < Lampe3Off * 10) then Lampe3=on else Lampe3=off if (hour* 100+ minute>= Lampe4On * 10)and (hour * 100 + minute > Lampe4Off * 10)or (hour* 100+ minute<= Lampe4On *10)and (hour* 100 + minute< Lampe4Off* 10)then Lampe4=on else Lampe4=off looktab TempTab, TempMess,Temp_LCD 'Umrechnung für LCD-Anzeige '** Kühlung ** if TempMess > TempMax and TempMess > TempMin then Kühlung = on if TempMess < TempMax and TempMess < TempMin then Kühlung = off |
Antwort schreiben |