michi/KD_Hoertnagl_Fraese
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Anpassung Feeder - Nachrüttleln (Funktioniert noch nicht)

Browse Source
This commit is contained in:
Michael Rest
2021-07-28 08:36:29 +02:00
parent 8e316912b1
commit 0019a337df
10 changed files with 92 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

61
Logical/Communication/Flexfeeder/Flexfeed/FlexFeedCyclic.st
View File

@@ -617,7 +617,11 @@ PROGRAM _CYCLIC
ELSIF Status.bCalibration THEN
Status.bDataSent := FALSE;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_StopStreaming;
enStepFlexfeeder := enFF_Step_StopStreaming;
ELSIF Status.bFlipAfterBadGrip THEN
Status.bDataSent := FALSE;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_StopStreaming;
ELSIF Status.bDataReceived THEN
Status.bDataSent := FALSE;
TimesLatch.diSteptimeFF := gdiSystemTime;
@@ -696,6 +700,7 @@ PROGRAM _CYCLIC
brsmemset (ADR (sRecv), 0, brsstrlen (ADR (sRecv)));
Status.bDataReceived := FALSE;
END_IF
//Auto Stoppen nach Streaming
//-----------------------------
@@ -712,6 +717,9 @@ PROGRAM _CYCLIC
IF bParamSetChanged THEN
//Nach Parametersatzwechsel Job neu laden
enStepFlexfeeder := enFF_Step_SetOffline;
ELSIF Status.bFlipAfterBadGrip THEN
//Kalibrieren (neuer Job)
enStepFlexfeeder := enFF_Step_SetFlipAfterStreaming;
ELSIF Status.bCalibration THEN
//Kalibrieren (neuer Job)
enStepFlexfeeder := enFF_Step_SetOffline;
@@ -732,6 +740,57 @@ PROGRAM _CYCLIC
END_IF
//Flippen nach Fehlgriff
enFF_Step_SetFlipAfterStreaming:
//Kamera offline schalten
sSend := 'SSE000x=5$r$n';
Status.bSendData := NOT Status.bDataSent;
IF Status.bDataReceived THEN
IF Status.bSendData THEN
//fixme
END_IF
IF brsstrcmp (ADR ('1$r$n'), ADR (sRecv)) = 0 THEN
//Befehl Ok
Status.bDataSent := FALSE;
Status.bFlipAfterBadGrip := FALSE;
DoResetComAlarms;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_ExecuteFlipAfterStream;
ELSE
Status.bDataSent := FALSE;
Status.bFlipAfterBadGrip := FALSE;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_StartFeederAuto;
END_IF
brsmemset (ADR (sRecv), 0, brsstrlen (ADR (sRecv)));
Status.bDataReceived := FALSE;
END_IF
//Flippen nach Fehlgriff
enFF_Step_ExecuteFlipAfterStream:
//Kamera offline schalten
sSend := 'SE7$r$n';
Status.bSendData := NOT Status.bDataSent;
IF Status.bDataReceived THEN
IF Status.bSendData THEN
//fixme
END_IF
IF brsstrcmp (ADR ('1$r$n'), ADR (sRecv)) = 0 THEN
//Befehl Ok
Status.bDataSent := FALSE;
DoResetComAlarms;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_StartFeederAuto;
ELSE
Status.bDataSent := FALSE;
TimesLatch.diSteptimeFF := gdiSystemTime;
enStepFlexfeeder := enFF_Step_StartFeederAuto;
END_IF
brsmemset (ADR (sRecv), 0, brsstrlen (ADR (sRecv)));
Status.bDataReceived := FALSE;
END_IF
//Kalibrieren Statusanfrage
//-----------------------------
enFF_Step_CalCheckFeederHome:

3
Logical/Communication/Flexfeeder/Flexfeed/Types.typ
View File

@@ -7,6 +7,7 @@ TYPE
bDataReceived : BOOL; (*Daten erhalten*)
bSendData : BOOL; (*Daten senden*)
bDataSent : BOOL; (*Daten gesendet*)
bFlipAfterBadGrip : BOOL;
bCalibration : BOOL; (*Kalibrieren*)
usCalPoint : USINT; (*Kalibrierpunkt 0-3*)
udSocket : UDINT; (*Socket Handle*)
@@ -69,6 +70,8 @@ TYPE
enFF_Step_StreamingMode,
enFF_Step_StopStreaming,
enFF_Step_StopAutoAfterStreaming,
enFF_Step_SetFlipAfterStreaming,
enFF_Step_ExecuteFlipAfterStream,
enFF_Step_CalCheckFeederHome, (*Kalibrierung Warten bis Feeder Home*)
enFF_Step_CalSelectPoint, (*Kalibrierung Kalibrierpunkt w<>hlen*)
enFF_Step_CalStartCycle, (*Kalibrierung Kalibrierablauf starten*)

2
Logical/VCShared/AlarmGroups/AlarmSystem.alcfg
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<AlarmSystem xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="HistoryLength" Value="1000"/>
<Property Name="SnippetBufferSize" Value="150"/>

2
Logical/VCShared/ControlVersion.cvinfo
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<ComponentVersions xmlns="http://br-automation.co.at/AS/VC/Project">
<ComponentVersion>
<Property Name="ClassId" Value="0x00000500"/>

2
Logical/VCShared/Languages.vcr
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<Languages xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="Default" Value="de"/>
<Property Name="FallBackLanguage" Value="de"/>

4
Logical/VCShared/Package.vcp
View File

@@ -1,9 +1,9 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<Project xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="EnableEvents" Value="True"/>
<Property Name="SharedTargetResourceRoot" Value=""/>
<Property Name="TextIDMax" Value="129998"/>
<Property Name="TextIDMax" Value="130632"/>
<SourceFiles>
<Source File="Languages.vcr"/>
<Source File="TextGroups\AlarmAcknowledgeState.txtgrp"/>

2
Logical/Vsualization/Visu/Package.vcp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<Project xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="Backlight" Value="True"/>
<Property Name="BacklightDatapoint" Value="None"/>

2
Logical/Vsualization/Visu/Palette.vcr
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<Palette xmlns="http://br-automation.co.at/AS/VC/Project">
<PaletteColor Index="0" Value="#000000"/>
<PaletteColor Index="1" Value="#0000AA"/>

34
Logical/Vsualization/Visu/TextGroups/txtStepCamFF.txtgrp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.7.3.93 SP"?>
<?AutomationStudio Version="4.7.6.114 SP"?>
<TextGroup xmlns="http://br-automation.co.at/AS/VC/Project" Name="txtStepCamFF">
<Property Name="Description" Value=""/>
<Property Name="Index" Value="8"/>
@@ -38,6 +38,8 @@
<Text ID="129353" Value="Purge Cmd 1"/>
<Text ID="129354" Value="Purge Cmd 2"/>
<Text ID="129355" Value="Purge Wait"/>
<Text ID="130630" Value=""/>
<Text ID="130632" Value=""/>
</TextLayer>
<TextLayer LanguageId="de">
<Text ID="129323" Value="Nicht Verbunden"/>
@@ -73,6 +75,8 @@
<Text ID="129353" Value="Leeren Befehl 1"/>
<Text ID="129354" Value="Leeren Befehl 2"/>
<Text ID="129355" Value="Leeren Warten"/>
<Text ID="130630" Value="Flippen nach Fehlgriff vorbereiten"/>
<Text ID="130632" Value="Flippen nach Fehlgriff"/>
</TextLayer>
<IndexMap>
<Index ID="129323" Value="0"/>
@@ -95,18 +99,20 @@
<Index ID="129340" Value="17"/>
<Index ID="129341" Value="18"/>
<Index ID="129342" Value="19"/>
<Index ID="129343" Value="20"/>
<Index ID="129344" Value="21"/>
<Index ID="129345" Value="22"/>
<Index ID="129346" Value="23"/>
<Index ID="129347" Value="24"/>
<Index ID="129348" Value="25"/>
<Index ID="129349" Value="26"/>
<Index ID="129350" Value="27"/>
<Index ID="129351" Value="28"/>
<Index ID="129352" Value="29"/>
<Index ID="129353" Value="30"/>
<Index ID="129354" Value="31"/>
<Index ID="129355" Value="32"/>
<Index ID="129343" Value="22"/>
<Index ID="129344" Value="23"/>
<Index ID="129345" Value="24"/>
<Index ID="129346" Value="25"/>
<Index ID="129347" Value="26"/>
<Index ID="129348" Value="27"/>
<Index ID="129349" Value="28"/>
<Index ID="129350" Value="29"/>
<Index ID="129351" Value="30"/>
<Index ID="129352" Value="31"/>
<Index ID="129353" Value="32"/>
<Index ID="129354" Value="33"/>
<Index ID="129355" Value="34"/>
<Index ID="130630" Value="20"/>
<Index ID="130632" Value="21"/>
</IndexMap>
</TextGroup>

4
Physical/Config1/Hardware.hw
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.7.3.93?>
<?AutomationStudio Version=4.7.6.114?>
<Hardware xmlns="http://br-automation.co.at/AS/Hardware">
<Module Name="20K1" Type="X20CMR111" Version="1.2.0.0">
<Connection Connector="SS1" TargetModule="X20TB12f" TargetConnector="SS" />
@@ -171,7 +171,7 @@
<Parameter ID="FileDevicePath4" Value="F:\audit" />
<Parameter ID="ActivateDaylightSavingTime" Value="1" />
<Parameter ID="ActivateSntp" Value="1" />
<Parameter ID="SntpcServAddr1" Value="192.168.6.254" />
<Parameter ID="SntpcServAddr1" Value="131.188.3.220" />
<Parameter ID="EthernetHostName" Value="kd-04-01-20" />
<Parameter ID="EthernetDefaultGateway" Value="192.168.1.254" />
<Group ID="FtpUser1" />