Timer programmieren

Du könntest auch den Flag des Timers abfragen anstatt der 0.

IF ($IN[20] == TRUE) OR ($Timer[1]>=0) THEN

IF ($IN[20] == TRUE) OR $TIMER_FLAG[1] THEN

Nö, das passt nicht.

IF $IN[20] == FALSE THEN ; Druckschalter
IF $IN[21] == FALSE THEN ; Hydraulik Niveau ok
$Timer[1]=-5000 ; nach 5 sec Agg. ausschalten, bei Fehler
$TIMER_STOP[1]=FALSE ; Timer laeuft
$OUT[13]=TRUE ; Aggregat anschalten
IF ($IN[20] == TRUE) OR ($Timer[1]>=0) THEN
... 

Wie soll da am Ende $in[20] true sein, wenn das nur dann ausgeführt wird wenn es false (erste Zeile) ist.

Servus,

wo soll das laufen?

In der SPS.sub?

Gruss Martl

Servus,

über die SPS.sub würde ich es in etwa so machen.

Zusätzlich noch einen Quittierungseingang zum Wiederanlauf implementieren.

;FOLD Ueberwachung Hydraulikaggregat

;wenn Oelstand zu niedrig oder Druck nach 5 Sekunden nicht erreicht

IF (($IN[21] == FALSE) OR ($TIMER[1]>=0)) THEN

$OUT[13]=FALSE ; Aggregat ausschalten

;Meldungen zur SPS => Niveau und/oder Druck n.i.O.

IF (($IN[21] == FALSE) AND ($OUT[50]=FALSE)) THEN

$OUT[50]=TRUE ;Fehler Niveau n.i.O. zur SPS

ENDIF

IF (($TIMER[1]>=0) AND ($OUT[50]=FALSE)) THEN

$OUT[51]=TRUE ;Fehler Druck n.i.O. an SPS

ENDIF

ENDIF

;Aggregat baut keinen Druck auf

IF ($IN[20] == FALSE) THEN ; Druckschalter

$TIMER_STOP[1]=TRUE ;Timer gestoppt

$Timer[1]=-5000 ;

$TIMER_STOP[1]=FALSE ; Timer starten

ELSE

;hier zuruecksetzen um kurzzeitige Druckabfaelle

;nicht zu beruecksichtigen

$TIMER_STOP[1]=TRUE ;Timer stoppen

$Timer[1]=-5000 ;

ENDIF

;zuruecksetzten Fehler und Starten des Hydraulikaggregates

;Vorbedingung Niveau i.O. => zusaetzlichen Quittiereingang implementieren

IF (($IN[21] == TRUE) AND ($IN[XXX] == TRUE)) THEN

$TIMER_STOP[1]=TRUE ;Timer stoppen

$Timer[1]=-5000 ;

$OUT[50]=FALSE ;Fehler Niveau n.i.O. zur SPS zuruecksetzen

$OUT[51]=FALSE ;Fehler Druck n.i.O. an SPS zuruecksetzen

$OUT[13]=TRUE ; Aggregat einschalten

ENDIF

;ENDFOLD (Ueberwachung Hydraulikaggregat)

Gruss Martl

Zitat von Martl

;Meldungen zur SPS => Niveau und/oder Druck n.i.O.

IF (($IN[21] == FALSE) AND ($OUT[50]=FALSE)) THEN

$OUT[50]=TRUE ;Fehler Niveau n.i.O. zur SPS

ENDIF

IF (($TIMER[1]>=0) AND ($OUT[50]=FALSE)) THEN

$OUT[51]=TRUE ;Fehler Druck n.i.O. an SPS

ENDIF

ENDIF

Alles anzeigen

Das wird aber so nicht funktionieren oder doch ?

Müsste nicht "$OUT[50]==FALSE" in der IF Bedingung stehen ?

Sorry,

Schreibfehler, wer einen findet kann Ihn behalten.

;FOLD Ueberwachung Hydraulikaggregat

;wenn Oelstand zu niedrig oder Druck nach 5 Sekunden nicht erreicht

IF (($IN[21] == FALSE) OR ($TIMER[1]>=0)) THEN

$OUT[13]=FALSE ; Aggregat ausschalten

;Meldungen zur SPS => Niveau und/oder Druck n.i.O.

IF (($IN[21] == FALSE) AND ($OUT[50] == FALSE)) THEN

$OUT[50]=TRUE ;Fehler Niveau n.i.O. zur SPS

ENDIF

IF (($TIMER[1]>=0) AND ($OUT[50] == FALSE)) THEN

$OUT[51]=TRUE ;Fehler Druck n.i.O. an SPS

ENDIF

ENDIF

;Aggregat baut keinen Druck auf

IF ($IN[20] == FALSE) THEN ; Druckschalter

$TIMER_STOP[1]=TRUE ;Timer gestoppt

$Timer[1]=-5000 ;

$TIMER_STOP[1]=FALSE ; Timer starten

ELSE

;hier zuruecksetzen um kurzzeitige Druckabfaelle

;nicht zu beruecksichtigen

$TIMER_STOP[1]=TRUE ;Timer stoppen

$Timer[1]=-5000 ;

ENDIF

;zuruecksetzten Fehler und Starten des Hydraulikaggregates

;Vorbedingung Niveau i.O. => zusaetzlichen Quittiereingang implementieren

IF (($IN[21] == TRUE) AND ($IN[XXX] == TRUE)) THEN

$TIMER_STOP[1]=TRUE ;Timer stoppen

$Timer[1]=-5000 ;

$OUT[50]=FALSE ;Fehler Niveau n.i.O. zur SPS zuruecksetzen

$OUT[51]=FALSE ;Fehler Druck n.i.O. an SPS zuruecksetzen

$OUT[13]=TRUE ; Aggregat einschalten

ENDIF

;ENDFOLD (Ueberwachung Hydraulikaggregat)

Gruss Martl

Kevin97

Kann ja auch nicht sagen welcher Ausgang für welchen Fehler ist.

Habs mal so schnell hingehaun.

E/As sauber deklarieren in der config.dat, dann kann es jeder lesen ohne Probleme.

Gruss

Martl

Ja kann ich auch nicht so ganz nachvollziehen...mit vernünftigen Signalnamen arbeitet es sich viel leichter

falkone63

Habe die Tage eben eine Bauteil Auswertung mit Timer geschrieben.

Bin allerdings auch noch nicht zum testen gekommen. Vielleicht hilft es dir ja trotzdem weiter oder inspiriert dich

DEF Bauteil_Auswertung ()

IF diBauteil_IO THEN                         ;Wenn SPS sagt Bauteil ist IO
 $TIMER[1]=-2000                             ;Timer auf 2 Sekunden einstellen
 doAbstecker_Out=TRUE                        ;Abstecker ausfahren lassen
 TimerAction(#TimerStart, 1, -1)             ;Timmer starten
 WHILE $TIMER[1]<=0                          ;Wenn innerhalb der zwei Sekunden:
  IF diAbstecker_Out THEN                    ;Endlage Ausgefahren erreicht
   TimerAction(#TimerStop, 1, -1)            ;Timer stoppen 
   doAbstecker_Out=FALSE                     ;Ausfahren nicht mehr ansteuern
   doBauteil_IO=TRUE                         ;Bauteil auf IO schreiben
   doBauteil_NIO=FALSE                       ;Bauteil NICHT NIO schreiben
   ELSE                                      ;Falls Endlage ausgefahren nicht kommt:
   ;TimerAction(#TimerStop, 1, -1)            ;Timer Stoppen
   doAbstecker=FALSE                         ;Ausfahren nicht mehr ansteuern
   doBauteil_IO=FALSE                        ;Bauteil NICHT auf IO schreiben
   doBauteil_NIO=TRUE                        ;Bauteil auf NIO schreiben
  ENDIF
 ENDWHILE

 IF doBAuteil_NIO THEN                        ;Wenn wir NIO melden: 
  WAIT FOR diBauteil_NIO AND NOT diBauteil_IO ;Warten das die SPS den Zustand auch auf NIO aendert
 ENDIF                                        ;Sonst wenn weiterhin IO nix tun
ENDIF

WAIT SEC 0
doAbstecker_In=TRUE                         ;Abstecker einfahren lassen
WAIT FOR diAbstecker_In                     ;Endlage eingefahren erreicht
doAbstecker_In=FALSE                        ;Abstecker einfahren lassen zuruecknehmen

END