軟件課程設(shè)計(jì)報(bào)告(opc)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁(yè)數(shù)：23 大?。?07.00KB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁(yè)，還剩22頁(yè)未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說(shuō)明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、　　課程設(shè)計(jì)（軟件設(shè)計(jì)）　　報(bào)告　　班級(jí)： 　　姓名： 　　學(xué) 號(hào)：

2、　　指導(dǎo)教師： 　　日期： 2014 年 10 月 28 日　　目錄　　1設(shè)計(jì)內(nèi)容1　　2應(yīng)用程序總體分析與設(shè)計(jì)

3、1　　2.1訪問(wèn)老師提供的服務(wù)器的VB客戶端1　　2.2訪問(wèn)WINCC服務(wù)器的VB客戶端1　　3應(yīng)用程序各功能模塊分析與設(shè)計(jì)2　　3.1訪問(wèn)老師提供的服務(wù)器的VB客戶端2　　3.1.1變量聲明2&

4、lt;p>　　3.1.2連接OPC服務(wù)器和建立OPC組2　　3.1.3添加OPC標(biāo)簽2　　3.1.4斷開(kāi)OPC服務(wù)器3　　3.1.5窗體設(shè)計(jì)3　　3.2訪問(wèn)WINCC服務(wù)器的VB客戶端3　　3.2.1 OPC連接

5、3　　3.2.2 OPC的標(biāo)簽讀寫(xiě)4　　3.2.3 OPC連接斷開(kāi)4　　3.2.4建立窗體4　　4程序測(cè)試5　　4.1測(cè)試過(guò)程5</p&g

6、t;　　4.2測(cè)試結(jié)果5　　4.2.1 VB客戶端訪問(wèn)老師提供的服務(wù)器5　　4.2.2 VB客戶端訪問(wèn)WINCC服務(wù)器6　　5程序文檔9　　5.1使

7、用說(shuō)明9　　5.1.1 VB客戶端訪問(wèn)老師提供的服務(wù)器9　　5.1.2 VB客戶端訪問(wèn)WINCC服務(wù)器9　　5.2程序說(shuō)明9　　5.2.1 VB客戶端訪問(wèn)老師提供的服務(wù)器的源程序9

8、　　5.2.2 VB客戶端訪問(wèn)WINCC服務(wù)器的源程序16　　6 總結(jié)19　　1設(shè)計(jì)內(nèi)容　　通過(guò)VB編程，編寫(xiě)一個(gè)OPC客戶端程序，實(shí)現(xiàn)對(duì)任意OPC服務(wù)器的訪問(wèn)讀取。本設(shè)計(jì)涉及到老師提供的服務(wù)器、WINCC服務(wù)器、V

9、B客戶端、OPC Scout V10客戶端、Matlab客戶端。　　我們組在兩個(gè)服務(wù)器，三個(gè)客戶端的基礎(chǔ)上進(jìn)行了多種組合，并一一實(shí)現(xiàn)。　　包括：（1）VB客戶端訪問(wèn)老師提供的服務(wù)器。　?。?）VB客戶端訪問(wèn)WINCC服務(wù)器。　?。?）VB客戶端、OPC Scout V10

10、客戶端對(duì)WINCC服務(wù)器的同步讀取。　?。?）VB客戶端、MATLAB客戶端對(duì)WINCC服務(wù)器的同步讀取。　　2應(yīng)用程序總體分析與設(shè)計(jì)　　2.1訪問(wèn)老師提供的服務(wù)器的VB客戶端　　VB客戶端需要完成的操作有：

11、（1）變量聲明　　（2）連接OPC服務(wù)器和建立OPC組　?。?）添加OPC標(biāo)簽　?。?）斷開(kāi)OPC服務(wù)器　?。?）窗體設(shè)計(jì)　?。?）命令按鈕的事件處理

12、　?。?）同步數(shù)據(jù)讀取　　2.2訪問(wèn)WINCC服務(wù)器的VB客戶端　　VB客戶端需要完成的操作有：　?。?）OPC連接　?。?）OPC的標(biāo)簽讀寫(xiě)<p

13、>　?。?）OPC連接斷開(kāi)　?。?）建立窗體　　3應(yīng)用程序各功能模塊分析與設(shè)計(jì)　　3.1訪問(wèn)老師提供的服務(wù)器的VB客戶端　　3.1.1變量聲明　　變

14、量的數(shù)據(jù)類型應(yīng)該指定為對(duì)象型。這些對(duì)象變量在窗體代碼的（General）部分聲明。因?yàn)樵冢℅eneral）部分聲明的變量，可以在窗體的任何方法的代碼內(nèi)引用。　　有關(guān)定義OPC對(duì)象的聲明及其說(shuō)明列于表3-1-1　　表3-1-1 OPC對(duì)象變量的聲明　　3.1.2連接OPC服務(wù)器和建立OPC組

15、　　考慮到代碼的可反復(fù)使用性，這里采用子程序進(jìn)行編程。　　這里用“NEW”關(guān)鍵詞生成OPC服務(wù)器的對(duì)象，然后調(diào)用OPC服務(wù)器對(duì)象的“Connect”方法，和OPC服務(wù)器連接。在連接遠(yuǎn)程服務(wù)器的時(shí)候，需要指定作為選用參數(shù)的遠(yuǎn)程計(jì)算機(jī)名。　　3.1.3添加OPC標(biāo)簽　　對(duì)OPC服務(wù)器進(jìn)行訪問(wèn)前，必須

16、先在OPC組里添加要訪問(wèn)的OPC標(biāo)簽。　　這里添加OPC標(biāo)簽的標(biāo)識(shí)符和數(shù)目是固定的，但是實(shí)際的OPC應(yīng)用程序往往要按照用戶的指定或讀取組態(tài)文件取得和處理需要添加OPC標(biāo)簽。　　3.1.4斷開(kāi)OPC服務(wù)器　　連接著OPC服務(wù)器的OPC應(yīng)用程序，在退出前必須斷開(kāi)和OPC服務(wù)器的連接。因?yàn)镺PC服務(wù)器并不知道OPC應(yīng)用

17、程序的退出，如果不先斷開(kāi)連接，那么OPC服務(wù)器使用的計(jì)算機(jī)資源就不被釋放。如果這樣的問(wèn)題反復(fù)發(fā)生，久而久之，連續(xù)運(yùn)轉(zhuǎn)的自動(dòng)控制系統(tǒng)可能會(huì)使計(jì)算機(jī)資源漸漸枯竭從而發(fā)生嚴(yán)重問(wèn)題。　　3.1.5窗體設(shè)計(jì)　　圖3.1.5 VB客戶端（1）窗體設(shè)計(jì)　　3.2訪問(wèn)WINCC服務(wù)器的VB客

18、戶端　　3.2.1 OPC連接　　先在工具欄中“工程\引用”將近 Siemens OPC DAAutomation 2.0加入，然后開(kāi)始定義全局變量。在本程序中，我使用了一個(gè)OPC組進(jìn)行OPC訪問(wèn)，所以定義了全局變量。首先定義OPC服務(wù)類型與計(jì)算機(jī)結(jié)點(diǎn)名。定義OPC組與OPC標(biāo)簽組。并定義OPC的標(biāo)簽數(shù)組與值數(shù)，值數(shù)組設(shè)為Variant。</p&g

19、t;　　在定義所有變量后，我們就要進(jìn)行OPC連接了，要進(jìn)行OPC連接之前,先要配置要訪問(wèn)的OPC標(biāo)簽名（即WinCC內(nèi)部變量名），我們ItemIDs中加入相應(yīng)的標(biāo)簽名，注意：這數(shù)組必須由1開(kāi)始，不能由0開(kāi)始。 　　配置好標(biāo)簽后就要進(jìn)行OPC連接了。如下面子程序：①先配置名柄索引，這將在讀取OPC標(biāo)簽的值時(shí)可要用到。②生成OPC對(duì)象，③ 進(jìn)行OPC標(biāo)簽連接,至此OPC連接就成

20、功了，我們可以對(duì)OPC進(jìn)行讀與寫(xiě)的操作了。　　3.2.2 OPC的標(biāo)簽讀寫(xiě)　　對(duì)OPC標(biāo)簽的讀可以通過(guò)ItemIDsValue(4)組的DataChange事件來(lái)讀取。該事件有多個(gè)參數(shù)：其中NumItems是指標(biāo)簽改變值的個(gè)數(shù)，ClientHandles是改變值的標(biāo)簽索引，ItemValues為改變值的數(shù)據(jù)，具體的意思是ClientHandles（ii）

21、的值是其對(duì)應(yīng)的標(biāo)簽數(shù)組的索引，其所指的OPC標(biāo)簽的值在ItemValues(ii)中。一般來(lái)說(shuō)，剛連接上時(shí)，該事件會(huì)把全部所要求訪問(wèn)的OPC標(biāo)簽值全部讀取過(guò)來(lái)（順序不一，要通過(guò)ClientHandles索引），此后只有數(shù)據(jù)發(fā)生變化時(shí)才會(huì)觸發(fā)該事件。也只會(huì)傳輸發(fā)生了變化的數(shù)據(jù)，沒(méi)有變化的數(shù)據(jù)不會(huì)出現(xiàn)在本事件的ItemValues中。　　對(duì)OPC的寫(xiě)可以有同步與異步之分，對(duì)于大量的數(shù)據(jù)傳輸，異步是更

22、佳的選擇，但對(duì)少量的數(shù)據(jù)傳輸，同步表現(xiàn)得更好。　　3.2.3 OPC連接斷開(kāi)　　OPC客戶端連接后要占用服務(wù)器資源，所以如果不需要使用OPC時(shí)，必須進(jìn)行OPC連接斷開(kāi)。斷開(kāi)的程序相當(dāng)簡(jiǎn)單，釋放資源即可。　　3.2.4建立窗體　　圖3.

23、2.4 VB客戶端（2）窗體設(shè)計(jì)　　4程序測(cè)試　　4.1測(cè)試過(guò)程　　程序測(cè)試前必須在工程/引用中添加相應(yīng)組件，老師提供的服務(wù)器要添加OPC Automation 2.0組件，WINCC服務(wù)器要添加Siemens OPC DAAutomat

24、ion 2.0組件。編輯好窗體和程序點(diǎn)擊保存運(yùn)行即可。對(duì)于VB客戶端（1），先點(diǎn)擊連接，再點(diǎn)擊加項(xiàng)即可實(shí)現(xiàn)OPC服務(wù)器的變量讀取。對(duì)于VB客戶端（2），可以在Text1中輸入主機(jī)名稱，設(shè)定WINCC服務(wù)器所在電腦，再點(diǎn)擊連接實(shí)現(xiàn)服務(wù)器訪問(wèn)。此時(shí)，變量值列將顯示對(duì)應(yīng)變量的變量值，在變量值更改列輸入0~200任意值即可對(duì)相應(yīng)變量賦值。此時(shí)服務(wù)器端的變量值會(huì)相應(yīng)更改。　　通過(guò)OPC SCOUT V10

25、實(shí)現(xiàn)WINCC/VB/OPC SCOUT V10的連接：　　OPC SCOUT V10作為客戶端對(duì)WINCC SERVER進(jìn)行讀寫(xiě)，通過(guò)寫(xiě)操作實(shí)現(xiàn)WINCC內(nèi)部變量的函數(shù)變化，VB程序作為另一個(gè)客戶端同步讀取WINCC SERVER的數(shù)據(jù)。　　同理，VB程序也可以作為客戶端對(duì)WINCC SERVER進(jìn)行讀寫(xiě)，通過(guò)寫(xiě)操作實(shí)現(xiàn)WINCC內(nèi)部變量的賦值，OPC

26、 SCOUT V10作為另一個(gè)客戶端同步讀取WINCC SERVER的數(shù)據(jù)。　　反之可以通過(guò)WINCC畫(huà)面對(duì)變量進(jìn)行賦值，兩個(gè)客戶端同步讀取WINCC變量。　　同樣還可以通過(guò)MATLAB實(shí)現(xiàn)對(duì)WINCC SERVER進(jìn)行讀寫(xiě)操作。詳見(jiàn)測(cè)試結(jié)果。　　4.2測(cè)試結(jié)果</p&

27、gt;　　4.2.1 VB客戶端訪問(wèn)老師提供的服務(wù)器　　圖4.2.1 VB客戶端訪問(wèn)老師提供的服務(wù)器　　4.2.2 VB客戶端訪問(wèn)WINCC服務(wù)器　　4.2.2-1 VB客戶端訪問(wèn)WINCC服務(wù)器-讀操作　　4.2.2-2 VB客戶端訪問(wèn)WINCC服

28、務(wù)器-寫(xiě)操作　　4.2.2-3 OPC SCOUT V10讀取WINCC變量并修改變量值，返回服務(wù)器，VB讀?。?）　　4.2.2-4 OPC SCOUT V10讀取WINCC變量并修改變量值，返回服務(wù)器，VB讀?。?）　　4.2.2-5 MATLAB讀取WINCC變量并修改變量值，返回服務(wù)器，VB讀取（1）&l

29、t;/p>　　4.2.2-6 MATLAB讀取WINCC變量并修改變量值，返回服務(wù)器，VB讀取（2）　　5程序文檔　　5.1使用說(shuō)明　　5.1.1 VB客戶端訪問(wèn)老師提供的服務(wù)器<

30、p>　　對(duì)于VB客戶端（1），先點(diǎn)擊連接，再點(diǎn)擊加項(xiàng)即可實(shí)現(xiàn)OPC服務(wù)器的變量讀取。棒圖可以直觀的顯示當(dāng)前的變量值。點(diǎn)擊退出，退出客戶端應(yīng)用程序。　　5.1.2 VB客戶端訪問(wèn)WINCC服務(wù)器　　對(duì)于VB客戶端（2），可以在Text1中輸入主機(jī)名稱，設(shè)定WINCC服務(wù)器所在電腦，再點(diǎn)擊連接實(shí)現(xiàn)服務(wù)器訪問(wèn)。此時(shí)，狀態(tài)顯示圖標(biāo)（復(fù)選框）將變?yōu)檫x中狀態(tài)，

31、變量值列將顯示對(duì)應(yīng)變量的變量值，在變量值更改列輸入0~200任意值即可對(duì)相應(yīng)變量賦值。此時(shí)服務(wù)器端的變量值會(huì)相應(yīng)更改。點(diǎn)擊斷開(kāi)即可斷開(kāi)服務(wù)器的連接，此時(shí)狀態(tài)顯示圖標(biāo)（復(fù)選框）將變?yōu)槲催x中狀態(tài)。點(diǎn)擊退出按鈕，關(guān)閉客戶端應(yīng)用程序。　　5.2程序說(shuō)明　　5.2.1 VB客戶端訪問(wèn)老師提供的服務(wù)器的源程序

32、　　‘定義全局變量　　Option Base 1　　Option Explicit　　Dim WithEvents objServer As OPCServer　　Dim objGroups As OPCGrou

33、ps　　Dim objTestGrp As OPCGroup　　Dim objItems As OPCItems　　Dim lServerHandles() As Long　　‘連接服務(wù)器

34、Sub Connect(strProgID As String, Optional strNode As String)　　If objServer Is Nothing Then　　' 建立一個(gè)OPC服務(wù)器對(duì)象　　Set objServer = New OPCServer<

35、p>　　End If　　If objServer.ServerState = OPCDisconnected Then　　' 連接OPC服務(wù)器　　objServer.Connect strProgID, strNode&

36、lt;b>　　End If　　If objGroups Is Nothing Then　　' 建立一個(gè)OPC組集合　　Set objGroups = objServer.OPCGroups　　End If</b&g

37、t;　　If objTestGrp Is Nothing Then　　' 添加一個(gè)OPC組　　Set objTestGrp = objGroups.Add("TestGrp")　　End If</p&

38、gt;　　End Sub　　‘?dāng)嚅_(kāi)服務(wù)器連接　　Sub Disconnect()　　Dim lErrors() As Long　　If Not objItems Is Not

39、hing Then　　If objItems.Count > 0 Then　　' 清除OPC項(xiàng)　　objItems.Remove 2, lServerHandles, lErrors　　End If&l

40、t;/b>　　Set objItems = Nothing　　End If　　If Not objTestGrp Is Nothing Then　　' 清除OPC組

41、;　　objGroups.Remove "TestGrp"　　Set objTestGrp = Nothing　　End If　　If Not objGroups Is Nothing Then

42、;　　Set objGroups = Nothing　　End If　　If Not objServer Is Nothing Then　　If objServer.ServerState <> OPCDisconnected Then&l

43、t;p>　　' 斷開(kāi)OPC服務(wù)器.　　objServer.Disconnect　　End If　　Set objServer = Nothing　　End If

44、　　End Sub　　’添加變量　　Sub AddItem()　　Dim strItemIDs(2) As String　　Dim lClientHandles(2) As L

45、ong　　Dim lErrors() As Long　　Dim I As Integer　　If objTestGrp Is Nothing Then　　Exit Sub

46、End If　　If Not objItems Is Nothing Then　　If objItems.Count > 0 Then　　Exit Sub　　End If

47、　　End If　　' 設(shè)置組活動(dòng)狀態(tài)　　objTestGrp.IsActive = True　　' 取消組非同期通知　　objTestG

48、rp.IsSubscribed = False　　' 建立OPC項(xiàng)集合　　Set objItems = objTestGrp.OPCItems　　' 生成標(biāo)簽的項(xiàng)標(biāo)識(shí)符　　strItemIDs(1) = "Tag1.value"<

49、/p>　　strItemIDs(2) = "Tag2.value"　　lClientHandles(1) = 1　　lClientHandles(2) = 2　　' 添加OPC項(xiàng)

50、　　Call objItems.AddItems(2, strItemIDs, _　　lClientHandles, lServerHandles, lErrors)　　End Sub　　‘加項(xiàng)按鈕的動(dòng)作函數(shù)　　Private Sub

51、 btnAddItem_Click()　　' 調(diào)用AddItem子程序　　Call AddItem　　If Not objTestGrp Is Nothing Then　　If objTestGrp.OPCItems.Count > 0 Then</p

52、>　　' 啟動(dòng)定時(shí)器　　TmUpdate.Enabled = True　　Else　　End If　　E

53、nd If　　End Sub　　’連接按鈕動(dòng)作函數(shù)　　Private Sub btnConnect_Click()　　' 調(diào)用Connect子程序

54、　　Call Connect("OPCJ.SampleServer.1")　　End Sub　　‘退出按鈕動(dòng)作函數(shù)　　Private Sub btnQuit_Click()&

55、lt;p>　　' 卸載窗體　　Unload FmMain　　End Sub　　’退出　　Private Sub Form_Unload(Canc

56、el As Integer)　　' 調(diào)用Disconnect子程序　　Call Disconnect　　End Sub　　‘讀取周期定義　　Pri

57、vate Sub tmUpdate_Timer()　　Dim vtItemValues() As Variant　　Dim lErrors() As Long　　Dim strBuf As String　　Dim nWidth As Integer

58、　　Dim nHeight As Integer　　Dim nDrawHeight As Integer　　Dim sglScale As Single　　Dim I As Integer　　' 同期讀取&l

59、t;/p>　　SyncRead OPCCache, vtItemValues, lErrors　　' 棒圖的表示　　For I = 1 To 2　　' 數(shù)據(jù)的格式化<

60、;p>　　strBuf = Format(vtItemValues(I), "###.000")　　' 表示數(shù)據(jù)字符串　　lbBar(I).Caption = strBuf　　' 計(jì)算棒的寬和高&

61、lt;/p>　　nWidth = picBar(I).ScaleWidth　　nHeight = picBar(I).ScaleHeight　　sglScale = vtItemValues(I) / 700　　nDrawHeight = CInt(nHeight * sglScale

62、)　　' 清除現(xiàn)棒圖　　picBar(I).Cls　　' 繪制棒圖　　picBar(I).Line (0, nHeight - nDrawHeight)-(nWidth, nHei

63、ght), _　　RGB(255, 0, 0), BF　　Next　　End Sub　　‘讀取變量　　Sub Syn

64、cRead(nSource As Integer, ByRef vtItemValues() As Variant, _　　ByRef lErrors() As Long)　　Dim lServerHandlesTemp(2) As Long　　Dim j As Integer<p&

65、gt;　　If objTestGrp Is Nothing Then　　Exit Sub　　End If　　If objTestGrp.OPCItems.Count > 0 Then<

66、b>　　' 同期讀取　　objTestGrp.SyncRead nSource, 2, lServerHandles, _　　vtItemValues, lErrors　　End If

67、;　　End Sub　　‘啟動(dòng)畫(huà)面　　Private Sub Form_Load()　　TmUpdate.Enabled = False　　TmUpdate.Interval = 100&l

68、t;p>　　End Sub　　5.2.2 VB客戶端訪問(wèn)WINCC服務(wù)器的源程序　　‘定義全局變量　　Option Explicit　　Option Base 1 '這數(shù)組必須由1開(kāi)

69、始，不能由0開(kāi)始　　Const ServerName = "OPCServer.WinCC.1" 'OPC的類型　　Dim NodeName As String '結(jié)點(diǎn)名，即計(jì)算機(jī)名　　Dim WithEvents MyOPCServer As OPCServer 'O

70、PC服務(wù)　　Dim WithEvents MyOPCGroup As OPCGroup ' OPC組　　Dim MyOPCGroupColl As OPCGroups　　Dim MyOPCItemColl As OPCItems 'OPC標(biāo)簽組　　Dim

71、MyOPCItems As OPCItems　　Dim MyOPCItem As OPCItem　　Dim ClientHandles(1) As Long '句柄　　Dim ServerHandles() As Long　　Dim Errors() As Lon

72、g　　Dim ItemIDs(4) As String '記錄OPC的標(biāo)簽　　Dim ItemIDsValue(4) As Variant '存放OPC的值　　Dim GroupName As Variant　　‘連接按鈕動(dòng)作函數(shù)<

73、/b>　　Private Sub Command1_Click()　　Dim ii As Integer　　Dim ClientHandles1(4) As Long　　For ii = 1 To 4　　ClientHand

74、les1(ii) = ii　　ItemIDs(ii) = Text4(ii).Text '指明WinCC內(nèi)部變量名稱　　Next ii　　On Error GoTo ErrorHandler　　GroupName = &quo

75、t;MyGroup"　　NodeName = Text1.Text ' 結(jié)點(diǎn)名，即計(jì)算機(jī)名　　Set MyOPCServer = New OPCServer　　MyOPCServer.Connect ServerName, NodeName　　Set M

76、yOPCGroupColl = MyOPCServer.OPCGroups　　MyOPCGroupColl.DefaultGroupIsActive = True　　Set MyOPCGroup = MyOPCGroupColl.Add(GroupName)　　Set MyOPCItemColl = MyOPCG

77、roup.OPCItems　　For ii = 1 To 4　　ClientHandles1(ii) = ii　　ItemIDs(ii) = Text4(ii).Text　　MyOPCItemColl.AddItems 4, ItemIDs, ClientHandles1

78、, ServerHandles, Errors '初始化OCP連接　　Next ii　　MyOPCGroup.IsSubscribed = True　　Option1.Value = True '連接成功標(biāo)志<b

79、>　　Exit Sub　　ErrorHandler:　　MsgBox "Error: " & Err.Description, vbCritical, "ERROR" '連接發(fā)生錯(cuò)誤　　End Sub</b&

80、gt;　　’退出按鈕動(dòng)作函數(shù)　　Private Sub Command3_Click()　　Unload Form1　　End Sub

81、　‘從服務(wù)器讀取變量　　Private Sub MyOPCGroup_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Dat

82、e)　　Dim ii As Long　　For ii = 1 To 4　　ItemIDsValue(ClientHandles(ii)) = ItemValues(ii) '對(duì)改變的值讀入本數(shù)組　　Text5(ClientHandles(ii)).Text = I

83、temIDsValue(ClientHandles(ii))　　Next ii　　End Sub　　'寫(xiě)入　　Private Sub Text8_Ch

84、ange(Index As Integer)　　Dim valuess(4) As Variant　　Dim ii As Long　　For ii = 1 To 4　　valuess(ii) = Text8(ii).Text　　M

85、yOPCGroup.SyncWrite 4, ServerHandles, valuess, Errors　　Next　　End Sub　　‘?dāng)嚅_(kāi)服務(wù)器連接

86、　Private Sub Command2_Click()　　On Error Resume Next　　MyOPCGroupColl.RemoveAll '釋放組和服務(wù)器對(duì)象　　MyOPCServer.Disconnect '與服務(wù)器斷開(kāi)連接并且清除

87、Set MyOPCItemColl = Nothing　　Set MyOPCGroup = Nothing　　Set MyOPCGroupColl = Nothing　　Set MyOPCServer = Nothing　　Option1.Value = False &#

88、39;連接成功標(biāo)志　　End Sub　　6 總結(jié)　　通過(guò)這次課程設(shè)計(jì)，我收獲頗豐。對(duì)于OPC這個(gè)名詞，我以前只是聽(tīng)說(shuō)過(guò)，現(xiàn)在我才發(fā)現(xiàn)OPC的強(qiáng)大和重要性所在。OPC作為一種通用的通訊協(xié)議接口，他為工業(yè)現(xiàn)場(chǎng)解決了很多復(fù)雜的問(wèn)題，在廣泛支持工

眾賞文庫(kù)> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無(wú)特殊說(shuō)明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

軟件課程設(shè)計(jì)報(bào)告(opc)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

軟件課程設(shè)計(jì)報(bào)告(opc)

文檔簡(jiǎn)介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載