E-Zylinder-Linien-SPS/Logical/TischProgramme/Tisch7/Main.st

PROGRAM _INIT

	Tisch_7 := 0;

	RTInfo_0(enable:=1);
	
	gDO_AC230V_Steckdose := FALSE;
	gMerker_AC230V_ON := FALSE;
	lWarten_AC230V_Einschalten := 0;
	
END_PROGRAM

PROGRAM _CYCLIC
	IF (gTisch_7.Inputs.Vor_Stopper = TRUE AND gTisch_7.Inputs.Stausensor = FALSE AND Tisch_7 = 0) OR (gTisch_7.Inputs.Vor_VorStopper = TRUE AND gTisch_7.Inputs.Vor_Stopper = FALSE AND Tisch_7 = 0) THEN
			gTisch_7.Outputs.Lampe_Start := TRUE;
		ELSE
			gTisch_7.Outputs.Lampe_Start := FALSE;
		END_IF

		IF gTaster_Tisch_7_aus = TRUE THEN
			gTisch_7.Cmd.Stopper := KMD_EINFAHREN;
			gTisch_7.Cmd.Vorstopper := KMD_EINFAHREN;
			gMerker_RFID_Tisch_7_gelesen := TRUE;
			Tisch_7 := 0;
		END_IF
		
		IF gMerker_AC230V_ON = FALSE THEN			//VErzögerung der Netzsteckerleiste im Schaltschrank der Station7, um den Router für die KAmera erst später zu aktivieren, sonst geht die KAmera nicht
			lWarten_AC230V_Einschalten := lWarten_AC230V_Einschalten + (RTInfo_0.cycle_time/1000);
			IF lWarten_AC230V_Einschalten >= 5000 THEN
				gDO_AC230V_Steckdose := TRUE;
				gMerker_AC230V_ON := TRUE;
			END_IF
		END_IF
	
	CASE Tisch_7 OF
	
		0:
			IF (*gTisch_7.Inputs.Start = TRUE AND*) gTisch_7.Inputs.Vor_VorStopper = TRUE AND gTisch_7.Inputs.Vor_Stopper = TRUE AND gTisch_7.Inputs.Stausensor = FALSE AND gTaster_Tisch_7_aus = FALSE (*AND gMerker_RFID_Tisch_7_gelesen = TRUE*) THEN
				//			gTisch_7.Cmd.Stopper := KMD_EINFAHREN;
				//			gMerker_RFID_Tisch_7_gelesen := FALSE;
				//			Tisch_7 := 10;
				lWarten_Auto_Start_Tisch_7 := 0;	
				Tisch_7 := 5;				
			ELSIF (*gTisch_7.Inputs.Start = TRUE AND*) gTisch_7.Inputs.Vor_VorStopper = FALSE AND gTisch_7.Inputs.Vor_Stopper = TRUE AND gTisch_7.Inputs.Stausensor = FALSE AND gTaster_Tisch_7_aus = FALSE (*AND gMerker_RFID_Tisch_7_gelesen = TRUE*) THEN
//				gTisch_7.Cmd.Stopper := KMD_EINFAHREN;
//				gMerker_RFID_Tisch_7_gelesen := FALSE;
//				Tisch_7 := 70;
				lWarten_Auto_Start_Tisch_7 := 0;
				Tisch_7 := 65;				
		ELSIF gTisch_7.Inputs.Vor_VorStopper = TRUE AND gTisch_7.Inputs.Vor_Stopper = FALSE AND gTaster_Tisch_7_aus = FALSE THEN
				gTisch_7.Cmd.Vorstopper := KMD_EINFAHREN;
				Tisch_7 := 110;
		ELSIF gTaster_Tisch_7_aus = FALSE AND gTisch_7.Inputs.Stopper_eingefahren = TRUE AND gTisch_7.Inputs.Vorstopper_eingefahren = TRUE THEN
				gTisch_7.Cmd.Stopper := KMD_AUSFAHREN;
				gTisch_7.Cmd.Vorstopper := KMD_AUSFAHREN;
				Tisch_7 := 0;
		END_IF	

	
			//			
			
		5: lWarten_Auto_Start_Tisch_7 := lWarten_Auto_Start_Tisch_7 + (RTInfo_0.cycle_time/1000);
			IF lWarten_Auto_Start_Tisch_7 >= 10000 THEN
				gTisch_7.Cmd.Stopper := KMD_EINFAHREN;
				gMerker_RFID_Tisch_7_gelesen := FALSE;
				lWarten_Auto_Start_Tisch_7 := 0;
			Tisch_7 := 10;
		END_IF		

		10:
		IF gTisch_7.Inputs.Nach_Stopper = TRUE THEN
			Tisch_7 := 20;
		END_IF
		
		20:
		IF gTisch_7.Inputs.Nach_Stopper = FALSE THEN
			gTisch_7.Cmd.Stopper := KMD_AUSFAHREN;
			gTisch_7.Cmd.Vorstopper := KMD_EINFAHREN;
			Tisch_7 := 30;
		END_IF

		30:
		IF gTisch_7.Inputs.Nach_Vorstopper = TRUE THEN
			Tisch_7 := 40;
		END_IF

		40:
		IF gTisch_7.Inputs.Nach_Vorstopper = FALSE THEN
			gTisch_7.Cmd.Vorstopper := KMD_AUSFAHREN;
			Tisch_7 := 50;
		END_IF

		50:
		IF gTisch_7.Inputs.Stausensor = TRUE THEN
			Tisch_7 := 60;
		END_IF

		60:
		IF gTisch_7.Status.Vorstopper = STATUS_AUSGEFAHREN AND gTisch_7.Status.Stopper = STATUS_AUSGEFAHREN THEN
			Tisch_7 := 0;
		END_IF

//			
			
		65: lWarten_Auto_Start_Tisch_7 := lWarten_Auto_Start_Tisch_7 + (RTInfo_0.cycle_time/1000);
		IF lWarten_Auto_Start_Tisch_7 >= 10000 THEN
			gTisch_7.Cmd.Stopper := KMD_EINFAHREN;
			gMerker_RFID_Tisch_7_gelesen := FALSE;
			lWarten_Auto_Start_Tisch_7 := 0;
			Tisch_7 := 70;
		END_IF		

		70:
		IF gTisch_7.Inputs.Nach_Stopper = TRUE THEN
			Tisch_7 := 80;
		END_IF

		80:
		IF gTisch_7.Inputs.Nach_Stopper = FALSE THEN
			gTisch_7.Cmd.Stopper := KMD_AUSFAHREN;
			Tisch_7 := 90;
		END_IF

		90:
		IF gTisch_7.Inputs.Stausensor = TRUE THEN
			Tisch_7 := 100;
		END_IF

		100:
		IF gTisch_7.Status.Stopper = STATUS_AUSGEFAHREN THEN
			Tisch_7 := 0;
		END_IF

//

		110:
		IF gTisch_7.Inputs.Nach_Vorstopper = TRUE THEN
			Tisch_7 := 120;
		END_IF

		120:
		IF gTisch_7.Inputs.Nach_Vorstopper = FALSE THEN
			gTisch_7.Cmd.Vorstopper := KMD_AUSFAHREN;
			Tisch_7 := 130;
		END_IF

		130:
		IF gTisch_7.Inputs.Vor_Stopper = TRUE AND gTisch_7.Status.Vorstopper = STATUS_AUSGEFAHREN THEN
			Tisch_7 := 0;
		END_IF

	END_CASE	

END_PROGRAM

PROGRAM _EXIT
	(* Insert code here *)
	 
END_PROGRAM