Hallo Dennish23,

auf die Schnelle gebe ich dir nachfolgend den Code, mit dem du die Systemzeit liest, sie umwandelst in einen String, diesen in seine Bestandteile zerlegst und ihn dir wieder zusammenbaust. Im Ergebnis entsteht die Anzeige:

Montag, 29. Sept. 2008 21:57:05

Falls du Teile davon nicht benötigst, diese im Code einfach weglassen oder etwas bearbeiten. In dein Projekt musst du die Bibliothek SysLibRtc.lib einbeziehen.

(* Systemzeit lesen und Werte vereinzeln *)
Echtzeit:=SysRtcGetTime(dummy);               (* Echtzeit lesen *)
Echtzeit_String:=DT_TO_STRING(Echtzeit);         (* Echtzeit umwandeln in String *)
Jahr:=STRING_TO_INT(MID(Echtzeit_String, 4, 4));
Monat:=STRING_TO_INT(MID(Echtzeit_String, 2, 9));
Tag:=STRING_TO_INT(MID(Echtzeit_String, 2, 12));
Stunde:=STRING_TO_INT(MID(Echtzeit_String, 2, 15));
Minute:=STRING_TO_INT(MID(Echtzeit_String, 2, 18));
Sekunde:=STRING_TO_INT(MID(Echtzeit_String, 2, 21));
(* Zusammenbauen der Zeitanzeige *)
(* 1. Wochentagsname *)
CASE Wochentag
OF
   1:Zeit_aktuell := 'Sonntag, ';
   2:Zeit_aktuell := 'Montag, ';
   3:Zeit_aktuell := 'Dienstag, ';
   4:Zeit_aktuell := 'Mittwoch, ';
   5:Zeit_aktuell := 'Donnerstag, ';
   6:Zeit_aktuell := 'Freitag, ';
   7:Zeit_aktuell := 'Samstag, ';
END_CASE;
(* 2. Tagesnummer hinzufügen *)
   Zeit_aktuell := CONCAT (Zeit_aktuell,MID(Echtzeit_String, 2, 12));
(* 3. Monatsnamen hinzufügen *)
   CASE Monat
   OF
   1:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Jan. ');
   2:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Feb. ');
   3:Zeit_aktuell := CONCAT (Zeit_aktuell,'. März ');
   4:Zeit_aktuell := CONCAT (Zeit_aktuell,'. April ');
   5:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Mai ');
   6:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Juni ');
   7:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Juli ');
   8:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Aug. ');
   9:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Sept. ');
   10:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Okt. ');
   11:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Nov. ');
   12:Zeit_aktuell := CONCAT (Zeit_aktuell,'. Dez. ');
END_CASE;
(* 4. Jahreszahl anhängen *)
   Zeit_aktuell := CONCAT (Zeit_aktuell,MID(Echtzeit_String, 4, 4));
(* 5. Leerzeichen anhängen *)
   Zeit_aktuell := CONCAT (Zeit_aktuell,'  ');
(* 6. Aktuellen Zeitwert anhängen *)
   Zeit_aktuell := CONCAT (Zeit_aktuell,MID(Echtzeit_String,8, 15));

Viel Erfolg

Norbert

PS: Fahre morgen für 2 Wochen in Urlaub, falls es Fragen gibt.

Hallo Dennish23,

soweit ich Dich richtig verstanden habe, möchtest Du auf dem Button die Systemzeit des Gerätes formatiert anzeigen.

Das geht sehr einfach und auch ohne eine Variable im Dialog "Textausgabe".

Wenn Du im Konfigurationsdialog in der Kategorie "Text" den Formatstring: %t %d-%m-%Y %H:%M:%S eingibst, erscheint die Systemzeit. Unter "Variable->Textausgabe" wird keine (!!) Variable mehr benötigt.

Gruß

Klaus

Hallo Klaus,

bei deiner Variante bekommst du nicht die Systemzeit des Gerätes sondern

die Zeit des Systems auf dem die Visu angezeigt wird.

Wenn du nun eine Soft-SPS hast und auf diesem Gerät (z.B. PC) auch die Visu anzeigst,

dann passt es zufällig.

Wenn du aber eine separate SPS hast, dann bekommst du auf deinem Visualisierungs-PC

mit dem Formatstring nur die PC-Zeit angezeigt.

Ich denke der Ansatz von Norbert ist schon nicht schlecht.

Die Zeit in der SPS so in einen String formatieren wie man sie gerne hätte

und dann diesen String in der Visu anzeigen.

Also

• Zeit auslesen.................................................. -> SysRtcGetTime

• von DT in String wandeln................................. -> DT_TO_STRING

• in Einzelkomponenten zerlegen........................ -> MID

• ....

• und dann die Einzelkomponenten zusammenbauen -> CONCAT

• ....

Nun muss nur noch das Ergebnis in der Visu angezeigt werden.

Hallo Uwe,

ich habe das schon verstanden, aber das MFD ist eine SPS mit STN oder TFT Display auf dem die Targetvisu läuft.

Deshalb sollte das mit dem Formatstring eigentlich funktionieren, es sei denn, man hat zusätzlich eine Variable für die Textausgabe eingetragen.

Das führt dann nämlich zu den merkwürdigsten Ausgaben.

Gruß

Klaus

Vielen Dank Softwerker. Funktioniert super. Danke nochmal für deine Hilfe.

Habe den Code in der Simulation auch mal ausprobiert.

Das die Zeit nicht korrekt ist ist klar,...

Nur habe ich folgendes Problem: Die Werte werden vier bis fünfmal hintereinander geschrieben... also etwa so:

011970 00:00:00011970 00:00:00011970 00:00:00011970 00:00:00011970 00:00:00

Liegt es daran das ich die Simulation nutze? Habe leider grad keine 841 zum Testen da!

MfG

Marcel

Also ich habe es direkt auf meiner SPS ausprobiert und die zeit wird genau angezeigt. Habe Sie mit dem PLC überprüft. Du darfst keine Variable eintragen einfach nur %t damit weist du auf die Zeit hin und dann musst du sie dir zusammenbauen.

z.Bsp %t %d.%m.%Y - %H:%M:%S

Also wie gesagt funktioniert bei mir.

MFG Dennis

Ich bezog mich aber auf den Code von Denkes!

Den kann man nicht einfach so eintragen sondern die Variable in "Textvariable" oder sehe ich das falsch?

MfG

Marcel

Dieser Code den ich geschrieben habe den musst du in dem Dialogfeld Text eintragen und ansonsten für das Textfeld keine andere Variable eintragen da du sonst irgendwelchen kram angezeigt bekommst da die SPS nicht genau weiß was sie nun machen soll.

Wenn du eine Variable eintragen möchtest musst du sie dir wirklich zusammenbauen mit hilfe von dem Befehl Contact. Aber die andere Variante geht wesentlich einfacher.

MFG Dennis

Dann habe ich aber die Zeit von meinem PC, was ich vermeiden will.

Ich brauche die Zeit der Systemuhr, und das so das man sie auch anschauen kann... und kein DT# bla bla

MfG

Marcel

Ja wenn du es nicht simulierst sondern dein Prog direkt auf der Anlage hast dann nimmt er die Systemzeit der Anlage. Da du jetzt ja simulierst nimmt er natürlich die Systemzeit deines Computers da du es ja darauf simulierst.

MFg Dennis

... ich depp

Ich habe nichts gesagt... bitte vielmals um Entschuldigung

Danke für die schnelle Hilfe!

MfG

Marcel

Schon ok Marcel.

MFG Dennis

Passt nicht so direkt hier rein, will aber kein neues Thema dafür aufmachen.

Ich will für jeden Tag im Jahr einen kleinen Button machen.

Jeder Monat hat ja eine unterschiedliche Anzahl Tage.

Gibt es eine Möglichkeit dies irgendwie von der Steuerung rauszukitzeln?

Ich habe eine Wago 750-841

Bisher bin ich bei dem Punkt das ich für jeden Monat eine Variable hinterlege welche der höchste Tag ist (bsp. Feb. 28) und dann immer mit GT (Greater Then) die nicht vorhandenen Tage abfange... gibt es eine elegantere Möglichkeit?

MfG

Marcel

Hallo

Nach Adam Rise, ergibt das 365 Buttons in Schaltjahren etc noch mehr.

Wärst Du da nicht besser bedient, wenn Du das Ganze irgendwie in Form eines Kalenders Visualisieren würdest?

Monatsweise, wo Du das Datum in Form einer Rollbox oder Kombobox auswählen könntest.

Würde viel übersichtlicher.

Mit freundlichen Grüssen! Pitsch

so hab ich es auch gemacht... etwas umständlich habe ich es gelöst, aber bisher klappt es... muss nur noch die Logik dahinter programmieren...

MfG

Marcel

P.S: Bild kann folgen wenn ihr wollt...

Denkes hat geschrieben:

(* 1. Wochentagsname *)
CASE Wochentag
OF
   1:Zeit_aktuell := 'Sonntag, ';
   2:Zeit_aktuell := 'Montag, ';
   3:Zeit_aktuell := 'Dienstag, ';
   4:Zeit_aktuell := 'Mittwoch, ';
   5:Zeit_aktuell := 'Donnerstag, ';
   6:Zeit_aktuell := 'Freitag, ';
   7:Zeit_aktuell := 'Samstag, ';
END_CASE;

Hallo,

dieser Teil deines Codes wird nicht verarbeitet, du hast ja auch nirgends die Variable Wochentag gebildet. Würde mich freuen wenn du den fehlenden Programmteil nachliefern könntest!

Oder habe ich etwas übersehen???

MfG

Marcel

Also meine Funktion Wochentag sieht so aus(Achtung: bei mir ist Sonntag =0):

FUNCTION Wochentag: UINT         (*Wochentag, 0= Sonntag, 1=Montag, 2=Dienstag...6=Samstag*)
VAR_INPUT
   Jahr:               UINT;   (*Jahr des zu ermittelnden Wochentags*)
   Monat:               UINT;   (*Monat des zu ermittelnden Wochentags*)
   Tag:               UINT;   (*Tag (Datum) des zu ermittelnden Wochentags*)
END_VAR
VAR
   JahrEiner:            UINT;
   JahrHunderter:      UINT;
END_VAR

(************************************************************************************************************)
(*               Wochentag aus Datum ermitteln                                          *)
(*   Nach Formel "Zellers Kongruenz" (Gregorianischer Kalender) Wikipedia,                     *)
(************************************************************************************************************)
(*                                                                                 *)
(*       0 = Sonntag                                                                  *)
(*      1 = Montag                                                                  *)
(*       2 = Dienstag                                                                  *)
(*       3 = Mittwoch                                                                  *)
(*       4 = Donnerstag                                                               *)
(*       5 = Freitag                                                                     *)
(*       6 = Samstag                                                                  *)
(*                                                                                 *)
IF Monat < 3 THEN            (*   der Januar und Februar wird als Monat des Vorjahres gezählt   *)
   Monat:= Monat +12;         (*   dies vereinfacht die Schaltjahrproblematik                  *)
   Jahr:= Jahr -1;
END_IF
JahrHunderter:= Jahr / 100;
JahrEiner:= Jahr - 100*JahrHunderter;
Wochentag:= (70+Tag+((Monat+1)*26)/10 + JahrEiner+ JahrEiner/4 + JahrHunderter/4 - 2*JahrHunderter - 1) MOD 7;
(* die Minus 1 kurz vor MOD 7 verschiebt die Wochentage, aus Sonntage = 1 wird Sonntag = 0         *)
(* die Plus 70 am Anfang der Formel verhindert negative Werte nach Abzug von 2 mal Jahrhunderter   *)

Danke für den Code!

Ich habe noch einmal folgendes eingebracht:

IF Wochentag = 0 THEN
Wochentag:=7;
END_IF

Somit hat sich das Problem mit der 0 auch erledigt!

MfG

Marcel