false
Initial call of this OB
Initial call of this OB
Initial call of this OB
=True, if remanent data are available
=True, if remanent data are available
=True, if remanent data are available
Optimized
OB1
1
FBD
ProgramCycle
false
cs-CZ
de-DE
en-US
true
FALSE
Wird in OB121 auf TRUE gesetzt
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Zykluszeit genau ermitteln START
en-US
true
0
"DB_Error".sErrorText.....Reaktion, Meldung etc.
true
Quittieren
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
0
true
''
true
FALSE
SCL
cs-CZ
de-DE
OB 121 zeigt bei Programmierfehler in DB_Error die Infos an. Infos können hier gelöscht werden.
en-US
cs-CZ
de-DE
Programmierfehler Handling
en-US
true
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Call Sensors
en-US
true
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
PreMain
en-US
true
true
"fbTestMain_DB"();
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Main
en-US
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Priority Logic
en-US
true
true
true
true
true
true
true
true
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Communications
en-US
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
AMR Management
en-US
REGION Jam füllen
IF "DB_Test".xFillJam THEN
REGION HyperJam
FOR #nIdxHyper := 1 TO "cHyperJam" -1 DO
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].nBarcode := 20000015;
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].bStatus.%X0 := true;
END_FOR;
END_REGION
(* REGION Conveyor
FOR #nIdx2 := 1 TO "cJamConv1_1" -1 DO
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_2" -1 DO
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_3" -1 DO
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv1_4" -1 DO
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv1".stJamConv1_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamConv2" -1 DO
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaConv2".stJamConv2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
END_REGION
REGION Block 1
FOR #nIdx2 := 1 TO "cJam1101_1" -1 DO
"DB_JamArea1101".stJam1101_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1101".stJam1101_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1101_2" -1 DO
"DB_JamArea1101".stJam1101_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1101".stJam1101_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_1" -1 DO
"DB_JamArea1102".stJam1102_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1102".stJam1102_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_2" -1 DO
"DB_JamArea1102".stJam1102_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1102".stJam1102_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_3" -1 DO
"DB_JamArea1102".stJam1102_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1102".stJam1102_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_4" -1 DO
"DB_JamArea1102".stJam1102_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1102".stJam1102_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1102_5" -1 DO
"DB_JamArea1102".stJam1102_5.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1102".stJam1102_5.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_1" -1 DO
"DB_JamArea1103".stJam1103_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1103".stJam1103_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1103_2" -1 DO
"DB_JamArea1103".stJam1103_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1103".stJam1103_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_1" -1 DO
"DB_JamArea1104".stJam1104_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1104".stJam1104_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_2" -1 DO
"DB_JamArea1104".stJam1104_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1104".stJam1104_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_3" -1 DO
"DB_JamArea1104".stJam1104_3.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1104".stJam1104_3.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1104_4" -1 DO
"DB_JamArea1104".stJam1104_4.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1104".stJam1104_4.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_1" - 1 DO
"DB_JamArea1105".stJam1105_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1105".stJam1105_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1105_2" -1 DO
"DB_JamArea1105".stJam1105_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1105".stJam1105_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_1" - 1 DO
"DB_JamArea1106".stJam1106_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1106".stJam1106_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1106_2" -1 DO
"DB_JamArea1106".stJam1106_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1106".stJam1106_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_1" - 1 DO
"DB_JamArea1107".stJam1107_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1107".stJam1107_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1107_2" -1 DO
"DB_JamArea1107".stJam1107_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1107".stJam1107_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_1" - 1 DO
"DB_JamArea1108".stJam1108_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1108".stJam1108_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJam1108_2" -1 DO
"DB_JamArea1108".stJam1108_2.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamArea1108".stJam1108_2.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
FOR #nIdx2 := 1 TO "cJamB1Entry_1" -1 DO
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].nBarcode := 20000015;
"DB_JamAreaB1Entry".stJamB1Entry_1.arCarrier[#nIdx2].bStatus.%X0 := true;
END_FOR;
// FOR #nIdx2 := 1 TO "cJamB1ExitLeave" -1 DO
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].nBarcode := 20000015;
// "DB_JamAreaB1ExitLeave".stJamB1ExitLeave.arCarrier[#nIdx2].bStatus.%X0 := true;
// END_FOR;
END_REGION *)
END_IF;
"DB_Test".xFillJam := FALSE;
END_REGION
REGION Jam leeren
IF "DB_Test".xEmptyJam THEN
REGION HyperJam
FOR #nIdxHyper := 1 TO "cHyperJam" DO
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].nBarcode := 0;
"DB_HyperJam".stHyperJam.arCarrier[#nIdxHyper].bStatus.%X0 := false;
END_FOR;
END_REGION
REGION Conveyor
// FOR #nIdx2 := 1 TO "cJamConv1_1" DO
// "DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].nBarcode := 0;
// "DB_JamAreaConv1".stJamConv1_1.arCarrier[#nIdx2].bStatus.%X0 := false;
// END_FOR;
END_REGION
REGION Jam Area
FOR #nIdx2 := 1 TO "cJam4101_1" DO
"DB_JamArea4003".stJam4003_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_2" DO
"DB_JamArea4003".stJam4003_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_3" DO
"DB_JamArea4003".stJam4003_3.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_3.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_4" DO
"DB_JamArea4003".stJam4003_4.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_4.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_5" DO
"DB_JamArea4003".stJam4003_5.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_5.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_6" DO
"DB_JamArea4003".stJam4003_6.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_6.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4101_7" DO
"DB_JamArea4003".stJam4003_7.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4003".stJam4003_7.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4002_1" DO
"DB_JamArea4002".stJam4002_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4002".stJam4002_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4002_2" DO
"DB_JamArea4002".stJam4002_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4002".stJam4002_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0403_1" DO
"DB_JamArea4011".stJam4011_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4011".stJam4011_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0403_2" DO
"DB_JamArea4011".stJam0403_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4011".stJam0403_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0403.01_1" DO
"DB_JamArea4000".stJam4000_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4000".stJam4000_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0403.02_1" DO
"DB_JamArea0403.02"."stJam0403.02_1".arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea0403.02"."stJam0403.02_1".arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0402.01_1" DO
"DB_JamArea4009".stJam4009_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4009".stJam4009_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0402.02_1" DO
"DB_JamArea4010".stJam4010_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4010".stJam4010_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0401.01_1" DO
"DB_JamArea4007".stJam4007_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4007".stJam4007_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam0401.02_1" DO
"DB_JamArea4008".stJam4008_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4008".stJam4008_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4001_1" DO
"DB_JamArea4001".stJam4001_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4001".stJam4001_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4001_2" DO
"DB_JamArea4001".stJam4001_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4001".stJam4001_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4404_1" DO
"DB_JamArea4004".stJam4004_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4004".stJam4004_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4404_2" DO
"DB_JamArea4004".stJam4404_2.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4004".stJam4404_2.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
FOR #nIdx2 := 1 TO "cJam4503_1" DO
"DB_JamArea4006".stJam4006_1.arCarrier[#nIdx2].nBarcode := 0;
"DB_JamArea4006".stJam4006_1.arCarrier[#nIdx2].bStatus.%X0 := false;
END_FOR;
END_REGION
END_IF;
"DB_Test".xEmptyJam := FALSE;
END_REGION
"MA0061" := "DB_IBN".xVario4004;
"MA0062" := "DB_IBN".xVario4005;
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
TEST-SCHLEIFEN
en-US
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Call Jams
en-US
true
true
SCL
cs-CZ
de-DE
Visu
en-US
cs-CZ
de-DE
Visu
en-US
true
1000.0
in Millisekunden anzeigen
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
Zykluszeit genau ermitteln ENDE
en-US
Senden
true
true
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
IO Device Datenübergabe
en-US
*****************************
FÜR PERFORMANCE MESSUNG:
20.01.
1 - 405.1
2 - 405.1
3 - 406.1
true
Sep-Nr. für Auflistung der Messungen
true
2500
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
true
Sep-Nr. für Auflistung der Messungen
true
2600
true
ReleasedEdge des jeweiligen Seps
T#86400s
398
gewünschte Messzeit
*****************************
SCL
cs-CZ
de-DE
en-US
cs-CZ
de-DE
IBN
en-US
cs-CZ
"Main Program Sweep (Cycle)"
de-DE
"Main Program Sweep (Cycle)"
en-US
"Main Program Sweep (Cycle)"