Monitoreo de una planta industrial

MONITOREO DE UN PLANTA INDUSTRIAL
Resumen:
En el siguiente proyecto se diseño e implementó un sistema de monitoreo de procesos, similar a lo que sería un sistema tipo SCADA con PLC utilizados muyfrecuentemente en las plantas industriales.
Para nuestro caso hemos utilizado una aplicación de Excel (VBA- visual Basic for Applications) como nuestro sistema “SCADA” y un controlador PIC16F877Acomo nuestro “PLC”.
Además de poder monitorear los procesos en el Excel se podrá tomar decisiones de control al respecto si lo deseamos, o por algún caso de emergencia de alguno de los procesos.
Lasacciones de control son:
1. Detener proceso:
2. Visuazlizar proceso
3. Restaurar proceso

La acción “Detener proceso” nos ayudara a proteger el sistema de posibles daños por subida devoltaje.
La acción “Visualizar proceso” nos permite ver los valores del proceso indicado por un LCD para poder controlar el proceso hasta salir de la emergencia.
La acción “Restaurar proceso” lepermite la re-entrada al proceso que ah sido detenido
Todas estas acciones son datas al micro-controlador por medio de un teclado matricial.

Código C del Pic:Esquema del Excel

Código del vba del Excel
//declaraciones globales
Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Public buffer
Public datos
Dim i, j, k, l,var_i, var_j, var_k As Integer
Dim KKK, KKK1, A As Double
Private Sub cmdabrir_Click()
If NETComm1.PortOpen = True Then NETComm1.PortOpen = False
'configurar el puerto
NETComm1.CommPort =Sheets("Hoja1").Range("C7").Value
NETComm1.Settings = "9600, N, 8, 1"
NETComm1.Handshaking = comNone
NETComm1.InputMode = comInputModeText
NETComm1.RThreshold = 1NETComm1.InputLen = 1
NETComm1.InBufferSize = 1024
If NETComm1.PortOpen = False Then NETComm1.PortOpen = True
If Err Then MsgBox Error$, 48
'Vacio el Buffer
While (NETComm1.InBufferCount <> 0)...