La secuencia de la lavadora web.

Escrito por David Publicado el 5 junio, 2011 at 12:01

He creado una secuencia en plc control para continuar con la lavadora web. En un principio pensé en hacer esta secuencia en vb.net, pero me ha parecido más interesante hacerla con plc control. Así, de paso, vemos una secuencia creada en ST (Texto Extructurado).Despues de tener la lavadora funcionando, haré la supervisión en vb.net y el guardado en MySql.

La secuencia es una versión beta que modificaremos sobre la marcha. En el siguiente paso crearé la interface en vb.net.

VAR_GLOBAL
	Y1 AT %Q*:BOOL; (*Electroválvula cajon*)
	Y2 AT %Q*:BOOL;	(*Electroválvula Bombo*)
	M1 AT %Q*:BOOL;	(*Motor bombo*)
	M2 AT %Q*:BOOL;	(*Motor desagüe*)
	X1 AT %Q*:BOOL;	(*Bloqueo puerta*)
	Resistencia AT %Q*:BOOL;
	CajonCerrado AT %I*:BOOL;
	PuertaCerrada AT %I*:BOOL;
 
	InicioLavado:BOOL;
	Temperatura:INT;
	NivelAgua:INT;
 
END_VAR
 
PROGRAM MAIN
VAR
	stateMain:INT;
	Aviso:INT;
	txtAviso:STRING;
	PermisoCalentar: BOOL;
	Termostato: BOOL;
	Pulso1Sec: TON;
	Espera: INT;
END_VAR
 
(*LLamada a subprogramas*)
SecCalentar();
 
(*Otros*)
Pulso1Sec(IN:=NOT Pulso1Sec.Q, PT:= T#1s);
 
 
 
 
CASE stateMain OF
0:(*Comprobar condiciónes para inicio*)
	IF NOT  CajonCerrado THEN
		Aviso := 1;
		txtAviso :='Cajon sin cerrar';
	ELSE
		IF NOT PuertaCerrada THEN
			Aviso := 2; (*Puerta sin cerrar*)
			txtAviso :='Puerta sin cerrar';
		ELSE
			Aviso := 3;
			txtAviso :='Preparado para inicio';
			IF InicioLavado THEN
				stateMain:= 10;
				InicioLavado := FALSE;
			END_IF
		END_IF
	END_IF
 
10:(*Bloqueo de puerta*)
	X1 := TRUE;
	stateMain := 20;
20:(*Llenar de agua I*)
	Espera := 30;
	stateMain :=21;
	Y2:= TRUE;
21:(*Llenar de agua II*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 20;
		txtAviso :='Llenado de agua';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 30;
	END_IF;
30:(*Calentar agua*)
	PermisoCalentar := TRUE;
	stateMAIN := 40;
40:(*Esperar hasta conseguir temperatura*)
	IF Temperatura > 60 THEN
		stateMain:= 50;
	END_IF
	Aviso := 40;
	txtAviso :='Calentando agua';
50:(*Mover bombo con agua, esto tendrá un nombre pero...*)
	Espera := 20;
	stateMain := 51;
	M1 :=TRUE;
51:(*Continua mover bombo*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 50;
		txtAviso :='Moviendo bombo';
	END_IF
	IF Espera > 1 THEN
		Espera := 0;
		stateMain := 60;
	END_IF;
60:(*Abrimos electroválvula jabon I*)
	Espera := 5;
	stateMain := 61;
	Y1 :=TRUE;
61:(*Continua mover bombo*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 60;
		txtAviso :='Introducir jabon';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 70;
	END_IF;
70:(*Cerramos jabon*)
	Y1:= FALSE;
	stateMain := 80;
80:(*Lavando*)
	Espera := 25;
	stateMain := 81;
81:(*Continua lavado*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 60;
		txtAviso :='Lavando';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 90;
	END_IF;
90:(*Extraer agua*)
	Espera := 25;
	stateMain := 91;
	M2 := TRUE;
91:(*Continua Extraer agua*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 90;
		txtAviso :='Sacando agua';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 100;
	END_IF;
100:(*Llenar agua  y extraer*)
	Espera := 25;
	stateMain := 101;
 
101:(*Continua llenar agua y extraer*)
	IF Espera > 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 60;
		txtAviso :='Llenar agua y extraer';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 110;
	END_IF;
110:(*Paramos agua y extraer*)
	M2:= FALSE;
	Y2:= FALSE;
	stateMain := 120;
120:(*Centrifugar, para simplificar sólo dejo el bombo en marcha un tiempo*)
	Espera := 25;
	stateMain := 121;
 
121:(*Continúa centrifugado*)
	IF Espera &gt; 0 AND Pulso1Sec.Q THEN
		Espera := Espera - 1;
		Aviso := 120;
		txtAviso :='Centrifugado';
	END_IF
	IF Espera < 1 THEN
		Espera := 0;
		stateMain := 130;
	END_IF;
130:(*Fin lavado*)
	M1:= FALSE;
	X1:= FALSE;
	Aviso :=0;
	stateMain :=0;
END_CASE
 
PROGRAM Simular
VAR
	Pulso1Sec: TON;
END_VAR
 
Pulso1Sec(IN:=NOT Pulso1Sec.Q, PT:= T#1s);
 
IF Pulso1Sec.Q AND Resistencia THEN
	Temperatura := Temperatura + 1;
END_IF
 
IF Y2 THEN
	NivelAgua := NivelAgua + 1;
END_IF;

Dentro del programa creado en ST he añadido una ACTION en LEADER. Esto nos permite hacer ciertas líneas de código en otro lenguaje por diferentes razones.

Este es el árbol del programa:

- Publicidad -

Y este el action:

La secuencia se construye con un CASE. Cuando el plc lee la instrucción CASE, lee el valor de la variable que sigue a esta palabra clave. Luego leerá sólo el código que este seguido de este valor y sólo ese hasta el siguiente ciclo de scan.

CASE <variable> OF
<Valor>: Codigo
<Valor>: Codigo
END_CASE

En el siguiente ejemplo si Var = 1, se pone M1 a true y si Var = 2, se pone Y2 a FALSE. Esto es equivalente a hacer un SET.

CASE Var OF
1:M1:=TRUE;
2:Y2:=FALSE;
END_CASE

Otra cosa que me parece interesante es la variable txtAviso. Esta variable de tipo STRING nos informa de el estado actual de la máquina, a efecto de depuración creo que puede ser interesante.

Bueno y por el momento esto es todo, cualquier cosa un comentario. Y el programa lo dejo en la próxima entrada con la aplicación en vb.net.

Bookmark on DeliciousDigg this postRecommend on Facebookshare via RedditShare with StumblersTweet about itSubscribe to the comments on this post

- Publicidad -

Authors: David

Ver original.