Dr.MirakulixX
Level-1
- Beiträge
- 779
- Reaktionspunkte
- 86
-> Hier kostenlos registrieren
Schaue mir das nachher mal an. Aus dem Kopf schwer. Aber wird denke ich erst später Nachmittag.
Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
FUNCTION_BLOCK AnpassungTime
VAR_IN_OUT
TimeIN : TIME;
ZeitStr : STRING;
END_VAR
VAR_OUTPUT
END_VAR
VAR
Timehelp : TIME;
TimeWord : DWORD;
TimeStr : STRING;
hrs, mins, rest : DWORD;
Timer1 : TON;
minstr, hstr : STRING;
help1 : DWORD;
newh, newmin : INT;
END_VAR
Timer1(IN:=NOT Timer1.Q , PT:=t#10s); (*Timerbaustein, Impuls alle 10s*)
IF Timer1.Q THEN TimeWord:=TIME_TO_DWORD(TimeIN);
Zeitstr:=CONCAT(hstr,':'); (*Aus hstr und minstr wird 02:34*)
Zeitstr:=CONCAT(Zeitstr, minstr);
ELSE TimeWord:=TimeWord;
END_IF;
TimeWord:=TIME_TO_DWORD(TimeIN); (*Word zum Weiterverarbeiten*)
hrs:=TimeWord/3600000; (*anzahl der Std.*)
rest:=TimeWord-(hrs*3600000); (*Rest*)
mins:=rest/60000; (*anzahl der min*)
minstr:=DWORD_TO_STRING(mins); (*Umwandlung in min String *)
hstr:=DWORD_TO_STRING(hrs); (*Umwandlung in h String*)
IF LEN(hstr)=1 THEN hstr:=CONCAT('0',hstr); (*Für die Visu 1 wird zu 01*)
ELSE hstr:=hstr;
END_IF;
IF LEN(minstr)=1 THEN minstr:=CONCAT('0', minstr); (*Für die Visu 1 wird zu 01*)
ELSE minstr:=minstr;
END_IF;
newh:=STRING_TO_INT(MID(zeitstr, 2,1)); (*Aus dem Zeitstr...*)
newmin:=STRING_TO_INT(MID(zeitstr,2,4));
help1:=(newh*3600000)+(newmin*60000);
timehelp:=DWORD_TO_TIME(help1);
IF timein<>timehelp THEN TimeIN:=timehelp;
ELSE timeIN:=TimeIN;
END_IF;
Wir verwenden essentielle Cookies, damit diese Website funktioniert, und optionale Cookies, um den Komfort bei der Nutzung zu verbessern.
Siehe weitere Informationen und konfiguriere deine Einstellungen