利用VB實現(xiàn)上位機與DX中波發(fā)射機通訊

前言dx系列中波發(fā)射機是由美國ｈaｒriｓ公司制造的全固態(tài)數(shù)字調(diào)幅發(fā)射機,由于其運行穩(wěn)定、各項指標好、整機效率高等優(yōu)點,在全國各臺站得以廣泛應(yīng)用。我臺自19９９年起開始使用dx—400發(fā)射機,在10年左右的使用與維護工作中我們曾對dx－400發(fā)射機進行了兩次自動化改造。第一次改造是用omｒonc２00hplc加外圍電路來實現(xiàn)對發(fā)射機和附屬設(shè)備進行采樣和控制的，但在實際的使用過程中我們發(fā)現(xiàn)這樣的控制系統(tǒng)有其致命的局限性。因為系統(tǒng)是plc加外圍電路實現(xiàn)的控制系統(tǒng)就決定了系統(tǒng)無法顯示機器內(nèi)部數(shù)據(jù)的實時狀態(tài)，無法與發(fā)射機內(nèi)部實現(xiàn)直接通信。因此只有實現(xiàn)了工控機與發(fā)射機的控制核心—-ｐｌｃ（可編程控制器）直接通信才能克服這一局限性，真正實現(xiàn)實時掌握機器內(nèi)部數(shù)據(jù)狀態(tài)和對發(fā)射機的直接控制。dx—400發(fā)射機控制單元使用的是a-bplc，這種ｐlｃ是roｃkｗeｌlauｔomatｉoｎ的專利產(chǎn)品,使得第三方的軟件不能很好地與ａ-bplc進行連接。在實際改造工作中我們找到了一種采用dde(動態(tài)數(shù)據(jù)交換技術(shù))技術(shù)與ａ-bｐlc進行數(shù)據(jù)交換的方法,能夠更好的解決這一瓶頸問題。dde技術(shù)的工作機制dde是動態(tài)數(shù)據(jù)交換技術(shù)的縮寫,是為在同一臺計算機或不同計算機上運行的程序提供動態(tài)數(shù)據(jù)交換的一種新技術(shù)，最早由mｉｃrｏsoft公司提出的。動態(tài)數(shù)據(jù)交換(dｄe）技術(shù)由于其具有實時性好、網(wǎng)絡(luò)通信連接實現(xiàn)方便等特點,在控制軟件與信息網(wǎng)絡(luò)集成中得到了廣泛應(yīng)用。動態(tài)數(shù)據(jù)交換基于widnｏwｓ消息機制,各應(yīng)用程序間通過傳遞消息進行對話交換信息。ｗindoｗsddｅ消息傳遞采用cｌｉｅｎt/server模式,客戶（clieｎｔ）是數(shù)據(jù)的請求和接受者,而服務(wù)器(servｅｒ）是數(shù)據(jù)的提供者，兩者之間通過請求、應(yīng)答、傳輸三個步驟來完成數(shù)據(jù)的傳送。ｄde協(xié)議使用服務(wù)（serｖiｃe）、主題（tｏｐic）和數(shù)據(jù)項（itｅm)三級命名來標識ｄde所傳遞的數(shù)據(jù)單元。一般情況下，服務(wù)（serｖｉcｅ）就是應(yīng)用程序的文件名,主題是對服務(wù)器有意義的信息單元。每次ｄde客戶與服務(wù)程序之間的對話都是先由客戶啟動的,所以在每次客戶啟動之前,ｄｄｅ服務(wù)器應(yīng)當首先投入運行。當客戶程序需要向服務(wù)器程序請求數(shù)據(jù)時,客戶程序發(fā)送一條wｍ—ddｅ—iｎｉteａｔe消息給當前運行的所有ｗidnoｗｓ應(yīng)用程序，這條消息不但包含了它所需要的服務(wù)器名(ｓerｖiｃe）和主題名(ｔoｐiｃ),而且指明了它所希望的數(shù)據(jù)類型,收到wm—ｄde-inｉtｅate消息的應(yīng)用程序通過判別服務(wù)器名和會話主題決定是否應(yīng)答，一旦dde服務(wù)器響應(yīng)了這條被傳播的消息,ｄde會話就開始了。ｄde的工作方式有冷連接(cｏｏlｌink）、溫連接（wａrmlink）和熱連接(ｈotlｉnｋ）等3種。在冷連接方式下,當ｓｅrveｒ中的數(shù)據(jù)發(fā)生變化后不主動通知client,但ｃlｉeｎt可以隨時從serveｒ讀寫數(shù)據(jù);在溫連接方式下，當seｒvｅr中的數(shù)據(jù)發(fā)生變化后馬上通知client，ｃｌient得到通知后將數(shù)據(jù)取回;在熱連接方式下,當sｅrveｒ中的數(shù)據(jù)發(fā)生變化后馬上通知上位機(工cｌｉent，同時將變化的數(shù)據(jù)直接送給cｌｉent。硬件連接與系統(tǒng)配置控機)與a-ｂpｌc的連接方式有兩種：一種是利用廠家提供的dh＋４85數(shù)據(jù)線將上位機通訊卡與a—bplccpｕ模塊的dh+接口直接連接；一種是通過自制的ｒ２3２數(shù)據(jù)線將上位機com口與a—bｐｌｃcpｕ模塊的rs２32接口直接連接。通訊卡連接方式將allｅnｂrａdley公司出品的1７8４—ｐkｔｘ通訊卡安裝到上位機上.安裝方法如下：請確認已將其中一塊通訊卡上的地址跳線帽(jp３）拔掉。參見圖1。(１)打開工控機機箱，將１784—ｐktx通訊卡插入ｐci插槽內(nèi)，固定螺絲,蓋好蓋板;(２）啟動工控機,系統(tǒng)檢測到硬件。如果用戶已經(jīng)安裝rsloｇix500軟件,則系統(tǒng)將自動檢測到驅(qū)動。如果用戶尚未安裝ｒｓloｇiｘ5０0軟件,可先安裝該軟件，軟件安裝完畢后，系統(tǒng)將自動為通訊卡安裝驅(qū)動程序；(3）用dh+48５數(shù)據(jù)線將上位機(工控機）與plc連接；（4)使用ｒsliｎx連接a—bplｃ的通訊網(wǎng)絡(luò)，運行rｓｌiｎxclasｓiｃ軟件。點擊菜單中“通信”選項,在下拉列表中選擇“配置驅(qū)動程序”:(參見圖２)。點擊該選項后,彈出如圖３所示頁面,在下拉列表中選擇1７8４－kｔ／kｔｘ（d）/ｐktｘ（ｄ）/pcｍkfｏrdh+/dh４85deｖiceｓ后,單擊【新增…】按鈕:此時彈出確認框,如圖4所示。點擊“確定”后，彈出如下頁面，如圖５所示，在“值”下拉列表中選擇pktｘ(ｄ）選項:點擊“確定”后，ｒslｉｎx配置完成.r23２連接方式（1）按照標準電纜1747cp3的內(nèi)部接線圖(如圖６)自制ｃoｍ口通信電纜也是能夠?qū)崿F(xiàn)上位機與plc的通信的，此種電纜的優(yōu)點：造價低廉、使用方便；缺點：不能通過這種數(shù)據(jù)線組成ｐlc網(wǎng)絡(luò),實現(xiàn)多plc資源共享.(2)使用rslinx連接a－bplc的通訊網(wǎng)絡(luò)配置方式與前相同只是在進入cｏnｆigdiｒvier菜單后彈出如圖7所示頁面。在下拉列表中選擇rs－２32df１devｉces選項，然后點擊“新增”按鈕會出現(xiàn)如下對話框，如圖8所示。點擊“確定”,出現(xiàn)如下對話框,如圖9所示.點擊“自動配置"按鈕,系統(tǒng)開始對plc進行自動配置.以上配置完成后點擊“確定"按鈕并關(guān)閉對話框（此時程序回最小化并沒有關(guān)閉）。進行dｄe服務(wù)的配置在菜單欄中打開“dde/opc”菜單并選擇“主題組態(tài)”對話框，如圖10所示。從圖左側(cè)我們發(fā)現(xiàn)了要找的pｌc并在右側(cè)顯示了“主題列表”中看到程序名。點開“數(shù)據(jù)采集"欄在“處理器類型”下拉菜單中選擇“slc－50３+”項,這一步很重要只有通過它才能正確的加載驅(qū)動程序，為通信打下基礎(chǔ)，如圖11所示。點開“高級通信”欄在“通信驅(qū)動程序”中選擇“ａbdf1－1ｄh485工作站”項，如圖1２所示。這樣在rｓｌiｎｘ軟件中對ａ-bpｌｃ的通信配置就完成了,建立與plｃ數(shù)據(jù)聯(lián)結(jié)既可以完成與plｃ的數(shù)據(jù)交換。利用vb開發(fā)ｄde客戶端ｖｂ作為miｃrosｏｆt公司軟件產(chǎn)品的重要一員，理所當然的對windｏwｓ操作系統(tǒng)下的dde技術(shù)給予支持。vb為一些控件提供了用于dｄe動態(tài)數(shù)據(jù)交換的ｌinｋtoｐｉc、linkiｔeｍ、ｌｉnkｔｉmeout、lｉｎkmoｄｅ等屬性，以及l(fā)inｋrｅqｕest、lｉnｋpoｋｅ、linｋexｅcｕte、ｌinｋｓeｎd等方法.其中，ｌinｋｔopic、ｌinkitｅm兩項屬性分別對應(yīng)于ddｅ通訊架構(gòu)中的主題名和數(shù)據(jù)項名，liｎｋtimeout、ｌinｋｍoｄe分別表示ddｅ客戶端與dｄｅ服務(wù)器的嘗試連接時間和連接模式（數(shù)據(jù)交換方式)，lｉnkmode有mａnｕal、ｎoｔify、auｔoｍatic三種方式,而ａｕtomatic方式最為常用，它主要用于和ddeｓｅrvｅｒ建立“熱連接（hotｌｉｎk)”，即在dde服務(wù)器數(shù)據(jù)發(fā)生變化時主動發(fā)送數(shù)據(jù)給客戶端.liｎkｒｅqueｓｔ、ｌｉnkｐokｅ分別用于dde客戶端對dde服務(wù)器數(shù)據(jù)的讀寫操作。在vb中實現(xiàn)與a－bpｌc的“熱連接”在viｓuaｌｂaｓi建立一個新工程，添加幾個ｌaｂeｌ控件，并建立和rsｌinx的dde通訊連接，使其隨上一步所設(shè)置好的連接的a—bplc數(shù)據(jù)“b01主系統(tǒng)”數(shù)值的變化而變化。其代碼如下:ｐrivaｔeｓｕbform_ｌｏad（)label1.linkｔopic=“rsｌinｘ｜”&“b0１主系統(tǒng)"ｌabel１.ｌinkiｔem=“s：42”laｂel1。ｌｉnｋｍｏde=１lａｂｅl１．ｌiｎｋreｑｕestｌaｂel3。linｋtｏpic＝“rslinx｜”&“b０1主系統(tǒng)"ｌabel３．linkitem＝“ｓ：41”lａｂeｌ3.liｎkmｏｄe＝1labｅl3.lｉnkｒｅｑuesｔlabel5．linktopic=“ｒslｉnx|”＆“b01主系統(tǒng)"ｌabeｌ5．linｋitｅm＝“s:40”laｂel5.lｉnｋmode=１lａｂel５。ｌｉｎkrｅｑuestｌａbel1０.liｎktｏpic=“ｒslｉｎx|”&“b0１主系統(tǒng)”laｂｅｌ10．linkitｅm＝“n６0：11”labeｌ10.lｉｎkｍｏｄe=１laｂel10。lｉnkｒequeｓtlabel12．lｉnktopic=“rslｉnｘ｜”&“b01主系統(tǒng)”laｂｅｌ1２。lｉnkitem=“n60：130”label12。linkmｏde=１lａｂel12.lｉnkreqｕestlａbel１４.lｉｎktopic=“ｒslinx｜"&“b０1主系統(tǒng)"laｂeｌ14。lｉnkiｔem=“ｎ6０:131”ｌaｂel14．ｌｉｎkmｏde=1laｂel１4。ｌｉｎkｒｅqｕestendｓｕb其中,代碼中的“rsｌiｎx”和“b01主系統(tǒng)”分別表示應(yīng)用程序名和主題名，“l(fā)inｋmode”值為1表示連接方式為automatic（即“熱連接”)方式。這樣當該應(yīng)用代碼被執(zhí)行時,laｂel的值便隨a－bplc內(nèi)存值的變化而變化。具體執(zhí)行如圖1３所示。在exｃeｌ中實現(xiàn)通過ｄde方式訪問a-bpｌc首先必須先安裝ｒslｉｎx創(chuàng)建ddetopｉc．比如我們定義一個topｉc名叫“b０1主系統(tǒng)"，打開eｘｃｅl，創(chuàng)建宏命令,編寫vba腳本如何讀取和寫入數(shù)據(jù)，從而完成與ｐlc的數(shù)據(jù)交換。ｓubｓtａrt（）dｉｍlnｇrｏwaslongdiｍvaｒcｙcｌeａsvaｒｉanｔdｉmvａrloｇｇinｇasvariaｎtdｉmvarresuｌtsasvarｉantoｎｅｒrorｇotｏeｒｒorrｓichan=ｄｄｅinitiatｅ(“rｓｌinx”,“ｂ0１主系統(tǒng)”）varlogging＝ddeｒequest(rsiｃｈａn,“n６0/163”)varcyclｅ=ｄｄeｒｅｑueｓｔ（rsｉchan,“n6０/1６１”）ｌ/？ifvarcｙｃle（１）=“１”andvaｒｌｏｇｇｉｎg（１)＝“1”tｈeｎlｎgrｏw=3iｆrａnge（“indata?。幔场?。value》3theｎlngroｗ=range（“iｎdata！a３"）．vaｌuｅeｎdiｆforlｎgｒow=lnｇrowtｏ６5５００iｆｃells(lｎｇrow,１）=“"thｅneｘｉｔforrａngｅ(“ｉnｄata!a3")．ｖａlue=ｌｎｇｒow+１nｅxtｒｓicｈan=dｄeinitiａt(yī)e(“rｓlｉnx”,“n1”）f810ｄａt(yī)a=ddｅreqｕｅｓt(rsｉchaｎ，“f8：10")ｆ8１１datａ＝dderequeｓt（rsiｃhａn,“ｆ８:1１"）ｆ812ｄaｔa=ｄdｅｒequest(rｓiｃhaｎ,“f8：１2”)f８16daｔa＝ddeｒeqｕｅst(rsｉchａn,“f8:1６"）f818ｄata=ddｅrｅｑuest（ｒsiｃｈan，“f8：18”)f８17ｄata=ｄdereｑuest（rsｉchan，“ｆ8:１7”）f８20daｔａ＝ｄdｅｒｅｑｕest(rsiｃhan，“f８：20”)f８21ｄaｔa=ddｅｒeqｕeｓｔ（rｓｉｃｈａｎ，“f８：２1"）ｆ8２2daｔa＝ddｅreｑｕeｓｔ(rｓiｃhan，“ｆ8:２２"）f823data=dｄeｒeqｕeｓｔ（ｒsiｃhan，“f８：２3”）ｆ824data＝ｄｄerequest（ｒsｉｃhａn,“ｆ８:24”)varｒeｓulｔs=dｄｅreqｕest（ｒｓｉｃhａｎ，“ｆ8：25”)dｄetｅｒmｉnate(ｒsiｃhan）ｃells(lnｇｒoｗ,１）.valuｅ＝ｆ８10dataｃelｌs(lngrow,2）.ｖaｌue=f811datａcｅｌlｓ（lngrｏｗ，３)．value=f812ｄａt(yī)aｃelｌs（lngrｏw，4）.ｖａluｅ=f８16datacellｓ(ｌnｇｒｏｗ,5).value=f８18ｄaｔａcｅｌls(lnｇroｗ,6）．ｖaｌue=f817daｔaｃeｌｌs(lngrow，7）。ｖａｌｕｅ=f82０datacells(ｌngrow，8）.vaｌuｅ=f821ｄatacｅlｌs（lnｇrow,9)．ｖalue=ｆ８22datacells（lnｇｒow，１0)。ｖalue=f823datacｅlls(lngrow,1１）。vaｌｕｅ=f８24daｔacells(lngrow，１3）．ｖalｕe=noｗ(）eｎdｉｆenｄsub在vb中實現(xiàn)調(diào)用eｘceｌ后臺數(shù)據(jù)庫因為前期已經(jīng)實現(xiàn)了vｂ與plc的通訊可以實時看到數(shù)據(jù)的狀態(tài)了，隨后又實現(xiàn)了excｅl與pｌc的通訊也可以實時看到數(shù)據(jù)的狀態(tài)，但這兩種方法都有其局限性：前者可看、可控但因無數(shù)據(jù)庫無法實現(xiàn)數(shù)據(jù)的存儲,后者可看、可查但因無可執(zhí)行程序無法實現(xiàn)可控.只有二者結(jié)合在一起才能揚長避短充分發(fā)揮功效。于是在ｖb中實現(xiàn)調(diào)用eｘcｅl后臺數(shù)據(jù)庫這種方式就應(yīng)運而生了，這種方式即充分發(fā)揮了vb可控的一面又實現(xiàn)了ｅｘceｌ對數(shù)據(jù)的強大處理能力可以說上位機真正實現(xiàn)了對pｌｃ可看、可查、可控的功能。vｂ與excel的連接方法如下:(1)在工程中引用ｍｉｃｒoｓofteｘcel類型庫:從“工程”菜單中選擇“引用”欄;選擇ｍiｃｒｏsoftexｃｅl９．0objｅctｌibrary（excｅl2000），然后選擇“確定”。表示在工程中要引用exｃel類型庫.(２)在通用對象的聲明過程中定義excel對象：ｄiｍｘlappaｓｅｘcel.ａpplｉcａt(yī)ｉｏndｉmxlbookasｅxcel。workｂooｋdimxｌshｅetasexcel．wｏrｋｓheｅｔ（3）在程序中操