戀夜直播app官方正版下载_戀夜直播高品质美女在线视频互动社区_戀夜直播官方版

    4.2 VB與PLC通信的實現(xiàn)

　　以下舉例說明現(xiàn)場設(shè)備與PLC通信的實現(xiàn)。

　　1）控制要求：控制PLC的起動、停止，并顯示運行狀態(tài)（綠色為運行，紅色為停止）；能夠用交替型按鈕控制Y0，Y1，并用指示燈顯示Y0，Y1狀態(tài)（綠色為運行，紅色為停止）；能夠?qū)256，D512兩個寄存器進行數(shù)值寫入的操作。

　　2）實現(xiàn)思路：PLC起動停止的標志位為M1072，查DVP協(xié)議，知道地址為H0C30，按功能碼01操作； 同樣Y0，Y1的地址分別為H0500，H0501。寫入FF00為ON，0000為OFF，按功能碼05操作；D256，D512地址分別為H1100，H1200，按功能碼06操作即可。

　　3）VB接口的設(shè)計如圖10所示。

　　圖10 監(jiān)控程序界面

　　用按鈕控制PLC的起動停止，Y0、Y1的ON/OFF及D256、D512寫完數(shù)據(jù)的發(fā)送；用Shape組件做指示燈，表示PLC的運行狀態(tài)和Y的狀態(tài)；用timer組件不停的讀取M1072的狀態(tài)，以判斷PLC的運行情況；用MScomm控件實現(xiàn)PC與PLC的通信。

　　4）編程實現(xiàn)的代碼構(gòu)成

　?。?） LRC算法校驗的實現(xiàn)

　　Public Function LRC（str As String） As String

　　c = 0

　　l = Len（str）

　　For c = c + 1 To l

　　c_data = Mid$（str， c， 2）

#p#分頁標題#e#　　d_lrc = d_lrc + Val（“&H” + c_data）

　　c = c + 1

　　Next c

　　If d_lrc 》 &HFF Then

　　d_lrc = d_lrc Mod &H100

　　End If

　　h_lrc = Hex（&HFF - d_lrc + 1）

　　If Len（h_lrc） 》 2 Then

　　h_lrc = Mid（h_lrc， Len（h_lrc） - 1， 2）

　　End If

　　LRC = h_lrc

　　End Function

　　（2） 運行的開始就判斷PLC的狀態(tài)并設(shè)置標志位

　　‘初次運行打開串口，并顯示PLC運行狀態(tài)

　　Private Sub Form_Load（）

　　Dim s1 As String

　　Dim s2 As String

　　Dim s22 As String

　　Dim s3 As String#p#分頁標題#e#

　　Dim s4 As String

　　MSComm1.PortOpen = True

　　s2 = “01010C300001”

　　s22 = LRC（s2）

　　s1 = “：” + s2 + s22 + Chr$（13） + Chr$（10）

　　MSComm1.Output = s1

　　s3 = MSComm1.Input

　　s4 = Mid$（s， 6， 8）

　　If s4 = “0C30FF00” Then

　　plc = 1 ’PLC為運行標志

　　Else

　　plc = 0 ‘PLC為停止標志

　　End If

　　End Sub

    （3） 下面一段為用指示燈表示PLC的運行狀態(tài)

　　Private Sub Timer5_Timer（）

　　Dim s1 As String

　　Dim s2 As String#p#分頁標題#e#

　　Dim s22

　　Dim s3 As String

　　Dim s4 As String

　　s2 = “01010C300001”

　　s22 = LRC（s2）

　　s1 = “：” + s2 + s22 + Chr$（13） + Chr$（10）

　　MSComm1.Output = s1

　　s3 = MSComm1.Input

　　s4 = Mid$（s3， 8， 2）

　　If s4 = “31” Then

　　plc = 1 ’PLC為運行標志

　　Else： If s4 = “30” Then plc = 0 ‘PLC為停止標志

　　End If

　　If plc = 1 Then

　　Label2.Caption = “PLC正在運行。。.。。.”

　　Shape1.FillColor = RGB（0， 255， 0） ’green

　　Else

　　Label2.Caption = “PLC已經(jīng)停止”#p#分頁標題#e#

　　Shape1.FillColor = RGB（255， 0， 0） ‘red

　　End If

　　End Sub

　　（4） PLC的起動與停止

　　’起動PLC

　　Private Sub start_Click（）

　　Dim strout As String

　　Timer5.Enabled = False

　　str = “00050C30FF00” ‘M1072 為PLC起動停止標志位。查地址表，M1072為OC30.FF00為置

　　ON，0000為置OFF。

　　’以上都是固定格式，要牢記。

　　LRCC = LRC（str） ‘計算 str的lrc校驗碼。

　　strout = “：” + str + LRCC + Chr$（13） + Chr$（10） ’欲傳送之數(shù)據(jù)。13為D，10為A

　　MSComm1.Output = strout

　　Timer5.Enabled = True

　　End Sub

　　‘停止PLC

#p#分頁標題#e#　　Private Sub stop_Click（）

　　Dim strout As String

　　Timer5.Enabled = False

　　str = “00050C300000”

　　LRCC = LRC（str）

　　strout = “：” + str + LRCC + Chr$（13） + Chr$（10）

　　MSComm1.Output = strout

　　Timer5.Enabled = True

　　End Sub

　　Y0、Y1的ON/OFF與PLC起動/停止的控制方式相同，指示燈的表示方式也相同。D256，D512數(shù)據(jù)寫入的操作類似，限于篇幅其它代碼就不再列出了。

5 結(jié)束語

　　VB語言易于編程使用，為與串行設(shè)備的通信提供了很大的方便。臺達PLC采用標準的目前廣為流行的MODBUS協(xié)議，為實現(xiàn)PLC與監(jiān)控計算機的通信提供了簡化的平臺。由于臺達所有的機電產(chǎn)品都支持MODBUS協(xié)議，所以，掌握了VB與PLC通信過程，也就等于掌握了PC與臺達所有機電產(chǎn)品的通信。