FUNCTION_BLOCK FB 100
TITLE =Laufzeit
AUTHOR : Kai
FAMILY : SPSForum
NAME : '41874'
VERSION : 1.0
VAR_INPUT
DINT_Laufzeit : DINT ; //Laufzeit Sekunden
END_VAR
VAR_OUTPUT
STRING_Laufzeit : STRING [12 ] := '00 : 00 : 00'; //Laufzeit STRING
END_VAR
VAR_TEMP
INT_Stunden : INT ; //Laufzeit Stunden
INT_Minuten : INT ; //Laufzeit Minuten
INT_Sekunden : INT ; //Laufzeit Sekunden
END_VAR
BEGIN
NETWORK
TITLE =Laufzeit Sekunden -> Laufzeit Stunden, Minuten, Sekunden
//1 Stunde = 60 Minuten = 3600 Sekunden
//
L #DINT_Laufzeit; // Laufzeit Sekunden
L L#3600;
/D ;
T #INT_Stunden; // Laufzeit Stunden
L #DINT_Laufzeit; // Laufzeit Sekunden
L L#60;
/D ;
L L#60;
MOD ;
T #INT_Minuten; // Laufzeit Minuten
L #DINT_Laufzeit; // Laufzeit Sekunden
L L#60;
MOD ;
T #INT_Sekunden; // Laufzeit Sekunden
NETWORK
TITLE =Laufzeit Stunden, Minuten, Sekunden -> Laufzeit STRING
//ASCII-Zeichensatz
//
//DEZ 48 = HEX 30 = CHAR '0'
//DEZ 49 = HEX 31 = CHAR '1'
//DEZ 50 = HEX 32 = CHAR '2'
//DEZ 51 = HEX 33 = CHAR '3'
//DEZ 52 = HEX 34 = CHAR '4'
//DEZ 53 = HEX 35 = CHAR '5'
//DEZ 54 = HEX 36 = CHAR '6'
//DEZ 55 = HEX 37 = CHAR '7'
//DEZ 56 = HEX 38 = CHAR '8'
//DEZ 57 = HEX 39 = CHAR '9'
//
L #INT_Stunden; // Laufzeit Stunden
ITB ;
SRW 4;
L 48;
+I ;
T #STRING_Laufzeit[1]; // Laufzeit Stunden Zehnerstelle
L #INT_Stunden; // Laufzeit Stunden
ITB ;
SLW 12;
SRW 12;
L 48;
+I ;
T #STRING_Laufzeit[2]; // Laufzeit Stunden Einerstelle
L #INT_Minuten; // Laufzeit Minuten
ITB ;
SRW 4;
L 48;
+I ;
T #STRING_Laufzeit[6]; // Laufzeit Minuten Zehnerstelle
L #INT_Minuten; // Laufzeit Minuten
ITB ;
SLW 12;
SRW 12;
L 48;
+I ;
T #STRING_Laufzeit[7]; // Laufzeit Minuten Einerstelle
L #INT_Sekunden; // Laufzeit Sekunden
ITB ;
SRW 4;
L 48;
+I ;
T #STRING_Laufzeit[11]; // Laufzeit Sekunden Zehnerstelle
L #INT_Sekunden; // Laufzeit Sekunden
ITB ;
SLW 12;
SRW 12;
L 48;
+I ;
T #STRING_Laufzeit[12]; // Laufzeit Sekunden Einerstelle
END_FUNCTION_BLOCK