硬件連接與系統配置

　　控機)與a-b plc的連接方式有兩種：一種是利用廠家提供的dh+485數據線將上位機通訊卡與a-b plc cpu模塊的dh+接口直接連接;一種是通過自制的r232數據線將上位機com口與a-b plc cpu模塊的rs232接口直接連接。

　　通訊卡連接方式

　　將allen bradley公司出品的1784-pktx通訊卡安裝到上位機上。安裝方法如下：

　　請確認已將其中一塊通訊卡上的地址跳線帽(jp3)拔掉。參見圖1。

　　(1)打開工控機機箱，將1784-pktx通訊卡插入pci插槽內，固定螺絲，蓋好蓋板;

　　(2)啟動工控機，系統檢測到硬件。如果用戶已經安裝rslogix500軟件，則系統將自動檢測到驅動。如果用戶尚未安裝rslogix500軟件，可先安裝該軟件，軟件安裝完畢后，系統將自動為通訊卡安裝驅動程序;

　　(3)用dh+485數據線將上位機(工控機)與plc連接;

　　(4)使用rslinx連接a-b plc的通訊網絡，運行rslinx

　　classic軟件。點擊菜單中“通信”選項，在下拉列表中選擇“配置驅動程序”：(參見圖2)。

　　點擊該選項后，彈出如圖3所示頁面，在下拉列表中選擇1784-kt/ktx(d)/pktx(d)/pcmk for dh+/dh485devices后，單擊【新增…】按鈕：此時彈出確認框，如圖4所示。

　　點擊“確定”后，彈出如下頁面，如圖5所示，在“值”下拉列表中選擇pktx(d)選項：

　　點擊“確定”后，rslinx配置完成。

　　r232連接方式

　　(1)按照標準電纜1747

　　cp3的內部接線圖(如圖6)自制com口通信電纜也是能夠實現上位機與plc的通信的，此種電纜的優點：造價低廉、使用方便;缺點：不能通過這種數據線組成plc網絡，實現多plc資源共享。

　　(2)使用rslinx連接a-b plc的通訊網絡

　　配置方式與前相同只是在進入config dirvier菜單后彈出如圖7所示頁面。

　　在下拉列表中選擇rs-232 df1 devices選項，然后點擊“新增”按鈕會出現如下對話框，如圖8所示。

　　點擊“確定”，出現如下對話框，如圖9所示。

　　點擊“自動配置”按鈕，系統開始對plc進行自動配置。以上配置完成后點擊“確定”按鈕并關閉對話框(此時程序回最小化并沒有關閉)。

　　進行dde服務的配置

　　在菜單欄中打開“dde/opc”菜單并選擇“主題組態”對話框，如圖10所示。

　　從圖左側我們發現了要找的plc并在右側顯示了“主題列表”中看到程序名。點開“數據采集”欄在“處理器類型”下拉菜單中選擇“slc-503+”項，這一步很重要只有通過它才能正確的加載驅動程序，為通信打下基礎，如圖11所示。

　　點開“高級通信”欄在“通信驅動程序”中選擇“ab df1-1 dh485 工作站”項，如圖12所示。

　　這樣在rslinx軟件中對a-b plc的通信配置就完成了，建立與plc數據聯結既可以完成與plc的數據交換。

　　利用vb開發dde客戶端

　　vb作為microsoft公司軟件產品的重要一員，理所當然的對windows操作系統下的dde技術給予支持。vb為一些控件提供了用于dde動態數據交換的linktopic、linkitem、linktimeout、linkmode等屬性，以及linkrequest、linkpoke、linkexecute、linksend等方法。其中，linktopic、linkitem兩項屬性分別對應于dde通訊架構中的主題名和數據項名，linktimeout、linkmode分別表示dde客戶端與dde服務器的嘗試連接時間和連接模式(數據交換方式)，linkmode有manual、notify、automatic三種方式，而automatic方式最為常用，它主要用于和dde server建立“熱連接(hot link)”，即在dde服務器數據發生變化時主動發送數據給客戶端。linkrequest、linkpoke分別用于dde客戶端對dde服務器數據的讀寫操作。

　　在vb中實現與a-b plc的“熱連接”

　　在visual basi建立一個新工程，添加幾個label控件，并建立和rslinx的dde通訊連接，使其隨上一步所設置好的連接的a-b plc數據“b01主系統”數值的變化而變化。

　　其代碼如下：

　　private sub form_load()

　　label1.linktopic = “rslinx|” & “b01主系統”

　　label1.linkitem = “s:42”

　　label1.linkmode = 1

　　label1.linkrequest

　　label3.linktopic = “rslinx|” & “b01主系統”

　　label3.linkitem = “s:41”

　　label3.linkmode = 1

　　label3.linkrequest

　　label5.linktopic = “rslinx|” & “b01主系統”

　　label5.linkitem = “s:40”

　　label5.linkmode = 1

　　label5.linkrequest

　　label10.linktopic = “rslinx|” & “b01主系統”

　　label10.linkitem = “n60:11”

　　label10.linkmode = 1

　　label10.linkrequest

　　label12.linktopic = “rslinx|” & “b01主系統”

　　label12.linkitem = “n60:130”

　　label12.linkmode = 1

　　label12.linkrequest

　　label14.linktopic = “rslinx|” & “b01主系統”

　　label14.linkitem = “n60:131”

　　label14.linkmode = 1

　　label14.linkrequest

　　end sub

　　其中，代碼中的“rslinx”和“b01主系統”分別表示應用程序名和主題名，“linkmode”值為1表示連接方式為automatic(即“熱連接”)方式。這樣當該應用代碼被執行時，label的值便隨a-b plc內存值的變化而變化。具體執行如圖13所示。

　　在excel中實現通過dde方式訪問a-b plc

　　首先必須先安裝rs linx創建dde topic.

　　比如我們定義一個topic名叫“b01主系統”，打開excel，創建宏命令，編寫vba腳本如何讀取和寫入數據，從而完成與plc的數據交換。

　　sub start()

　　dim lngrow as long

　　dim varcycle as variant

　　dim varlogging as variant

　　dim varresults as variant

　　on error goto error

　　rsichan = ddeinitiate(“rslinx”， “ b01主系統”)

　　varlogging = dderequest(rsichan， “n60/163”)

　　varcycle = dderequest(rsichan， “n60/161”)

　　l/?

　　if varcycle(1) = “1” and varlogging(1) = “1” then

　　lngrow = 3

　　if range(“indata!a3”).value 》 3 then

　　lngrow = range(“indata!a3”).value

　　end if

　　for lngrow = lngrow to 65500

　　if cells(lngrow， 1) = “” then exit for

　　range(“indata!a3”).value=lngrow + 1

　　next

　　rsichan = ddeinitiate(“rslinx”， “n1”)

　　f810data = dderequest(rsichan， “f8:10”)

　　f811data = dderequest(rsichan， “f8:11”)

　　f812data = dderequest(rsichan， “f8:12”)

　　f816data = dderequest(rsichan， “f8:16”)

　　f818data = dderequest(rsichan， “f8:18”)

　　f817data = dderequest(rsichan， “f8:17”)

　　f820data = dderequest(rsichan， “f8:20”)

　　f821data = dderequest(rsichan， “f8:21”)

　　f822data = dderequest(rsichan， “f8:22”)

　　f823data = dderequest(rsichan， “f8:23”)

　　f824data = dderequest(rsichan， “f8:24”)

　　varresults = dderequest(rsichan， “f8:25”)

　　ddeterminate (rsichan)

　　cells(lngrow， 1).value = f810data

　　cells(lngrow， 2).value = f811data

　　cells(lngrow， 3).value = f812data

　　cells(lngrow， 4).value = f816data

　　cells(lngrow， 5).value = f818data

　　cells(lngrow， 6).value = f817data

　　cells(lngrow， 7).value = f820data

　　cells(lngrow， 8).value = f821data

　　cells(lngrow， 9).value = f822data

　　cells(lngrow， 10).value = f823data

　　cells(lngrow， 11).value = f824data

　　cells(lngrow， 13).value = now()

　　end if

　　end sub

　　在vb中實現調用excel后臺數據庫

　　因為前期已經實現了vb與plc的通訊可以實時看到數據的狀態了，隨后又實現了excel與plc的通訊也可以實時看到數據的狀態，但這兩種方法都有其局限性：前者可看、可控但因無數據庫無法實現數據的存儲，后者可看、可查但因無可執行程序無法實現可控。只有二者結合在一起才能揚長避短充分發揮功效。于是在vb中實現調用excel后臺數據庫這種方式就應運而生了，這種方式即充分發揮了vb可控的一面又實現了excel對數據的強大處理能力可以說上位機真正實現了對plc可看、可查、可控的功能。vb與excel的連接方法如下：

　　(1)在工程中引用microsoft excel類型庫：從“工程”菜單中選擇“引用”欄;選擇microsoft excel 9.0

　　object library(excel2000)，然后選擇“確定”。表示在工程中要引用excel類型庫。

　　(2)在通用對象的聲明過程中定義excel對象：

　　dim xlapp as excel.application

　　dim xlbook as excel.workbook

　　dim xlsheet as excel.worksheet

　　(3)在程序中操作excel表常用命令：

　　set xlapp = createobject(“excel.application”) `創建excel對象

　　set xlbook = xlapp.workbooks.open(“文件名”) `打開已經存在的excel工件簿文件

　　xlapp.visible = true `設置excel對象可見(或不可見)

　　set xlsheet = xlbook.worksheets(“表名”) `設置活動工作表

　　xlsheet.cells(row， col) =值 `給單元格(row，col)賦值

　　xlsheet.printout `打印工作表

　　xlbook.close (true) `關閉工作簿

　　xlapp.quit `結束excel對象

　　set xlapp = nothing `釋放xlapp對象

　　xlbook.runautomacros (xlautoopen) `運行excel啟動宏

　　xlbook.runautomacros (xlautoclose) `運行excel關閉宏

　　利用以上命令可以很輕松的實現vb與excel的連接功能在此不再贅述。

　　結束語

　　vb因其功能強大、操作簡潔近幾年在諸多領域得到了廣泛的應用，尤其因其對dde技術的完美支持更凸顯出在自動控制方面的優勢。通過它我們能很方便的實現上位機與plc的數據通訊，更能與數據庫進行完美對接，真正實現了上控機對dx發射機可看、可查、可控。希望通過此文對廣大一線工作人員有所幫助。