Stückzähler automatisch 1x pro Schicht speichern

[ferrarifan4]

Hallo,

ich muß an meinem Trennroboter ABB 6400 einmal pro schicht den Stückzähler automatisch in einer Datei abspeichern.
Wer weiß wie man soetwas programmiert?
Habe so angefangen:
    VAR num Stunde;
    Stunde:=GetTime(\Hour);
   IF Stunde=6 or Stunde=14 or Stunde=22 THEN
    Open "pc:"\File:="Stueck.txt",txtfile\Append\Bin;
    WriteStrBin txtfile,CDate()+"  "+CTime()+"  "+ValToStr(Schichtzaehler)+"\0D\0A";
    ClkReset Schichtzaehler;
    Close txtfile;
   ENDIF

Mein Problem wenn ich das so mache, solang z.B. die 6 in der Uhr vorne steht, wird der stückzähler immer wieder gespeichert. Er soll aber nur einmal gespeichert werden.

Ich hoffe mein Programmansatz ist schonmal nicht ganz falsch.

gruß
Ferrarifan4

[stefanM]

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

[ferrarifan4]

Hallo Stefan,

bin ncit so bewandert in  diesen Sachen , könntest du mir den Ablauf  mal auf "deutsch" erklären?

vielen dank
gruß Ferrarifan4

[stromer]

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

[ferrarifan4]

Hallo
vielen dank, das werde ich dann mal ausprobieren.

Gruß
Ferrarifan4

[Welder]

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