﻿<?xml version="1.0" encoding="utf-8"?>
<TcPlcObject Version="1.1.0.1" ProductVersion="3.1.4024.12">
  <POU Name="P_Camera" Id="{3e091f39-7cc7-478d-a204-1135546e3c1d}" SpecialFunc="None">
    <Declaration><![CDATA[PROGRAM P_Camera
VAR
	//camera 1
	fbScanner1			: FB_Scanner;
	stControl	AT%Q*	: ST_Control;
	stStatus	AT%I*	: ST_Status;
	sCode				: STRING(255);
	bError				: BOOL;
	nState		AT %I*	: UINT;
	bTrig1				: BOOL; //hmi
	// codes buffer 1
	i					: INT;
	//camera 2
	fbScanner2			: FB_Scanner;
	stControl2	AT%Q*	: ST_Control;
	stStatus2	AT%I*	: ST_Status;
	sCode2				: STRING(255);
	bError2				: BOOL;
	nState2		AT %I*	: UINT;
	bTrig2				: BOOL; //hmi
	// codes buffer 2
	j					: INT;
END_VAR
]]></Declaration>
    <Implementation>
      <ST><![CDATA[stControl.uControl.stBits.Trigger:=bTrig1 OR GVL.bTrigIn1;

//kamera1 
fbScanner1(
	nState:=nState , 
	sCode=>sCode , 
	bError=>bError ,
	bNewCode =>, 
	stControl:=stControl , 
	stStatus:=stStatus);
	
IF fbScanner1.bNewCode AND NOT fbScanner1.bError THEN
	FOR i:=0 TO 47 DO
		IF aCodesBuffer[i].sKarton='' THEN
			IF i<>0 THEN
				IF aCodesBuffer[i-1].sKarton<>fbScanner1.sCode THEN
					aCodesBuffer[i].sKarton:=fbScanner1.sCode;
					aCodesBuffer[i].sStacja:='G114';
				END_IF
			ELSE
				aCodesBuffer[i].sKarton:=fbScanner1.sCode;
				aCodesBuffer[i].sStacja:='G114';
			END_IF
		EXIT;
		END_IF
	END_FOR
END_IF

fbScanner2(
	nState:=nState2 , 
	sCode=>sCode2 , 
	bError=>bError2 ,
	bNewCode =>, 
	stControl:=stControl2 , 
	stStatus:=stStatus2);

IF fbScanner2.bNewCode AND NOT fbScanner2.bError THEN
	FOR j:=0 TO 47 DO
		IF aCheckingBuffer[j].sKarton='' THEN
			IF j<>0 THEN
				IF aCheckingBuffer[j-1].sKarton<>fbScanner2.sCode THEN
					aCheckingBuffer[j].sKarton:=fbScanner2.sCode;
					aCheckingBuffer[j].sStacja:='G114';
				END_IF
			ELSE
				aCheckingBuffer[j].sKarton:=fbScanner2.sCode;
				aCheckingBuffer[j].sStacja:='G114';
			END_IF
		EXIT;
		END_IF
	END_FOR
END_IF

]]></ST>
    </Implementation>
    <LineIds Name="P_Camera">
      <LineId Id="3" Count="52" />
      <LineId Id="2" Count="0" />
    </LineIds>
  </POU>
</TcPlcObject>