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

前言dx系列中波發(fā)射機(jī)是由美國(guó)ｈaｒriｓ公司制造的全固態(tài)數(shù)字調(diào)幅發(fā)射機(jī),由于其運(yùn)行穩(wěn)定、各項(xiàng)指標(biāo)好、整機(jī)效率高等優(yōu)點(diǎn),在全國(guó)各臺(tái)站得以廣泛應(yīng)用。我臺(tái)自19９９年起開始使用dx—400發(fā)射機(jī),在10年左右的使用與維護(hù)工作中我們?cè)鴮?duì)dx－400發(fā)射機(jī)進(jìn)行了兩次自動(dòng)化改造。第一次改造是用omｒonc２00hplc加外圍電路來實(shí)現(xiàn)對(duì)發(fā)射機(jī)和附屬設(shè)備進(jìn)行采樣和控制的，但在實(shí)際的使用過程中我們發(fā)現(xiàn)這樣的控制系統(tǒng)有其致命的局限性。因?yàn)橄到y(tǒng)是plc加外圍電路實(shí)現(xiàn)的控制系統(tǒng)就決定了系統(tǒng)無法顯示機(jī)器內(nèi)部數(shù)據(jù)的實(shí)時(shí)狀態(tài)，無法與發(fā)射機(jī)內(nèi)部實(shí)現(xiàn)直接通信。因此只有實(shí)現(xiàn)了工控機(jī)與發(fā)射機(jī)的控制核心—-ｐｌｃ（可編程控制器）直接通信才能克服這一局限性，真正實(shí)現(xiàn)實(shí)時(shí)掌握機(jī)器內(nèi)部數(shù)據(jù)狀態(tài)和對(duì)發(fā)射機(jī)的直接控制。dx—400發(fā)射機(jī)控制單元使用的是a-bplc，這種ｐlｃ是roｃkｗeｌlauｔomatｉoｎ的專利產(chǎn)品,使得第三方的軟件不能很好地與ａ-bplc進(jìn)行連接。在實(shí)際改造工作中我們找到了一種采用dde(動(dòng)態(tài)數(shù)據(jù)交換技術(shù))技術(shù)與ａ-bｐlc進(jìn)行數(shù)據(jù)交換的方法,能夠更好的解決這一瓶頸問題。dde技術(shù)的工作機(jī)制dde是動(dòng)態(tài)數(shù)據(jù)交換技術(shù)的縮寫,是為在同一臺(tái)計(jì)算機(jī)或不同計(jì)算機(jī)上運(yùn)行的程序提供動(dòng)態(tài)數(shù)據(jù)交換的一種新技術(shù)，最早由mｉｃrｏsoft公司提出的。動(dòng)態(tài)數(shù)據(jù)交換(dｄe）技術(shù)由于其具有實(shí)時(shí)性好、網(wǎng)絡(luò)通信連接實(shí)現(xiàn)方便等特點(diǎn),在控制軟件與信息網(wǎng)絡(luò)集成中得到了廣泛應(yīng)用。動(dòng)態(tài)數(shù)據(jù)交換基于widnｏwｓ消息機(jī)制,各應(yīng)用程序間通過傳遞消息進(jìn)行對(duì)話交換信息。ｗindoｗsddｅ消息傳遞采用cｌｉｅｎt/server模式,客戶（clieｎｔ）是數(shù)據(jù)的請(qǐng)求和接受者,而服務(wù)器(servｅｒ）是數(shù)據(jù)的提供者，兩者之間通過請(qǐng)求、應(yīng)答、傳輸三個(gè)步驟來完成數(shù)據(jù)的傳送。ｄde協(xié)議使用服務(wù)（serｖiｃe）、主題（tｏｐic）和數(shù)據(jù)項(xiàng)（itｅm)三級(jí)命名來標(biāo)識(shí)ｄde所傳遞的數(shù)據(jù)單元。一般情況下，服務(wù)（serｖｉcｅ）就是應(yīng)用程序的文件名,主題是對(duì)服務(wù)器有意義的信息單元。每次ｄde客戶與服務(wù)程序之間的對(duì)話都是先由客戶啟動(dòng)的,所以在每次客戶啟動(dòng)之前,ｄｄｅ服務(wù)器應(yīng)當(dāng)首先投入運(yùn)行。當(dāng)客戶程序需要向服務(wù)器程序請(qǐng)求數(shù)據(jù)時(shí),客戶程序發(fā)送一條wｍ—ddｅ—iｎｉteａｔe消息給當(dāng)前運(yùn)行的所有ｗidnoｗｓ應(yīng)用程序，這條消息不但包含了它所需要的服務(wù)器名(ｓerｖiｃe）和主題名(ｔoｐiｃ),而且指明了它所希望的數(shù)據(jù)類型,收到wm—ｄde-inｉtｅate消息的應(yīng)用程序通過判別服務(wù)器名和會(huì)話主題決定是否應(yīng)答，一旦dde服務(wù)器響應(yīng)了這條被傳播的消息,ｄde會(huì)話就開始了。ｄde的工作方式有冷連接(cｏｏlｌink）、溫連接（wａrmlink）和熱連接(ｈotlｉnｋ）等3種。在冷連接方式下,當(dāng)ｓｅrveｒ中的數(shù)據(jù)發(fā)生變化后不主動(dòng)通知client,但ｃlｉeｎt可以隨時(shí)從serveｒ讀寫數(shù)據(jù);在溫連接方式下，當(dāng)seｒvｅr中的數(shù)據(jù)發(fā)生變化后馬上通知client，ｃｌient得到通知后將數(shù)據(jù)取回;在熱連接方式下,當(dāng)sｅrveｒ中的數(shù)據(jù)發(fā)生變化后馬上通知上位機(jī)(工cｌｉent，同時(shí)將變化的數(shù)據(jù)直接送給cｌｉent。硬件連接與系統(tǒng)配置控機(jī))與a-ｂpｌc的連接方式有兩種：一種是利用廠家提供的dh＋４85數(shù)據(jù)線將上位機(jī)通訊卡與a—bplccpｕ模塊的dh+接口直接連接；一種是通過自制的ｒ２3２數(shù)據(jù)線將上位機(jī)com口與a—bｐｌｃcpｕ模塊的rs２32接口直接連接。通訊卡連接方式將allｅnｂrａdley公司出品的1７8４—ｐkｔｘ通訊卡安裝到上位機(jī)上.安裝方法如下：請(qǐng)確認(rèn)已將其中一塊通訊卡上的地址跳線帽(jp３）拔掉。參見圖1。(１)打開工控機(jī)機(jī)箱，將１784—ｐktx通訊卡插入ｐci插槽內(nèi)，固定螺絲,蓋好蓋板;(２）啟動(dòng)工控機(jī),系統(tǒng)檢測(cè)到硬件。如果用戶已經(jīng)安裝rsloｇix500軟件,則系統(tǒng)將自動(dòng)檢測(cè)到驅(qū)動(dòng)。如果用戶尚未安裝ｒｓloｇiｘ5０0軟件,可先安裝該軟件，軟件安裝完畢后，系統(tǒng)將自動(dòng)為通訊卡安裝驅(qū)動(dòng)程序；(3）用dh+48５數(shù)據(jù)線將上位機(jī)(工控機(jī)）與plc連接；（4)使用ｒsliｎx連接a—bplｃ的通訊網(wǎng)絡(luò)，運(yùn)行rｓｌiｎxclasｓiｃ軟件。點(diǎn)擊菜單中“通信”選項(xiàng),在下拉列表中選擇“配置驅(qū)動(dòng)程序”:(參見圖２)。點(diǎn)擊該選項(xiàng)后,彈出如圖３所示頁面,在下拉列表中選擇1７8４－kｔ／kｔｘ（d）/ｐktｘ（ｄ）/pcｍkfｏrdh+/dh４85deｖiceｓ后,單擊【新增…】按鈕:此時(shí)彈出確認(rèn)框,如圖4所示。點(diǎn)擊“確定”后，彈出如下頁面，如圖５所示，在“值”下拉列表中選擇pktｘ(ｄ）選項(xiàng):點(diǎn)擊“確定”后，ｒslｉｎx配置完成.r23２連接方式（1）按照標(biāo)準(zhǔn)電纜1747cp3的內(nèi)部接線圖(如圖６)自制ｃoｍ口通信電纜也是能夠?qū)崿F(xiàn)上位機(jī)與plc的通信的，此種電纜的優(yōu)點(diǎn)：造價(jià)低廉、使用方便；缺點(diǎn)：不能通過這種數(shù)據(jù)線組成ｐlc網(wǎng)絡(luò),實(shí)現(xiàn)多plc資源共享.(2)使用rslinx連接a－bplc的通訊網(wǎng)絡(luò)配置方式與前相同只是在進(jìn)入cｏnｆigdiｒvier菜單后彈出如圖7所示頁面。在下拉列表中選擇rs－２32df１devｉces選項(xiàng)，然后點(diǎn)擊“新增”按鈕會(huì)出現(xiàn)如下對(duì)話框，如圖8所示。點(diǎn)擊“確定”,出現(xiàn)如下對(duì)話框,如圖9所示.點(diǎn)擊“自動(dòng)配置"按鈕,系統(tǒng)開始對(duì)plc進(jìn)行自動(dòng)配置.以上配置完成后點(diǎn)擊“確定"按鈕并關(guān)閉對(duì)話框（此時(shí)程序回最小化并沒有關(guān)閉）。進(jìn)行dｄe服務(wù)的配置在菜單欄中打開“dde/opc”菜單并選擇“主題組態(tài)”對(duì)話框，如圖10所示。從圖左側(cè)我們發(fā)現(xiàn)了要找的pｌc并在右側(cè)顯示了“主題列表”中看到程序名。點(diǎn)開“數(shù)據(jù)采集"欄在“處理器類型”下拉菜單中選擇“slc－50３+”項(xiàng),這一步很重要只有通過它才能正確的加載驅(qū)動(dòng)程序，為通信打下基礎(chǔ)，如圖11所示。點(diǎn)開“高級(jí)通信”欄在“通信驅(qū)動(dòng)程序”中選擇“ａbdf1－1ｄh485工作站”項(xiàng)，如圖1２所示。這樣在rｓｌiｎｘ軟件中對(duì)ａ-bpｌｃ的通信配置就完成了,建立與plｃ數(shù)據(jù)聯(lián)結(jié)既可以完成與plｃ的數(shù)據(jù)交換。利用vb開發(fā)ｄde客戶端ｖｂ作為miｃrosｏｆt公司軟件產(chǎn)品的重要一員，理所當(dāng)然的對(duì)windｏwｓ操作系統(tǒng)下的dde技術(shù)給予支持。vb為一些控件提供了用于dｄe動(dòng)態(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兩項(xiàng)屬性分別對(duì)應(yīng)于ddｅ通訊架構(gòu)中的主題名和數(shù)據(jù)項(xiàng)名，liｎｋtimeout、ｌinｋｍoｄe分別表示ddｅ客戶端與dｄｅ服務(wù)器的嘗試連接時(shí)間和連接模式（數(shù)據(jù)交換方式)，lｉnkmode有mａnｕal、ｎoｔify、auｔoｍatic三種方式,而ａｕtomatic方式最為常用，它主要用于和ddeｓｅrvｅｒ建立“熱連接（hotｌｉｎk)”，即在dde服務(wù)器數(shù)據(jù)發(fā)生變化時(shí)主動(dòng)發(fā)送數(shù)據(jù)給客戶端.liｎkｒｅqueｓｔ、ｌｉnkｐokｅ分別用于dde客戶端對(duì)dde服務(wù)器數(shù)據(jù)的讀寫操作。在vb中實(shí)現(xiàn)與a－bpｌc的“熱連接”在viｓuaｌｂaｓi建立一個(gè)新工程，添加幾個(gè)ｌ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（即“熱連接”)方式。這樣當(dāng)該應(yīng)用代碼被執(zhí)行時(shí),laｂel的值便隨a－bplc內(nèi)存值的變化而變化。具體執(zhí)行如圖1３所示。在exｃeｌ中實(shí)現(xiàn)通過ｄde方式訪問a-bpｌc首先必須先安裝ｒslｉｎx創(chuàng)建ddetopｉc．比如我們定義一個(gè)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(cuò)ｎ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中實(shí)現(xiàn)調(diào)用eｘceｌ后臺(tái)數(shù)據(jù)庫因?yàn)榍捌谝呀?jīng)實(shí)現(xiàn)了vｂ與plc的通訊可以實(shí)時(shí)看到數(shù)據(jù)的狀態(tài)了，隨后又實(shí)現(xiàn)了excｅl與pｌc的通訊也可以實(shí)時(shí)看到數(shù)據(jù)的狀態(tài)，但這兩種方法都有其局限性：前者可看、可控但因無數(shù)據(jù)庫無法實(shí)現(xiàn)數(shù)據(jù)的存儲(chǔ),后者可看、可查但因無可執(zhí)行程序無法實(shí)現(xiàn)可控.只有二者結(jié)合在一起才能揚(yáng)長(zhǎng)避短充分發(fā)揮功效。于是在ｖb中實(shí)現(xiàn)調(diào)用eｘcｅl后臺(tái)數(shù)據(jù)庫這種方式就應(yīng)運(yùn)而生了，這種方式即充分發(fā)揮了vb可控的一面又實(shí)現(xiàn)了ｅｘceｌ對(duì)數(shù)據(jù)的強(qiáng)大處理能力可以說上位機(jī)真正實(shí)現(xiàn)了對(duì)pｌｃ可看、可查、可控的功能。vｂ與excel的連接方法如下:(1)在工程中引用ｍｉｃｒoｓofteｘcel類型庫:從“工程”菜單中選擇“引用”欄;選擇ｍiｃｒｏsoftexｃｅl９．0objｅctｌibrary（excｅl2000），然后選擇“確定”。表示在工程中要引用exｃel類型庫.(２)在通用對(duì)象的聲明過程中定義excel對(duì)象：ｄiｍｘlappaｓｅｘcel.ａpplｉcａt(yī)ｉｏndｉmxlbookasｅxcel。workｂooｋdimxｌshｅe(cuò)tasexcel．wｏrｋｓheｅｔ（3）在程序中操