工控網(wǎng)首頁
>

應(yīng)用設(shè)計(jì)

>

利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信

利用VB的MSComm控件編程實(shí)現(xiàn)PC與三菱PLC FX系列通信

2015/1/15 16:35:40

       

    編寫PC的通信程序可采用匯編語言編寫,或采用各種高級語言編寫,或采用工控組態(tài)軟件,或直接采用PLC廠家的通信軟件(如三菱的MELSE MEDOC等)

   下面利用VB6.0以一個(gè)簡單的例子來說明編寫通信程序的要點(diǎn)。假設(shè)PC要求從PLC中讀入從D123開始的4個(gè)字節(jié)的數(shù)據(jù)(D123、D124),其傳輸應(yīng)答過程及報(bào)文如圖7-16所示。

 

圖7-16  傳輸應(yīng)答過程及命令報(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)文長度為12個(gè)字節(jié)。

    根據(jù)PC與FX系列PLC的傳輸應(yīng)答過程,利用VB的MSComm控件可以編寫如下通信程序?qū)崿F(xiàn)PC與FX系列PLC之間的串行通信,以完成數(shù)據(jù)的讀取。MSComm控件可以采用輪詢或事件驅(qū)動的方法從端口獲取數(shù)據(jù)。在這個(gè)例子中使用了輪詢方法。

   1)通信口初始化

    Private Sub Initialize()

    MSComm1.CommPort =1

    MSComm1.Settings = “9600,E,7,1”

    MSComm1.InBufferSize = 1024

    MSComml.OutBuffersize = 1024

    MSComm1.InputLen = 0

    MSComml.InputMode = comInputText

    MSComm1.Handshaking = comNone

    MSComm1.PortOpen = True

    End Sub

    2)請求通信與確認(rèn)

    Private Function MakeHandshaking()As Boolean

    Dim InPackage As String

    MSComml.OutBufferCount = 0

MSComml.InBufferCount = 0

MSComml.OutPut = Chr(&H5)

Do

DoEvents

Loop Until MSComml.InBufferCount = 1

InPackage = MSComml.Input

If InPackage = Chr(&H6) Then

MakeHandShaking = True

Else

MakeHandshaking = False

End If

End Function

3)發(fā)送命令報(bào)文

Private Sub SendFrame ()

Dim Outstring As String

MSComml.OutBufferCount = 0

MSComml.InBufferCount = 0

Outstrin = Chr(&H2)+″on″+″10F604″+Chr(&H3)+″74″

MSComml.Output = Outstring

End Sub

4)讀取應(yīng)答報(bào)文

Private Sub ReceiveFrame()

Dim Instring As String

Do

DoEvents

Loop Until MSComml.InBufferCount = 12

InString = MSComml.Inpult

End Sub

投訴建議

提交

查看更多評論
其他資訊

查看更多

超越傳統(tǒng)直覺,MATLAB/Simulink助力重型機(jī)械的智能化轉(zhuǎn)型

新大陸自動識別精彩亮相2024華南國際工業(yè)博覽會

派拓網(wǎng)絡(luò)被Forrester評為XDR領(lǐng)域領(lǐng)導(dǎo)者

智能工控,存儲強(qiáng)基 | ??低晭砭手黝}演講

展會|Lubeworks路博流體供料系統(tǒng)精彩亮相AMTS展會