VB開發(fā)BACnetIP主站介紹

時間：2013-08-12作者：上海迅饒自動化科技有限公司瀏覽：95

Visual Basic開發(fā)BACnet IP主站程序方法介紹 這里要說的方法就是調(diào)用BACnet IP主站快速開發(fā)工具OMBACnetIPMaster.dll。 步驟1、創(chuàng)建通道，而通道管理所有的Bacnet屬性對象。參數(shù)分別IP地址，端口號和網(wǎng)絡(luò)**時時間，默認(rèn)是100毫秒。 Private Sub OpenChannelButton_Click() StringToByte txtIPAddress, IPAddress() ChannelHandle(0) = CreateBacnetChannel(IPAddress(0), CLng(txtPort), 100) End Sub 通道編輯操作的相關(guān)API函數(shù)聲明如下 ‘ 通道管理用于創(chuàng)建、修改、刪除通道。創(chuàng)建通道以后，才能創(chuàng)建Bacnet屬性對象 ‘ 創(chuàng)建一個通道對象只要是為了設(shè)置不同設(shè)備的IP地址和端口號。網(wǎng)絡(luò)**時等待時間默認(rèn)是100毫秒 Function CreateBacnetChannel Lib 'OMBacnetIPMaster.dll' Alias '_CreateChannel@12' (ByRef IPAddress As Byte, ByVal nPort As Long, ByVal nTimeOut As Long) As Long Function ConfigureChannel Lib 'OMBacnetIPMaster.dll' Alias '_ConfigureChannel@16' (ByVal ChannelHandle As Long, ByRef IPAddress As Byte, ByVal nPort As Long, ByVal nTimeOut As Long) As Long Function RemoveChannel Lib 'OMBacnetIPMaster.dll' Alias '_RemoveChannel@4' (ByVal ChannelHandle As Long) As Long 步驟2、創(chuàng)建Bacnet屬性對象。 Private Sub CreateBacnetObjButton_Click() TagHandle(0) = CreateBacnetObj(ChannelHandle(0), 1, 1, 85) End Sub BACnet屬性對象編輯相關(guān)的API函數(shù)申明如下 ‘ BACnet對象管理，創(chuàng)建、修改、刪除 ‘參數(shù) ChannelHandle 為通道對象的句柄 ‘參數(shù) nBacnetObjType 為Bacent屬性對象的類型ID，譬如0表示 Analog Input，1表示Analog Output ‘參數(shù) nInstanceNum 為指明哪一個對象，譬如要訪問Analog Input 1。則 nInstanceNum為1 ‘參數(shù) nProperityID 為要訪問屬性的ID，譬如當(dāng)前值的屬性ID是85 ‘參數(shù) TagHandle 為Bacnet對象的句柄 Function CreateBacnetObj Lib 'OMBacnetIPMaster.dll' Alias '_CreateBacnetObject@16' (ByVal ChannelHandle As Long, ByVal nBacnetObjType As Long, ByVal nInstanceNum As Long, ByVal nProperityID As Long) As Long Function ConfigureObject Lib 'OMBacnetIPMaster.dll' Alias '_ConfigureObject@16' (ByVal ChannelHandle As Long, ByVal nBacnetObjType As Long, ByVal nInstanceNum As Long, ByVal nProperityID As Long) As Long Function RemoveBacnetObject Lib 'OMBacnetIPMaster.dll' Alias '_RemoveBacnetObject@4' (ByVal TagHandle As Long) As Long 步驟3、BACnet屬性對象的讀寫 Private Sub WriteBacnetObjectButtton_Click() error = WriteBacnetObj(TagHandle(0), CSng(Tag2.Text), 0) End Sub Private Sub ReadBacnetObjButton_Click() Dim a As Variant error = ReadBacnetObj(TagHandle(0), a) Tag1.Text = a End Sub ‘ BACnet對象屬性值讀寫 ‘參數(shù) nTagNum 為Bacnet對象的Tag Number。也就是要寫的對象屬性的數(shù)據(jù)類型。當(dāng)操作過ReadBacnet以后，這個參數(shù)可以為空。 ‘當(dāng)只寫操作的時候，則需要用戶自己指明是什么數(shù)據(jù)類型。譬如Analog Output為4.也就是單精度浮點(diǎn)型。 Function ReadBacnetObj Lib 'OMBacnetIPMaster.dll' Alias '_ReadBacnetObject@8' (ByVal TagHandle As Long, ByRef Value As Variant) As Long Function WriteBacnetObj Lib 'OMBacnetIPMaster.dll' Alias '_WriteBacnetObject@12' (ByVal TagHandle As Long, ByRef Value As Variant, ByVal nTagNum As Long) As Long 步驟4、關(guān)閉程序時，釋放對象資源。 Private Sub RemoveBacnetObjButton_Click() error = RemoveBacnetObject(ByVal TagHandle(0)) End Sub Private Sub RemoveChannelButton_Click() error = RemoveChannel(ByVal ChannelHandle(0)) End Sub 最后討論一下輔助函數(shù)的作用 ‘以下是輔助函數(shù)，可以選擇性使用 ‘設(shè)置寫操作的**等級 Function SetBacnetPriority Lib 'OMBacnetIPMaster.dll' Alias '_SetBacnetPriority@8' (ByVal TagHandle As Long, ByVal nPriority As Long) As Long ‘返回Bacnet對象屬性的數(shù)據(jù)類型，一般用于寫操作 Function GetBacnetObjType Lib 'OMBacnetIPMaster.dll' Alias '_GetBacnetObjType@4' (ByVal TagHandle As Long) As Long ‘通信故障狀況回調(diào)函數(shù) Function EnableErrorMsgNofity Lib 'OMBacnetIPMaster.dll' Alias '_EnableErrorMsgNofity@4' (ByVal Callback As Long) As Long Function EnableAbortMsgNofity Lib 'OMBacnetIPMaster.dll' Alias '_EnableAbortMsgNofity@4' (ByVal Callback As Long) As Long Function EnableRejectMsgNofity Lib 'OMBacnetIPMaster.dll' Alias '_EnableRejectMsgNofity@4' (ByVal Callback As Long) As Long


上海迅饒自動化科技有限公司專注于BTL認(rèn)證協(xié)議BACnet網(wǎng)關(guān),Modbus轉(zhuǎn)BACnet網(wǎng)關(guān),OPC轉(zhuǎn)BACnet,協(xié)議轉(zhuǎn)換Modbus網(wǎng)關(guān),改造項(xiàng)目協(xié)議轉(zhuǎn)換HUB網(wǎng)關(guān),協(xié)議轉(zhuǎn)換WEB組態(tài)觸摸屏等

• 詞條

  詞條說明

• BACnet IP和 Ethernet協(xié)議的異同點(diǎn)

  BACnet IP和 Ethernet協(xié)議的異同點(diǎn) 從工程技術(shù)的角度分析2者的差別，有不對的地方請專業(yè)人士不吝賜教！ 1、主要的相同點(diǎn)如下。 a、NPDU的內(nèi)容是一樣的。以讀Binary-output 1的Object-Name屬性為例。 NNPU為：01 04 00 05 01 0c 0c 01 00 00 01 19 4d b、通訊的物理介質(zhì)相同。都是通過網(wǎng)口 2、不同點(diǎn)如下： BACnet

• C++開發(fā)BacnetIP主站程序

  C++開發(fā)BacnetIP主站程序 這里要說的方法就是調(diào)用Bacnet IP主站快速開發(fā)工具OMBacnetIPMaster.dll。 步驟1、引用頭文件和LiB文件 #include "OM_BacnetIP_API.h" #pragma comment (lib, "OMBacnetIPMaster.lib") 把OMBacnetIPMaster.dll放到新建的VC++工程的同一個文件夾

• VB開發(fā)BACnetIP主站介紹

  ? Visual Basic開發(fā)BACnet IP主站程序方法介紹 這里要說的方法就是調(diào)用BACnet IP主站快速開發(fā)工具OMBACnetIPMaster.dll。 步驟1、創(chuàng)建通道，而通道管理所有的Bacnet屬性對象。參數(shù)分別IP地址，端口號和網(wǎng)絡(luò)**時時間，默認(rèn)是100毫秒。 Private Sub OpenChannelButton_Click() StringToByte t

• 智能網(wǎng)關(guān)在智能家居中的應(yīng)用

  智能網(wǎng)關(guān)在智能家居中的應(yīng)用 通過協(xié)議網(wǎng)關(guān)將數(shù)據(jù)采集到手機(jī)，IPAD或者電腦上，控制家中的任何設(shè)備。 -用BACnet協(xié)議網(wǎng)關(guān)，節(jié)約組態(tài)軟件的費(fèi)用，*； -網(wǎng)頁界面可根據(jù)客戶的要求設(shè)計(jì)，根據(jù)客戶的需求實(shí)現(xiàn)功能； 實(shí)現(xiàn)的功能有： 1.控制燈的開關(guān)； 2.設(shè)置空調(diào)的溫度； 3.電動窗簾的控制； 4.等等；