Stückzähler automatisch 1x pro Schicht speichern

Hallo,

so in der Art vielleicht:
VAR num Stunde;
var bool timeset
Stunde:=GetTime(\Hour);

IF (Stunde=6 or Stunde=14 or Stunde=22) THEN
if timeset = false then
timeset:= true ;
Open "pc:"\File:="Stueck.txt",txtfile\Append\Bin;
WriteStrBin txtfile,CDate()+" "+CTime()+" "+ValToStr(Schichtzaehler)+"\0D\0A";
ClkReset Schichtzaehler;
Close txtfile;
endif
else
timeset := false;
ENDIF

Gruss Stefan

Hallo Ferrarifan,

was Stefan vorgeschlagen hat ist eigentlich ganz einfach:
Wenn die Uhrzeit Stunde 6,14 oder 22 ist schreibt er das File und merkt sich, dass er das gemachht hat (bool timeset). Dadurch schreibt er nicht ständig. Ist die Stundenbedingung nicht mehr erfüllt setzt er den Merker zurück und kann beim nächsten mal wieder 1x schreiben.

So hätt ichs wohl auch gemacht.

Gruß
Stromer

Danke für das Beispiel. Ich habe es als Vorlage für einen eigenen Schichtzähler verwendet.
Leider funktioniert bei mir das Abspeichern auf Diskette nicht. Ich bekomme die Fehlermeldung " Referenz auf unbekannte Prozedur". Es handelt sich um eine S4-Steuerung. Kennt die Software den Befehl OPEN nicht?? Oder was stimmt da nicht?

OPEN "flp1:" \File:="Schichtzaehler.txt",logfile \Append;

Das Argument \Bin habe ich weggelassen, weil laut Handbuch die Argumente gegenseitig ausschließend sind.

Gruß Welder