【導(dǎo)讀】隨著工業(yè)自動(dòng)化程度的提高，對(duì)PLC的應(yīng)用提出了更高的要求：更快的處。提供圖形顯示界面，同時(shí)對(duì)下拉機(jī)進(jìn)行監(jiān)控。所以通常采用計(jì)算機(jī)PC與PLC組。成一個(gè)完整的監(jiān)控系統(tǒng)。斷的智能化，可以同主機(jī)之間通過(guò)一定的通信方式結(jié)合成一個(gè)有機(jī)的整體。之間的通訊功能實(shí)現(xiàn)遠(yuǎn)程控制，采用RS485通信接口，使用MODBUS協(xié)議實(shí)現(xiàn)，聯(lián)接的復(fù)雜性，避免現(xiàn)場(chǎng)可能的各種電磁干擾對(duì)控制設(shè)備的影響。頻器對(duì)數(shù)據(jù)處理，故障報(bào)警等方面的功能。

　　

【正文】 入數(shù)字。代碼如下： Private Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii vbKeyBack And KeyAscii 48 Or KeyAscii 57 And KeyAscii 13 Then KeyAscii = 0 End If End Sub 指示燈顯示 在對(duì) I/O 進(jìn)行顯示的時(shí)候需要用到 Shape 這個(gè)控件，根據(jù)數(shù)據(jù)要求，通過(guò)代碼來(lái)改變 Shape 的顏色，在這過(guò) 程為了節(jié)省程序代碼而用了 For?? Next 的敘述。其中一部分代碼如下： Private Sub Timer3_Timer() 39。對(duì) Y0~Y16 進(jìn)行顯示 Yj0 = 1 For Yi0 = 0 To 15 Yh0 = Mid(input_Y0, Yj0, 1) If Yh0 = 1 Then (15 Yi0).FillColor = QBColor(10) Else (15 Yi0).FillColor = QBColor(15) End If Yj0 = Yj0 + 1 Next Yi0 End Sub 子程序 在讀取 PLC 數(shù)據(jù)后， PLC 返回的數(shù)據(jù)區(qū)中是以 4 位 十六進(jìn)制表示，當(dāng)需要二進(jìn)制或者十進(jìn)制數(shù)據(jù)時(shí) 就需要進(jìn)行進(jìn)制間的轉(zhuǎn)換 1） 十六進(jìn)制轉(zhuǎn) 十 進(jìn)制 Function hex_doc(hex_text As String) As Long hex_doc = (amp。h + hex_text) * 1 End Function 2） 十六進(jìn)制轉(zhuǎn)二進(jìn)制 32 Function hex_bit(hex4_text As String) As String Dim bit_num As Byte Dim bit_text(15) As String * 1 Dim mod_doc As Long mod_doc = hex_doc(hex4_text) For bit_num = 0 To 15 bit_text(15 bit_num) = IIf(mod_doc / 2 ^ (15 bit_num) 1, 0, 1) mod_doc = mod_doc Mod 2 ^ (15 bit_num) hex_bit = hex_bit + bit_text(15 bit_num) Next bit_num End Function 3） 二進(jìn)制轉(zhuǎn)十六進(jìn)制 Function bit16_doc(bit16_doc_txt As String) As Long Dim i As Byte bit16_doc = 0 Select Case Len(bit16_doc_txt) Case 1: bit16_doc_txt = 000000000000000 + bit16_doc_txt Case 2: bit16_doc_txt = 00000000000000 + bit16_doc_txt Case 3: bit16_doc_txt = 0000000000000 + bit16_doc_txt Case 4: bit16_doc_txt = 000000000000 + bit16_doc_txt Case 5: bit16_doc_txt = 00000000000 + bit16_doc_txt Case 6: bit16_doc_txt = 0000000000 + bit16_doc_txt Case 7: bit16_doc_txt = 000000000 + bit16_doc_txt Case 8: bit16_doc_txt = 00000000 + bit16_doc_txt Case 9: bit16_doc_txt = 0000000 + bit16_doc_txt Case 10: bit16_doc_txt = 000000 + bit16_doc_txt Case 11: bit16_doc_txt = 00000 + bit16_doc_txt Case 12: bit16_doc_txt = 0000 + bit16_doc_txt Case 13: bit16_doc_txt = 000 + bit16_doc_txt Case 14: bit16_doc_txt = 00 + bit16_doc_txt Case 15: bit16_doc_txt = + bit16_doc_txt Case 16: bit16_doc_txt = bit16_doc_txt 33 End Select For i = 0 To 15 bit16_doc = bit16_doc + (Val(Mid(bit16_doc_txt, 16 i, 1))) * 2 ^ i Next i End Function 4） 和校驗(yàn) 在通信格式中的最后一個(gè)字符區(qū)是和校驗(yàn)，這是 PLC 或者計(jì)算機(jī)判斷接收的數(shù)據(jù)的主要依據(jù)，如果校驗(yàn)代碼是固定的就可以人工算出來(lái)后直接輸入即可，但在進(jìn)行 D 元件寫入的時(shí)候，數(shù)據(jù)是不斷變化的，這樣一來(lái)，和校驗(yàn)就不是固定的了，這就需要做一個(gè)和校驗(yàn)的子 程序 。 Public Function chksum(chksum_text As String) As String Dim text_len As Byte Dim i As Byte Dim sum_doc As Long Dim sum_hex As String text_len = Len(chksum_text) For i = 1 To text_len sum_doc = Asc(Mid(chksum_text, i, 1)) + sum_doc Next i sum_hex = Hex(sum_doc) chksum = Right(sum_hex, 2) End Function 5） 增加空格及刪除空格 在顯示二進(jìn)制的時(shí)候，因?yàn)橛?16 位，這樣看起來(lái)很難找到所需 要的信息，那么按照 第 4 位二進(jìn)制的對(duì)應(yīng)一位十六進(jìn)制，這就每隔四位就一個(gè)空格，這樣一來(lái)尋找所需要的信息也方便。 Public Function Space_4(Space_text As String) As String Dim n As Byte For n = 1 To Len(Close_Space_4(Space_text)) If n Mod 4 = 0 Then Space_4 = Space_4 + Mid(Close_Space_4(Space_text), Len(Close_Space_4(Space_text)) n + 1, 1) + 34 Else Space_4 = Space_4 + Mid(Close_Space_4(Space_text), Len(Close_Space_4(Space_text)) n + 1, 1) End If Next n Space_4 = StrReverse(Space_4) Space_4 = LTrim(Space_4) End Function 在對(duì)每四個(gè)位進(jìn)行一個(gè)空格后，那么要再把轉(zhuǎn)換別的進(jìn)制的時(shí)候就會(huì)出錯(cuò)了，因?yàn)樽址锩嬗幸粋€(gè)空格字符，這樣在進(jìn)行進(jìn)制轉(zhuǎn)換之前要把這個(gè)空格刪除掉。 Public Function Close_Space_4(Close_Space_text As String) As String Dim Close_Space_text_b As String For i = 1 To Len(Close_Space_text) If Mid(Close_Space_text, i, 1) Then Close_Space_text_b = Close_Space_text_b amp。 Mid(Close_Space_text, i, 1) End If Next i Close_Space_4 = Close_Space_text_b End Function 35 總 結(jié) 我們這次選擇的畢業(yè)設(shè)計(jì)的題目是“基于 Modbus 總線控制的上位通信”， 之所以選擇這個(gè)題目，是因?yàn)槲覀冏约焊杏X(jué)它具有挑戰(zhàn)性，更是對(duì)自己能力的提高有很大的幫助。 這次畢業(yè)設(shè)計(jì)的任務(wù)主要是為了實(shí)現(xiàn)計(jì)算機(jī)與 PLC、 PLC 與變頻器兩個(gè)方面的通信，設(shè)計(jì)的過(guò)程中使用了 RS422 協(xié) 議和 Modbus 協(xié)議通信格式，整個(gè)設(shè)計(jì)過(guò)程表現(xiàn)出了基于 Modbus 總線控制的上位機(jī)通信在工業(yè)控制系統(tǒng)運(yùn)用中的實(shí)用價(jià)值性和優(yōu)越性。在現(xiàn)時(shí)多元化的自動(dòng)控制系統(tǒng)中，基于 modbus 的上位機(jī)控制系統(tǒng)相對(duì)于組態(tài)網(wǎng)等一些控制系統(tǒng)而言，也許有著它一些不足之處，但是，對(duì)于成本計(jì)算方面和功能實(shí)現(xiàn)方面，它也擁有著自身的優(yōu)勢(shì)。正是，監(jiān)控性強(qiáng)、成本低等優(yōu)點(diǎn)促使它在工業(yè)控制的運(yùn)用中占有一席之地，使得 PLC 的運(yùn)用更加多元化，也加快了工業(yè)的生產(chǎn)效率。 這次的設(shè)計(jì)斷斷續(xù)續(xù)的花費(fèi)了我們很長(zhǎng)時(shí)間，在整個(gè)畢業(yè)論文的設(shè)計(jì)過(guò)程中我們學(xué)到了做任何事 情所要有正確的態(tài)度和良好的心態(tài)，首先我們明白了做學(xué)問(wèn)要一絲不茍，對(duì)于出現(xiàn)的任何問(wèn)題和偏差都不要輕視，要通過(guò)正確的途徑去解決，在做事情的過(guò)程中要有耐心和毅力，不要一遇到困難就打退堂鼓，只要堅(jiān)持下去就可以找到思路去解決問(wèn)題的。在工作中要學(xué)會(huì)與人合作的態(tài)度，認(rèn)真聽(tīng)取別人的意見(jiàn)，這樣做起事情來(lái)就可以事倍功半。 此次論文的完成既為大學(xué)三年劃上了一個(gè)完美的句號(hào)，也為將來(lái)的人生之路做好了一個(gè)很好的鋪墊。 36 參考文獻(xiàn) [1] 郭昌榮 FX 系列 PLC 的鏈接通信及 VB 圖形監(jiān)視 北京航空航天大學(xué)出版社， [2] 廖常初 FX 系列 PLC 編程及應(yīng)用 機(jī)械工業(yè)出版社 [3] 三菱 FRD700 系列變頻器 應(yīng)用篇 中國(guó)工控網(wǎng) [4] Modbus 通信協(xié)議中文版 [5] 劉彬彬、安劍 Visual Basic 從入門到精通（第 2 版） 清華大學(xué)出版社 37 致 謝