概述：本文介紹了VB 進(jìn)行串口通信的各種基本方式和三菱可編程控制器之間的通信的程序設(shè)計，重點介紹了利用MSCOMM.OCX進(jìn)行串行通信的設(shè)計方法。 關(guān)鍵詞：串行通信， PLC， Visual Basic 6.0 Abstract: Describes all kinds of basic serial port communication methods using Visual Basic 6.0 and design of free port communication program of MITSUBISH PLC, furthermore set focus on the designing method of serial port communication through dynamic linked library in Visual Basic 6.0 Key Words: Serial port communication, PLC, Visual Basic 6.0 一、引言 在工業(yè)生產(chǎn)中，人們常常面臨著數(shù)據(jù)采集與管理。作為工廠自動化的三大支柱可編程控制器PLC（Programmable Logic Controller），由于其安全可靠，廣泛的用于數(shù)據(jù)采集與控制。生產(chǎn)過程中，要監(jiān)視PLC內(nèi)部的數(shù)據(jù)與運(yùn)行狀況，選用市場上的人機(jī)界面或組態(tài)軟件，雖然功能豐富，但大都價格昂貴，在一些中小規(guī)模的生產(chǎn)場合，人們希望能自己用高級語言開發(fā)一個簡易實用的通信程序。微軟公司推出的Visual Basic 6.0，開發(fā)串行通信程序時，有兩種方法，一種是用Windows API函數(shù)，另一種是用VB支持的通信控件MSCOMM.OCX。利用Windows API函數(shù)是通過調(diào)用讀寫等函數(shù)來操作串口。兩種比較，使用MSCOMM.OCX控件編程方便，具有更完善的發(fā)送和接收功能。這里采用了MSCOMM.OCX控件。 本文根據(jù)杭州某包裝材料公司原料配料控制系統(tǒng)為背景，簡述實現(xiàn)計算機(jī)與三菱FX系列PLC通信的實現(xiàn)過程。 二、硬件與選型 日本三菱公司是國際著名的工廠自動化設(shè)備制造商，工業(yè)可編程控制器在國內(nèi)市場占有率一直保持前列。項目選用三菱FX2N-64MR型PLC，SC-09電纜作為計算機(jī)與PLC通信的連線。連接電纜的9針端連接在計算機(jī)串口上，另一端連接在PLC的RS-422編程口。系統(tǒng)框圖如圖一所示： 三、軟件編程 軟件設(shè)計主要包括PLC梯形圖設(shè)計和計算機(jī)VB程序、數(shù)據(jù)庫設(shè)計。計算機(jī)操作系統(tǒng)為Windows98，編程語言用Visual Basic 6.0，數(shù)據(jù)庫選用ACESS97，梯形圖程序在三菱PLC編程軟件GPPWIN 軟件環(huán)境設(shè)計。上位機(jī)軟件實現(xiàn)計算機(jī)對PLC內(nèi)部數(shù)據(jù)讀去、寫入?yún)?shù)和保存數(shù)據(jù)到數(shù)據(jù)庫。 三菱FX2N型PLC編程口通信協(xié)議如下： 數(shù)據(jù)讀取子程序： Public Function GetData(ByVal StartAddress As String, ByVal GetBytes As Integer, ByVal Hex_Bytes As String) As String MSComm1.InputLen = GetBytes * 2 + 4 MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk(CMD_Read + StartAddress + Hex_Bytes + ETX) GetData = MSComm1.Input MSComm1.InBufferCount = 0 MSComm1.InputLen = 0 End Function 如需讀取數(shù)據(jù)，通過調(diào)用GetData子程序。 參數(shù)設(shè)置程序可參考讀取子程序，只是改變命令而已。 ACESS97數(shù)據(jù)庫中包含三個表單，包括參數(shù)表、歷史記錄表、報警記錄表。 通過如下子程序?qū)憟缶涗浀綌?shù)據(jù)庫： Private Sub SaveData() Dim i As Integer Dim valid As Boolean On Error Resume Next valid = True For i = 0 To 5 If FixWeight(i) <= 0 Then valid = False Next i Data1.Recordset.AddNew Data1.Recordset.Fields("ddate") = CDate(Format(Str(OnDay) + "/" + Str(OnMonth) + "/" + Str(OnYear), "yy/mm/dd")) Data1.Recordset.Fields("dtime") = CDate(Format(Str(OnHour) + ":" + Str(OnMinute) + ":" + Str(OnSecond), "hh:mm:ss")) Data1.Recordset.Fields("ddate") = DateSerial(OnYear, OnMonth, OnDay) Data1.Recordset.Fields("dtime") = TimeSerial(OnHour, OnMinute, OnSecond) Data1.Recordset.Fields("systime") = Time Data1.Recordset.Fields("get_sl") = LF(0) Data1.Recordset.Fields("get_xl") = LF(1) Data1.Recordset.Fields("get_fjs") = LF(2) Data1.Recordset.Fields("get_cs") = LF(3) Data1.Recordset.Fields("get_sys") = LF(4) Data1.Recordset.Fields("get_cj") = LF(5) On Error Resume Next Data1.Recordset.Update ‘更新數(shù)據(jù)庫 Data1.Recordset.MovePrevious End Sub 保存參數(shù)子程序只是對數(shù)據(jù)庫操作，程序結(jié)構(gòu)可參考以上子程序。 上位機(jī)與PLC通信質(zhì)量的好壞，對系統(tǒng)的安全可靠運(yùn)行影響極大，因此，編寫程序時，除了在兩者之間的通信協(xié)議上保持絕對一致和采取相應(yīng)的容錯技術(shù)外，還要考慮系統(tǒng)的整體容錯技術(shù)，防止系統(tǒng)的不正常。 四、結(jié)束語 本設(shè)計中充分利用計算機(jī)和PLC的資源，在幾乎不增加設(shè)備開支的情況下實現(xiàn)上位機(jī)與PLC的通信和監(jiān)控。 參考文獻(xiàn) 1、夏云 ·Windows環(huán)境下串行數(shù)據(jù)通信程序設(shè)計·PC應(yīng)用，1995； 2、舒繼武·Visual Basic 中通信及應(yīng)用·微型機(jī)與應(yīng)用，1996；