4 PC端程序設(shè)計

4.1 撥號程序設(shè)計

PC端將以VB6.0所帶的通信控件MSCOMM進行通信軟件的開發(fā)，利用該控件控制串口實現(xiàn)對MODEM的控制?？刂撇襟E如下：

一.通信參數(shù)設(shè)置

設(shè)置串口端口號，波特率，數(shù)據(jù)位，停止位，奇偶校驗位及設(shè)置硬件握手協(xié)議，然后向MODEM發(fā)出DTR(已準(zhǔn)備好)信號一便接管MODEM，程序如下：

If MSComm1.PortOpen Then

MSComm1.DTREnable = True

Else

MSComm1.DTREnable = False

End If

二.對MODEM初始化

發(fā)出一些命令來設(shè)置參數(shù)，其中S0=n(n>=1)自動應(yīng)答.n為響鈴次數(shù);E0/E1關(guān)閉/打開命令字符回應(yīng);Q0/Q1設(shè)置MODEM返回/不返回結(jié)果碼;M0/M1關(guān)閉/打開MODEM揚聲器;Ln(n>=0)設(shè)置MODEM揚聲器音量;P/T設(shè)置MODEM脈沖/音頻撥號;程序如下：

If MSComm1.PortOpen Then

Do While Not MSComm1.CTSHolding: Loop

TXD= "ATS0=1E1Q0M1L2T" + Chr(13)

MSComm1.Output = TXD

End If

三.進行撥號

向MODEM發(fā)出ATD命令，程序如下：

MSComm1.Output="ATD" & "05925998499"+Chr(13)

當(dāng)發(fā)送“ATD”+ 電話號碼 + Chr(13)時，MODEM就開始撥號，撥號需要一定的時間，在撥號的過程中可以不斷讀取MODEM的CD指示燈的狀態(tài)，當(dāng)電話撥通后CD指示燈會點亮。并返回“CONNECT + 波特率”的信息。如果MODEM向PC的回應(yīng)字符串中含有"Connect"或CDHolding屬性值變?yōu)門rue(檢測出載波)，則表示已與遠方MODEM連機了，此時可以傳輸數(shù)據(jù)。

當(dāng)電話撥通后，MODEM不再接收AT指令，要使其回到命令狀態(tài)，則必須發(fā)送“+++”信息，使MODEM回到命令狀態(tài)，然后發(fā)送“ATH”+ Chr(13)則可以掛斷電話，程序如下：

MSComm1.Output="ATH" +Chr(13)

4.2 通訊程序設(shè)計

一.永宏P(guān)LC通訊協(xié)議

⑴.開頭字符(STX)：ASCI I碼之開始字符STX。

⑵.從站號碼：為兩位數(shù)之16進制數(shù)值。

⑶.命令號碼：為兩位數(shù)之16 進制數(shù)值，為由主系統(tǒng)要求從系統(tǒng)所執(zhí)行之動作類別。

⑷.本文資料：本文數(shù)據(jù)可為0(無本文數(shù)據(jù))～500個ASCII字符。

⑸.偵誤值(CHECKSUM)： 偵誤值系將前述～將各ASCII字符之16進制數(shù)碼值(8位長度)從頭至尾依序相加，但不考慮進位，因此最終結(jié)果為偵誤值。

⑹.結(jié)尾字符(ETX)：ASCI I碼之結(jié)尾字符ETX之16進制數(shù)碼為03H。。

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

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

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

“STX+ 01(站號)+46(命令碼)+01(連續(xù)數(shù)據(jù)個數(shù))+R00001(數(shù)據(jù)開始地址)+LRC(偵誤值)+ETX”

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

“STX+ 01(站號)+47(命令碼)+01(連續(xù)數(shù)據(jù)個數(shù))+R00000(數(shù)據(jù)開始地址)+XXXX(寫入的數(shù)據(jù)資料，16進制)+LRC(偵誤值)+ETX”

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

Private Sub Timer1_Timer()

MSComm1.Output= Chr(2)+ “014601R00001”+ Lrc(“014601R00001”)+Chr(3)

Delay (10) //延時

CV = Val("&H" + Mid(MSComm1.Input, 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進制轉(zhuǎn)換16進制

MSComm1.Output=Chr(2)+ “014701R00000”+ PV + +Lrc(“014701R00000” & PV)+Chr(3)

End Sub

三.偵誤值(CHECKSUM)計算

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

Private Function Lrc(Dats) As String

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