if-Abfrage

[leveltwo]

Moin Zusammen,

Ich habe eine Softschaltuhr programmiert und in dieser sollen nach Terminen die Außenbeleuchtung ein bzw ausgeschaltet werden.
Allerdings bekomme ich es nicht hin, dass zum Ende des Termins auch wieder alles ausgeschaltet wird.

Code: Alles auswählen

if (channel[0]=false) AND (channel[1]=false) AND (channel[2]=false) AND (channel[3]=false) AND (beginn<=time) AND (ende>time) then
             SetOutputsFromDB();
 
if ((channel[0]=true) AND (ende<time)) OR ((channel[1]=true) AND (ende<time)) OR ((channel[2]=true) AND (ende<time)) OR ((channel[3]=true) AND (ende<time)) then
               SetOutputsFromDB();

ist wahrscheinlich einfach nur ein logik Fehler aber ich bin grad zu beschränkt um es zu checken

Vielen Dank schon mal

[theo]

Was erwartest du jetzt von uns?

[Thandor]

Ich kann nur eines Sagen: Die Verzweigung scheint syntaktisch richtig zu sein aber ob die Semantik stimmt vermag ich mit den gegeben Informationen nicht zu beantworten.

[Michl]

Es fehlt zwar eine Frage im ersten Post, gebe trotzdem mal ungefragt meinen Senf hinzu.

Zur besseren Lesbarkeit würde ich derartige Abfragen vereinfachen.

Die Zeile

Code: Alles auswählen

if ((channel[0]=true) AND (ende<time)) OR ((channel[1]=true) AND (ende<time)) OR ((channel[2]=true) AND (ende<time)) OR ((channel[3]=true) AND (ende<time)) then

ist mMn besser lesbar so:

Code: Alles auswählen

if (channel[0] or channel[1] or channel[2] or channel[3]) and (ende < time) then

Vermutlich würde ich aber eine Funktion schreiben. Der Code von oben würde dann in etwa so aussehen (ungetestet):

Code: Alles auswählen

function ChannelActivated: Boolean;
begin
  Result := channel[0] or channel[1] or channel[2] or channel[3];  // könnte man auch in eine Schleife packen
end;
 
...
 
  if not ChannelActivated and (beginn <= time) and (ende > time) then ...
 
  if ChannelActivated and (ende < time) then ... 

[Mathias]

Code: Alles auswählen

function ChannelActivated: Boolean;

Hier würde ich dann ein inline daraus machen, vor allem wen man optimieren will,

Code: Alles auswählen

function ChannelActivated: Boolean; inline;

[pluto]

Code: Alles auswählen

if ((channel[0]=true) AND (ende<time)) OR ((channel[1]=true) AND (ende<time)) OR ((channel[2]=true) AND (ende<time)) OR ((channel[3]=true) AND (ende<time)) then
               SetOutputsFromDB();

Hier ist vermutlich nur das "ende < time " falsch, mach mal ein ende >=time raus.

Ich kenne zwar die Datentypen nicht, aber es könnte die Ursache sein für den "Fehler".

Edit01: Außerdem rufst du in beiden fällen SetOutputsFromDB auf, die vermutlich in beiden Fälle einfache das gleiche macht.....

[leveltwo]

Code: Alles auswählen

if (channel[0]=false) AND (channel[1]=false) AND (channel[2]=false) AND (channel[3]=false) AND (beginn<=time) AND (ende>time) then
             SetOutputsFromDB();
 
if ((channel[0]=true) AND (ende<time)) OR ((channel[1]=true) AND (ende<time)) OR ((channel[2]=true) AND (ende<time)) OR ((channel[3]=true) AND (ende<time)) then
               SetOutputsFromDB();

l

ein Paar Zusatzinformationen

die Channel stehen für die Lampen die angesteuert werden. ende und beinn sind zeiten die ich aus Terminen aus einer Datenbank beziehe und time ist die aktuelle Zeit.
Mit SetOutputsFromDB werden die in den Datensätzen angegebenen channel umgeschaltet. Die Datensätze werden nach Datum gefiltert also immer nur die Datensätze die das aktuelle Datum betreffen.
Ursprünglich wurden die Datensätze nur nach Wochentag oder Wochenende gefiltert. solange ich die Filter so lasse ist alles in Ordnung sobald ich den Filter für das Datum hinzufüge funktioniert es nicht mehr.
Kann mir jemand sagen warum das so ist oder gibt es noch offene Fragen?

[af0815]

lass dir die Werte für 'ende' und 'time' einmal numerisch anzeigen. Aus deiner Beschreibung her könnte es sein, das du beim hinzufügen des Filters die Werte zerstörst. Ich gehe davon aus, das du TDateTime für 'ende' und 'time' verwendest.