基于調(diào)制解調(diào)器與VB的PLC遠(yuǎn)程通訊系統(tǒng)設(shè)計(jì)

　　二．讀數(shù)寫數(shù)

　　本系統(tǒng)操作PLC的關(guān)鍵數(shù)據(jù)主要是水位的設(shè)定值PV=R0和當(dāng)前值CV=R1，即要對(duì)暫存器R0進(jìn)行寫操作，R1進(jìn)行讀操作；

　　依照協(xié)議VB設(shè)計(jì)的通訊程序必須指定一個(gè)命令碼，向PLC請(qǐng)求數(shù)據(jù)讀取，查的該命令碼為“46”，解釋為：連續(xù)多個(gè)緩存器之?dāng)?shù)據(jù)讀取。讀取R1的PC命令的ASCII碼寫法為：

　　“STX＋ 01（站號(hào)）＋46（命令碼）＋01（連續(xù)數(shù)據(jù)個(gè)數(shù)）＋R00001（數(shù)據(jù)開始地址）＋LRC（偵誤值）＋ETX”

　　依照協(xié)議VB設(shè)計(jì)的通訊程序必須指定一個(gè)命令碼，對(duì)PLC緩存器數(shù)據(jù)寫入，查的該命令碼為“47”，解釋為：連續(xù)多個(gè)緩存器之?dāng)?shù)據(jù)寫入。寫入R0的PC命令的ASCII碼寫法為：

　　“STX＋ 01（站號(hào)）＋47（命令碼）＋01（連續(xù)數(shù)據(jù)個(gè)數(shù)）＋R00000（數(shù)據(jù)開始地址）＋XXXX（寫入的數(shù)據(jù)資料，16進(jìn)制）＋LRC（偵誤值）＋ETX”

　　讀取當(dāng)前值CV=R1，程序如下

　　Private Sub Timer1_Timer（）

　　MSComm1.Output= Chr（2）+ “014601R00001”+ Lrc（“014601R00001”）+Chr（3）

　　Delay （10） ‘延時(shí)

　　CV = Val（“&H” + Mid（MSComm1.bbbbb， 7， 4）） ’數(shù)據(jù)處理，R0放于CV

　　CV.Text = CV

　　End Sub

　　寫入設(shè)定值PV=R0，程序如下

　　Private Sub Command1_Click（）

　　If Len（Hex（PV.Text）） = 4 Then PV = Hex（PV.Text）

　　If Len（Hex（PV.Text）） = 3 Then PV = “0” + Hex（PV.Text

　　If Len（Hex（PV.Text）） = 2 Then PV = “00” + Hex（PV.Text）

　　If Len（Hex（PV.Text）） = 1 Then PV = “000” + Hex（PV.Text） ‘10進(jìn)制轉(zhuǎn)換16進(jìn)制

　　MSComm1.Output=Chr（2）+ “014701R00000”+ PV + +Lrc（“014701R00000” & PV）+Chr（3）

　　End Sub

　　三．偵誤值（CHECKSUM）計(jì)算

　　為VB的編程方便，把該計(jì)算做成單獨(dú)一個(gè)子程序，依所有數(shù)據(jù)累加，舍棄進(jìn)位的規(guī)則VB的LRC編程如下：

　　Private Function Lrc（Dats） As bbbbbb

　　Dim i

　　Dim Sum

　　Sum =2

　　For i = 1 To Len（Dats）

　　Sum = Sum + Asc（Mid（Dats， i， 1））

　　Next i

　　Lrc = Right（“0” + Hex（Sum + 2）， 2）

　　End Function

5結(jié)束語

　　采用基于MODEM通訊的設(shè)計(jì)極方便地實(shí)現(xiàn)該小電站生廠調(diào)度，在這種只需短時(shí)間連接控制的系統(tǒng)應(yīng)用上可以大幅度地減小通訊成本，具有一定的推廣價(jià)值。另外，通過MODEM的連接，利用永宏編程軟件可以實(shí)現(xiàn)該設(shè)備的遠(yuǎn)程程序調(diào)試修改，通過兩個(gè)MODEM還可以實(shí)現(xiàn)兩臺(tái)遠(yuǎn)程PLC的CPU連接通訊等。