Files
infineon_plc/PLC/01_Stationen/HVTester/FB_HVTester.TcPOU
m.heisig 0c40092d8f Some improvements and fixes
- Added robot schift params for aligning etcher 1 position
- Added HMI Interface to robot fb
- Added machine LED's at main cabinet
- Aligner now works in auto mode
- Added HMI interface to etcher station
- Added cReleaseAlarms to HeatCoolPlates
- Added HMI interface to HVTester
- STarted tray feeder response parsing
- Fixed some packml base state machine bugs
2026-02-15 10:04:59 +01:00

44 lines
998 B
XML

<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1">
<POU Name="FB_HVTester" Id="{63fd7fbb-2896-492c-ad94-827a20571a58}" SpecialFunc="None">
<Declaration><![CDATA[FUNCTION_BLOCK FB_HVTester EXTENDS FB_PackMLGeneric
VAR_INPUT
xOpenChambers : BOOL;
END_VAR
VAR_OUTPUT
END_VAR
VAR
xOpenDoor1 AT %Q* : BOOL;
xOpenDoor2 AT %Q* : BOOL;
xCloseDoor1 AT %Q* : BOOL;
xCloseDoor2 AT %Q* : BOOL;
// Chamber is the big cylinder not the door
xOpenChamber1 AT %Q* : BOOL;
xOpenChamber2 AT %Q* : BOOL;
xCloseChamber1 AT %Q* : BOOL;
xCloseChamber2 AT %Q* : BOOL;
END_VAR
]]></Declaration>
<Implementation>
<ST><![CDATA[IF xOpenChambers THEN
xOpenDoor1 := TRUE;
xOpenDoor2 := TRUE;
xCloseDoor1 := FALSE;
xCloseDoor2 := FALSE;
ELSE
xOpenDoor1 := FALSE;
xOpenDoor2 := FALSE;
xCloseDoor1 := TRUE;
xCloseDoor2 := TRUE;
END_IF
// Call base sm
SUPER^(stPackMLHMIInterface := THIS^.stPackMLHMIInterface);]]></ST>
</Implementation>
</POU>
</TcPlcObject>