FCS = tempfcs
End Function
将响应码中的数据转换为二进制数据：
Function Hex2Bin$（HexValue$）
Const BinTbl = "0000000100100011010001010110011110001001101010111100110111101111"
Dim X, Work$
Work$ = ""
For X = 1 To Len（HexValue$）
Work$ = Work$ + Mid$（BinTbl, Val（"&h" + Mid$（HexValue$, X, 1）） ＊ 4 + 1, 4）
Next
Hex2Bin$ = Work$
End Function
监控程序功能：故障信息及节点查询如图4;PLC电池故障显示如图5;数据库将记录系统运行状态，记录故障发生的时间及相关信息，故障修复的时间及相关信息并提供查询功能如图7;可以查看主界面上位号所对应的PLC位、名称、触点状态等信息以便于故障分析，如图8;系统运行总状态指示如图6所示。
图 6 系统运行状态指示
图 7 数据库查询
图 8 位号对应信息查询
四、监控程序完成的功能
1.故障指示：有报警时，对应指示灯及总状态指示灯将闪烁并声音报警，右上方显示故障信息，单击闪烁指示灯，将停止闪烁，并显示当前状态，报警为红色，正常为浅黄色;如果故障修复，则对应指示灯停止闪烁，当前状态由红色变为浅黄色。单击指示灯，则可以查看各个节点信息，右上方图框会显示该节点的位号，对应PLC位以及该报警点名称和触点状态。右上方文本框有相应的指示灯显示当前系统总运行状态，红色为报警绿色为正常。
2.历史记录：数据库记录系统运行状态，记录报警的位号、名称、PLC位、触点状态、以及报警时间等内容，当故障解除后同样记录解除的位号、名称、PLC位、触点状态、以及故障解除时间。数据库中有位号名称对应表，以方便查询每个点的对应关系。
3.通讯连接：用于重新连接上位机和下位机间的通讯，当单击工具栏中连接按钮时，程序检测通信连接。
4.声音测试：用于测试声音报警是否正常。若正常，点击此按钮时系统发出报警声音。
5.消音：用于消除系统报警时的声音，不影响指示灯闪烁报警。
五、结束语
本系统是为齐鲁石化氯碱厂生产车间设计的电路故障报警系统，现已投入运行。在实际应用中提供了真实可靠的生产实时数据，运行情况良好。为企业减少了人力资源浪费，化工厂生产车间环境较差，改善了工人的工作环境降低了工作强度，并实现了集中监控。本系统的可扩展性也很好的适应了车间改良的需求，可根据用户的要求增加监控点并将本车间故障分类输出到上一级监控站，受到了用户的好评。
参考文献：
1.徐德 孙同景 《可编程序控制器（PLC）应用技术》 山东科技出版社 2000
2.李勇帆 《Visual Basic 6.0程序设计与应用》 人民邮电出版社 2006
3.李长林 《Visual Basic串口通信技术与典型实例》 清华大学出版社 2006
