Initial

PLC/3 Hotplate/POUs/Peripherie/HOTPLATE_IO_FB.TcPOU

@@ -0,0 +1,66 @@
+<?xml version="1.0" encoding="utf-8"?>
+<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4026.11">
+  <POU Name="HOTPLATE_IO_FB" Id="{d6c2e60e-7c3f-4ac6-8faa-8ca468e62db4}" SpecialFunc="None">
+    <Declaration><![CDATA[FUNCTION_BLOCK HOTPLATE_IO_FB EXTENDS Station_GENERAL_IO_FB
+VAR_INPUT
+//	bOutN2			:	BOOL;
+//	bOutVacuum		:	BOOL;
+//	bOutVacOut		:	BOOL;
+//	bOutShutter		:	BOOL;
+END_VAR
+
+VAR_OUTPUT
+//	bInVacuum						:	BOOL;
+//	bInShutterOpen 					:	BOOL;
+	bInReferenceSensor				:	BOOL;
+	bInOverTemp				AT %I*	:	BOOL;
+//	CANStatus			AT %I*		:	USINT;
+	rInCurrentTemperature			:	LREAL;
+	InCurrentTemperature	AT %I*	:	INT;
+END_VAR
+
+VAR
+END_VAR
+]]></Declaration>
+    <Implementation>
+      <ST><![CDATA[//MediaCheck();
+(*
+IF bInReferenceSensor THEN
+	iStationStatus.Ist.PrepIn 	:= FALSE;
+	iStationStatus.Ist.PrepOut 	:= FALSE;
+END_IF
+*)
+
+CASE iStationStatus.StationType OF
+	TypeHotplate:
+		rInCurrentTemperature := HOTPLATE_TempRegler.rOutCurrentTemperature;
+	TypeCoolplate:
+		rInCurrentTemperature := InCurrentTemperature;
+		rInCurrentTemperature := rInCurrentTemperature/10;
+END_CASE]]></ST>
+    </Implementation>
+    <Method Name="Initialization" Id="{5ae12870-9b1c-4b8f-b9d4-34f9d7c40b29}">
+      <Declaration><![CDATA[METHOD Initialization : BOOL
+VAR_INPUT
+	iStation	:	INT;
+END_VAR
+]]></Declaration>
+      <Implementation>
+        <ST><![CDATA[InitializationExt(iStation);]]></ST>
+      </Implementation>
+    </Method>
+    <Action Name="MediaCheck" Id="{4b47197f-6cb4-4618-90a2-57a8f30babe6}">
+      <Implementation>
+        <ST><![CDATA[CASE iStationStatus.StationType OF
+	TypeHotplate:
+		AlarmSend(iStation, HOTPLATE_ErrorNr.eOverTemp, FALSE, eReportType.Warning, sAvailableResponse.Ok, NOT bInOverTemp);
+END_CASE
+
+DelayTimer(IN := TRUE AND InAktorspannung, PT := T#5S);
+ IF NOT DelayTimer.Q  THEN
+	 RETURN;
+ END_IF]]></ST>
+      </Implementation>
+    </Action>
+  </POU>
+</TcPlcObject>