多串口数据采集技术在生产调度监测系统中的应用

　　在一个窗口上可以同时看到多个串口数据，只需鼠标在所需要的串口上（COM5,COM6,COM7等）一点，此串口的接收和发送的数据即显示出来。
　　
　　4-2 多串口数据采集软件的健壮性：通信自动恢复功能和事件日志功能
　　在通信过程中，可能有意外的事件发生，例如停电造成Modem不能通信等等情况，这些情况会造成通信出错而导致系统失败。数据采集软件对各种意外事件均做了相当充分的考虑，如Modem停电或断线等，在恢复供电后或Modem断线重新挂接后，数据采集软件可以判断并进行自动恢复工作。
　　当有通信意外事件发生时，数据采集软件自动地把出现的意外事件记录到数据库中，便于维护人员分析。在生产调度系统运行一年多以来，没有出现因为数据通信有误而导致系统失败的情况发生，其中数据采集软件的通信自动恢复和事件日志功能起了关键性的作用。
　　　
　　以下子程序通过检查专线Modem的状态判断通信线路是否正常：
　　Public Function CheckConnect(Index As Integer) As Boolean
　　Dim intPos As Integer
　　intPos = InStr(1, frmGetData.lblAcmd(Index).Caption, NO CARRIER)
　　If intPos > 0 Then
　　frmGetData.TimerSend(Index).Enabled = False
　　mGetData.blnConnect(Index) = False
　　frmGetData.lblAcmd(Index) =
　　frmGetData.lblGcmd(Index).ForeColor = vbRed
　　frmGetData.MSCommDCS(Index).OutBufferCount = 0
　　frmGetData.MSCommDCS(Index).InBufferCount = 0
　　Call mGetData.LogEvents(Index, NO CARRIER)
　　CheckConnect = False
　　Exit Function
　　End If
　　intPos = InStr(1, frmGetData.lblAcmd(Index).Caption, CONNECT)
　　If intPos > 0 Then
　　frmGetData.lblAcmd(Index) =
　　frmGetData.MSCommDCS(Index).InBufferCount = 0
　　frmGetData.MSCommDCS(Index).OutBufferCount = 0
　　frmGetData.lblGcmd(Index).ForeColor = vbBlack
　　Call mGetData.LogEvents(Index, CONNECT)
　　mGetData.blnConnect(Index) = True
　　If frmGetData.mnuBegin.Checked = True Then
　　frmGetData.TimerSend(Index).Enabled = True
　　End If
　　Exit Function
　　End If
　　FlagLineBusy(Index) = False
　　CheckConnect = True
　　End Function
　　　
　　以下子程序实现通信事件日志记录到数据库系统：
　　Public Sub LogEvents(Index As Integer, strEvents As String)
　　With frmCommEvents.datPrimaryRS.Recordset
　　.AddNew
　　.Fields(rs232com) = Index
　　.Fields(DateTime) = Date & & Time
　　.Fields(EventsLog) = strEvents
　　.Update
　　End With
　　End Sub
　　五、结束语
　　目前，我厂生产调度实时监测系统投入使用1年多以来，MOXA公司的C320 Turbo多串口卡以其高性能（双CPU）、易于使用、高可靠性等特点充分保证了生产数据准确可靠，系统运行安全稳定，数据更新快速，大大方便生产指挥人员及时、准确掌握生产实际情况，为生产指挥人员正确、有效、科学地指挥生产提供了强有力的保证，确保了工厂生产的安全运行。
　　