將故障分類：
PLC后備電池狀態(tài)轉(zhuǎn)存至23通道：
（2）上位機(jī)程序：主要負(fù)責(zé)與PLC進(jìn)行串口通信，讀取PLC內(nèi)部通道狀態(tài)加以分析，在主界面上實(shí)現(xiàn)故障報(bào)警、顯示、故障點(diǎn)信息查詢、故障信息記錄查詢以及節(jié)點(diǎn)信息修改查詢等功能。上位機(jī)PC與PLC通訊時(shí)，按應(yīng)答方式進(jìn)行，由上位計(jì)算機(jī)發(fā)給PLC一組ASCⅡ碼字符數(shù)據(jù)，這一數(shù)據(jù)稱為命令塊。PLC收到命令塊后經(jīng)分析認(rèn)為命令正常，則按照命令進(jìn)行操作，將操作結(jié)果返回給上位計(jì)算機(jī)，PLC返回給上位計(jì)算機(jī)的這一組數(shù)據(jù)稱為響應(yīng)塊。若PLC收到命令后經(jīng)分析確認(rèn)命令不正常，則返回給上位計(jì)算機(jī)錯(cuò)誤命令響應(yīng)塊。上位計(jì)算機(jī)和PLC通訊時(shí)，PLC是被動(dòng)的，必須由上位計(jì)算機(jī)給PLC發(fā)出命令塊，PLC作出響應(yīng)發(fā)還給上位計(jì)算機(jī)響應(yīng)塊。
本程序采用多重通訊方式，多重通訊時(shí)首幀以單元號(hào)（即HOST LINK的機(jī)號(hào)）開始，然后為報(bào)頭、報(bào)文、校驗(yàn)碼、結(jié)束符（只有一幀時(shí)）或分隔符（多幀時(shí)）。中間幀以報(bào)文開始，然后為校驗(yàn)碼、分隔符，中間幀報(bào)文每幀最多125個(gè)字符。尾幀以報(bào)文開始，然后為校驗(yàn)碼、結(jié)束符，尾幀報(bào)文最多124個(gè)字符。
校驗(yàn)碼FCS（Frame Check Sequence）是8位（bit）二進(jìn)制數(shù)轉(zhuǎn)換成的2位字符。這8位二進(jìn)制數(shù)是一幀中校驗(yàn)碼前的所有字符的ASCⅡ碼按位異或的結(jié)果。轉(zhuǎn)換成字符時(shí)按照2位十六進(jìn)制數(shù)字轉(zhuǎn)換成對(duì)應(yīng)的數(shù)字字符。
PLC收到上位計(jì)算機(jī)發(fā)出的命令塊后，經(jīng)分析操作返回給上位計(jì)算機(jī)響應(yīng)塊，在響應(yīng)塊中含有響應(yīng)碼。如果PLC正常完成上位計(jì)算機(jī)的命令，則響應(yīng)碼為00，否則，響應(yīng)碼中含有出錯(cuò)信息。
（3）上位機(jī)PC與PLC的串口通信程序設(shè)計(jì)。
Timer2的值設(shè)為2000，即每隔2s上位機(jī)PC向PLC發(fā)送一次讀取命令，讀取信息。
Private Sub Timer2_Timer()
Dim a(10) As String
a(0)="@00RR00200004" ’單元號(hào)和報(bào)頭報(bào)文
a(1)=FCS(a(0)) ’命令格式中的校
驗(yàn)位
a(2)=a(0)+a(1)+"*"+Chr$(13)
’命令碼
MSComm1.Output=a(2) ’向PLC發(fā)送命令
a(3)=MSComm1.Input
a(4)=Mid$(a(3),6,2) ’響應(yīng)碼
Call Message(a(4)) ’調(diào)用響應(yīng)碼的錯(cuò)
誤信息
If errortime > 3 Then
Timer2.Enabled=False
intr=MsgBox(“通訊錯(cuò)誤，是否退出檢查連接？”,vbYesNoCancel+vbExclamation,“通訊連接中”)
If intr=vbYes Then
………
Else
………
End If
End If
’如果通訊連接正常則讀取數(shù)據(jù)：
[NextPage]
a(6)=Mid$(a(3),24,2) ’響應(yīng)塊中的校驗(yàn)碼
a(7)=Mid$(a(3),1,23)
a(8)=FCS(a(7)) ’計(jì)算校驗(yàn)碼
If a(8)=a(6) Then ’比較校驗(yàn)碼是否相同
a(9)=Mid$(a(3),8,16)
a(10)=Hex2Bin$(a(9))
z=a(10) ’得到PLC內(nèi)部通道數(shù)據(jù)
Else
MsgBox (“校驗(yàn)碼不正確”)
………
End If
（4）校驗(yàn)碼計(jì)算函數(shù)設(shè)計(jì)
Function FCS(ByVal inputstr As String) As String
Dim slen, n, xorresult As Integer
Dim tempfcs As String
slen=Len(inputstr)
xorresult=0
For n=1 To slen
xorresult=xorresult Xor Asc(Mid$(inputstr, n, 1))
Next n
tempfcs=Hex$(xorresult)
If Len(tempfcs)=1 Then
tempfcs=“0”+tempfcs
End If
FCS=tempfcs
End Function
將響應(yīng)碼中的數(shù)據(jù)轉(zhuǎn)換為二進(jìn)制數(shù)據(jù)：
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 監(jiān)控程序完成的功能
4.1 監(jiān)控程序功能
故障信息及節(jié)點(diǎn)查詢參見圖4。PLC電池故障顯示參見圖5。數(shù)據(jù)庫(kù)將記錄系統(tǒng)運(yùn)行狀態(tài)，記錄故障發(fā)生的時(shí)間及相關(guān)信息，故障修復(fù)的時(shí)間及相關(guān)信息并提供查詢功能參見圖7�？梢圆榭粗鹘缑嫔衔惶�(hào)所對(duì)應(yīng)的PLC位、名稱、觸點(diǎn)狀態(tài)等信息以便于故障分析，參見圖8。系統(tǒng)運(yùn)行總狀態(tài)指示如圖6所示。
圖 4 故障點(diǎn)信息顯示
[NextPage]
圖 5 PLC后備電池故障顯示
圖 6 系統(tǒng)運(yùn)行狀態(tài)指示
圖 7 數(shù)據(jù)庫(kù)查詢
圖 8 位號(hào)對(duì)應(yīng)信息查詢
5 結(jié)束語(yǔ)
本系統(tǒng)是為齊魯石化氯堿廠生產(chǎn)車間設(shè)計(jì)的電路故障報(bào)警系統(tǒng)，現(xiàn)已投入運(yùn)行。在實(shí)際應(yīng)用中提供了真實(shí)可靠的生產(chǎn)實(shí)時(shí)數(shù)據(jù)，運(yùn)行情況良好。為企業(yè)減少了人力資源浪費(fèi)，化工廠生產(chǎn)車間環(huán)境較差，改善了工人的工作環(huán)境降低了工作強(qiáng)度，并實(shí)現(xiàn)了集中監(jiān)控。本系統(tǒng)的可擴(kuò)展性也很好的適應(yīng)了車間改良的需求，可根據(jù)用戶的要求增加監(jiān)控點(diǎn)并將本車間故障分類輸出到上一級(jí)監(jiān)控站，受到了用戶的好評(píng)。