Midiendo el tiempo de arranque de una máquina con un script en WinCC Flexible

Hace ya unas semanas un lector me hizo una consulta sobre cómo medir el tiempo de arranque de una máquina con un script en WinCC Flexible. En su momento no tuve tiempo de responderle, pero he hecho una prueba y aprovecho para publicarla en el blog.

Lo que se pretende es visualizar en una pantalla el tiempo de arranque de una máquina. No existe la posibilidad de modificar el programa PLC, con lo que toda la programación deberá hacerse sobre WinCC Flexible.

Con este planteamiento lo primero es localizar dos variables en el programa PLC que nos sirvan para identificar los momentos de inicio y fin de arranque. Para mi ejemplo he enlazado dos variables llamadas INICIO_CICLO y FIN_CICLO que cumplirán esta función y mediante dos botones desde el HMI simularé su activación. También crearé con formato Long tres variables internas, una para el tiempo de inicio (TIEMPO_INICIAL), otra para el tiempo final (TIEMPO_FINAL) y la tercera para la diferencia entre ambos (TIEMPO_MEDIDO), que será el tiempo de arranque buscado.

Estas variables deberemos enlazarlas desde el HMI, seleccionando en su configuración Ciclo continuo y ajustando el Tiempo de adquisición al más bajo posible: 100 ms. Así el panel estará leyendo cada 100 ms el valor de estas variables desde el PLC. Por lo tanto es importante que estas variables en el PLC estén activadas durante más de 100 ms.

A continuación tendremos que crear un par de scripts, que se ejecutarán cuando estas variables cambien, uno para cuando se detecte que se ha iniciado el arranque y otro para cuando finalice.

Dentro de los scrips usaré la función de Visual Basic Script Timer, que cuando la llamamos nos devuelve el número de segundos que han transcurrido desde las 00:00 horas, teniendo por tanto un rango entre 0 y 86399 segundos. No he encontrado una función que tenga una resolución temporal inferior al segundo, con lo que si necesitamos más precisión esta no es la forma de hacerlo.

Si escribimos Timer en el editor de scripts y pulsamos la tecla F1 aparecerá la ayuda para esta función, que nos dice lo siguiente:

Microsoft® Visual Basic® Scripting Edition
Timer Function   Language Reference Version 5

--------------------------------------------------------------------------------
Description
Returns the number of seconds that have elapsed since 12:00 AM (midnight).
The following example uses the Timer function to determine the time it takes to iterate a For...Next loop N times:
Function TimeIt(N)
  Dim StartTime, EndTime
  StartTime = Timer
  For I = 1 To N
  Next
  EndTime = Timer
  TimeIt = EndTime - StartTime
End Function  

El código del script para detectar el inicio del arranque es el siguiente:

'Script a asociar a la variable que indique el inicio de ciclo
'Si la variable que marca el inicio del ciclo está a uno
If SmartTags("INICIO_CICLO") = True Then
'Se guarda el tiempo inicial
'La función Timer devuelve el nº de segundos que han pasado desde las 00:00 horas
SmartTags("TIEMPO_INICIAL") = Timer
End If

y el código para el script que se asocia a la variable del fin de arranque es este:

'Script a asociar a la variable que indique el final del ciclo
'Si la variable que marca el final del ciclo está a uno
If SmartTags("FIN_CICLO") = True Then
'Se guarda el tiempo final
'La función Timer devuelve el nº de segundos que han pasado desde las 00:00 horas
SmartTags("TIEMPO_FINAL") = Timer
'Se calcula la diferencia entre el tiempo inicial y el tiempo final
'para tener el tiempo de arranque buscado
'Si el tiempo final es mayor que el tiempo inicial se restan
If SmartTags("TIEMPO_FINAL") > SmartTags("TIEMPO_INICIAL") Then
SmartTags("TIEMPO_MEDIDO") = SmartTags("TIEMPO_FINAL") - SmartTags("TIEMPO_INICIAL")
'Si el tiempo final es menor que el inicial, es que dentro del intervalo está la puesta a cero
Else
SmartTags("TIEMPO_MEDIDO") = SmartTags("TIEMPO_FINAL") + _
                            SmartTags("TIEMPO_INICIAL") - 86400
End If
End If

Ahora hay que asociar los scripts a sus variables correspondientes. Seleccionamos cada variable y en sus propiedades, bajo Eventos -> Cambio de valor le asignamos el script adecuado.

Y listo, cuando se den las condiciones de inicio de arranque y posteriormente el de fin de arranque, en la variable TIEMPO_FINAL tendremos el tiempo en segundos buscado.

Esto no es más que un ejemplo muy sencillo. No sé si será la mejor opción, pero funciona razonablemente bien. Lo he probado con máquinas virtuales ejecutando WinAC y un Runtime de WinCC Flexible, y tienes el proyecto de prueba aquí.

El mayor problema que veo es la limitación de no poder modificar el programa PLC. Puede que no sea sencillo localizar variables que nos marquen inequívocamente el inicio y el fin del arranque y tal vez tendremos que elaborar un poco más (usando operaciones lógicas con varias variables) su detección. Si se te ocurre una solución mejor estaré encantado de que me la cuentes.

No conozco documentación específica sobre programación de scripts en WinCC Flexible salvo la que se instala con el propio programa: creo que lo mejor para aprender es trastear con el propio editor y consultar su ayuda, que es bastante completa.

Como siempre agradeceré cualquier comentario.