Adjusted Positions of Bender 1

Improved behaviour of Wirestretcher
This commit is contained in:
Michael Rest
2013-12-14 14:52:30 +01:00
parent 4c7fd937c3
commit 56e9ed5717
5 changed files with 19 additions and 11 deletions

View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<ProjectSettings xmlns="http://br-automation.co.at/AS/ProjectSettings">
<Print Header="%lProject: %n%c%x" Footer="%cPage: %p" />
<ConfigurationManager ActiveConfigurationName="ConfigPP65" />

View File

@@ -73,9 +73,9 @@ VAR
END_VAR
(*//Positions Bender*)
VAR
rBender1Pos0 : REAL := 19.0; (*Bender 1 0<> Infeedpos*)
rBender1Pos90 : REAL := 123.0; (*Bender 1 90<39> Bendpos Lane1*)
rBender1Pos270 : REAL := -78.0; (*Bender 1 270<37> Bendpos Lane2*)
rBender1Pos0 : REAL := 26.0; (*Bender 1 0<> Infeedpos*)
rBender1Pos90 : REAL := 128.0; (*Bender 1 90<39> Bendpos Lane1*)
rBender1Pos270 : REAL := -76.0; (*Bender 1 270<37> Bendpos Lane2*)
rBender2Pos0 : REAL := -38.0; (*Bender 2 0<> Infeedpos*)
rBender2Pos90 : REAL := -136.0; (*Bender 2 90<39> Bendpos Lane1*)
rBender2Pos270 : REAL := 65.0; (*Bender 2 270<37> Bendpos Lane2*)
@@ -106,7 +106,9 @@ VAR
TON_Wiregrippers2Closed : TON; (*Drahtgreifer Draht 2 geschlossen verz<72>gert*)
TOF_Wiregrippers2Closed : TOF; (*Drahtgreifer Draht 1 geschlossen verz<72>gert*)
TON_Gripper1Prestreched : TON; (*Draht 1 Vorgespannt*)
TOF_Gripper1Prestreched : TOF; (*Draht 1 Vorgespannt*)
TON_Gripper2Prestreched : TON; (*Draht 2 Vorgespannt*)
TOF_Gripper2Prestreched : TOF; (*Draht 2 Vorgespannt*)
TON_WaitShiftBelt : TON; (*Warten Best<73>cken Lamelle*)
TON_WireHeated : TON; (*Draht vorgeheizt*)
TON_WireWelded : TON; (*Draht Verschwei<65>t*)

View File

@@ -42,9 +42,13 @@ PROGRAM _CYCLIC
PT := t#400ms);
TON_Gripper1Prestreched (IN := gbOuStretchWire1,
PT := t#1s);
PT := t#500ms);
TON_Gripper2Prestreched (IN := gbOuStretchWire2,
PT := t#1s);
PT := t#500ms);
TOF_Gripper1Prestreched (IN := gbOuStretchWire1,
PT := t#750ms);
TOF_Gripper2Prestreched (IN := gbOuStretchWire2,
PT := t#750ms);
TON_WaitShiftBelt (IN := ((enStepBelt = enBeltStep_WAIT_LOADED) AND NOT lAxisBelt.Move.bAdditive),
PT := t#900ms);
@@ -315,7 +319,9 @@ PROGRAM _CYCLIC
//Home Cutter
//---------------------------
enWireStep_HOME_CUTTER:
gbOuSetStrokeWireCutter := FALSE;
IF TOF_WireCutterClosed.Q THEN
gbOuSetStrokeWireCutter := FALSE;
END_IF
IF gbInSetStrokeCutterBw THEN
enStepWirefeed := enWireStep_BEND_END1;
END_IF
@@ -368,8 +374,8 @@ PROGRAM _CYCLIC
//Warten bis Draht gegriffen
//---------------------------
enWireStep_WAIT_WIRE_PICKED:
IF (gbInWireDistributorLane1 AND (enStepWirehandling1 = enWireHandlingStep_WAIT_OPEN_D)) OR
(gbInWireDistributorLane2 AND (enStepWirehandling2 = enWireHandlingStep_WAIT_OPEN_D)) THEN
IF (gbInWireDistributorLane1 AND (enStepWirehandling1 = enWireHandlingStep_WAIT_OPEN_D) AND NOT TOF_Gripper1Prestreched.Q) OR
(gbInWireDistributorLane2 AND (enStepWirehandling2 = enWireHandlingStep_WAIT_OPEN_D) AND NOT TOF_Gripper2Prestreched.Q) THEN
enStepWirefeed := enWireStep_OPEN_WIREDISTRIBUTOR;
END_IF

View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Project Description="Lamellen Grill" Version="1.00.0" Edition="Standard" EditionComment="Standard" xmlns="http://br-automation.co.at/AS/Project">
<Communication />
<Project StoreRuntimeInProject="true" />

View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<ProjectSettings xmlns="http://br-automation.co.at/AS/ProjectSettings">
<Print Header="%lProject: %n%c%x" Footer="%cPage: %p" />
<ConfigurationManager ActiveConfigurationName="ConfigPP65" />