Zeitstempel

[Z750]

Hallo zusammen,

wir versuchen gerade eine Maschienendatenerfassung zu realisieren. Das heisst wenn der Robi länger als  15 Minuten steht soll ein Unterbrechungsgrund angegeben werden. Das funktioniert mit einem Timer auch wunderbar. Allerdings nur wenn das Programm läuft oder gestoppt ist; wenn der Robi ausgeschalten wird läuft der Timer ja nicht mehr weiter.
Also haben wir uns überlegt einen Zeitstempel zu hinterlegen und beim nächsten durchlauf zu vergleichen.


Proc BlaBla()


PERS num dateStrtoVal;
PERS num timeStrtoVal;
PERS num CptDateStrtoVal;
PERS num CptTimeStrtoVal;

CDateBool:=StrToVal(CDate(),CptDateStrtoVal); 
CTimeBool:=StrToVal(CTime(),CptTimeStrtoVal);
DateBool:=StrToVal(date(),dateStrtoVal);
TimeBool:=StrToVal(time(),timeStrtoVal);

IF (CptDateStrtoVal + CptTimeStrtoVal) - (dateStrtoVal + timeStrtoVal) > 0.000694444 THEN  !1 Minute

! Menü für Unterbrechungsgrund

ENDIF

date:= CDate();
time:= CTime();
ENDPROC


Leider funktioniert das so nicht. Ist da vielleicht ein fehler drin, oder hat jemand eine bessere Idee um sowas umzusetzen.
danke schonmal

Gruß
Z750

[högi]

Hallo Z750,
vom Code her sollte das schon funktionieren.

Allerdings würde ich deine Bla Bla Routine aufdröseln und als zwei getrennte Event Routinen deklarieren.

Bei Event "Stop"
Speichern des Aktuellen Zeitstempels.

Bei Event "Restart" und/oder "Power on"
Läuft der Vergleicher.

Gruß
Högi

[Z750]

Hallo högi,

das mit der Event-Routine wär ne Idee. Es kann aber auch sein das der Roboter bei laufendem Programm stehen bleib z.B. wenn er auf das signal Ablaufstart wartet.
Ich habe festgestellt das "StrToVal" False zurück gibt. Allerdings weiß ich noch nicht warum.

Hat jemand eine Ahnung.

Gruß
Z750