利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信
編寫(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),其傳輸應(yīng)答過(guò)程及報(bào)文如圖7-16所示。
圖7-16 傳輸應(yīng)答過(guò)程及命令報(bào)文
命令報(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
本文標(biāo)簽:利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信
* 由于無(wú)法獲得聯(lián)系方式等原因,本網(wǎng)使用的文字及圖片的作品報(bào)酬未能及時(shí)支付,在此深表歉意,請(qǐng)《利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信》相關(guān)權(quán)利人與機(jī)電之家網(wǎng)取得聯(lián)系。
關(guān)于“利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信”的更多資訊
個(gè)人求購(gòu)










