編寫(xiě)PC的通信程序可采用匯編語(yǔ)言編寫(xiě)，或采用各種高級(jí)語(yǔ)言編寫(xiě)，或采用工控組態(tài)軟件，或直接采用PLC廠家的通信軟件（如三菱的MELSE MEDOC等）
下面利用VB6.0以一個(gè)簡(jiǎn)單的例子來(lái)說(shuō)明編寫(xiě)通信程序的要點(diǎn)。假設(shè)PC要求從PLC中讀入從D123開(kāi)始的4個(gè)字節(jié)的數(shù)據(jù)（D123、D124）
命令報(bào)文中10F6H為D123的地址，04H表示要讀入4個(gè)字節(jié)的數(shù)據(jù)。校驗(yàn)和SUM＝30H＋31H＋30H＋46H＋36H＋30H＋34H＋03 H＝174H，溢出部分不計(jì)，故SUMH=7，SUAIL=4，相應(yīng)的ASCⅡ碼為“37H”，“34H”。應(yīng)答報(bào)文中4個(gè)字節(jié)的十六進(jìn)制數(shù)，其相應(yīng)的ASCⅡ碼為8個(gè)字節(jié)，故應(yīng)答報(bào)文長(zhǎng)度為12個(gè)字節(jié)。
根據(jù)PC與FX系列PLC的傳輸應(yīng)答過(guò)程，利用VB的MSComm控件可以編寫(xiě)如下通信程序?qū)崿F(xiàn)PC與FX系列PLC之間的串行通信，以完成數(shù)據(jù)的讀取。MSComm控件可以采用輪詢或事件驅(qū)動(dòng)的方法從端口獲取數(shù)據(jù)。在這個(gè)例子中使用了輪詢方法。
1）通信口初始化
Private Sub Initialize（）
MSComm1．CommPort =1
MSComm1．Settings = “9600,E,7,1”
MSComm1．InBufferSize = 1024
MSComml．OutBuffersize = 1024
MSComm1．bbbbbLen = 0
MSComml．bbbbbMode = combbbbbText
MSComm1．Handshaking = comNone
MSComm1．PortOpen = True
End Sub
2）請(qǐng)求通信與確認(rèn)
Private Function MakeHandshaking（）As Boolean
Dim InPackage As bbbbbb
MSComml．OutBufferCount = 0
MSComml．InBufferCount = 0
MSComml．OutPut = Chr（＆H5）
Do
DoEvents
Loop Until MSComml．InBufferCount = 1
InPackage = MSComml．bbbbb
If InPackage = Chr（＆H6） Then
MakeHandShaking = True
Else
MakeHandshaking = False
End If
End Function
3）發(fā)送命令報(bào)文
Private Sub SendFrame ()
Dim Outbbbbbb As bbbbbb
MSComml．OutBufferCount = 0
MSComml．InBufferCount = 0
Outstrin = Chr（＆H2）＋″on″＋″10F604″＋Chr（＆H3）＋″74″
MSComml．Output = Outbbbbbb
End Sub
4）讀取應(yīng)答報(bào)文
Private Sub ReceiveFrame（）
Dim Inbbbbbb As bbbbbb
Do
DoEvents
Loop Until MSComml．InBufferCount = 12
Inbbbbbb = MSComml．Inpult
End Sub
：鞏經(jīng)理
：13915946763
：南京塞姆泵業(yè)有限公司
|
|
|
|
|
|
|
|