Using Hart in Excel - Borst Automation

Hart Driver DLL V 7.4, Using Hart with Excel, Walter BorstExample Description1 Getting StartedDouble click the file UsingHartDLL.xlsm.Excel opens and appears with a button onone of the sheets. Press the button and theVisual Basic Editor will appear because theprogram was stopped at a breakpoint.If strConnection.byError = SRV_SUCCESSFUL Then'Read Tag Descriptor DatehSrv = BHDrv_DoCommand(hDrv, _13, _DRV_WAIT, _byReqData(0), _0, _0, _ByVal strConnection.sUniqueId)BHDrv_FetchConfirmation hSrv, strConfirmationStopElseStopEnd IfThe program stops at this point because a connection to a device could not be established. If youconnect a real or a simulated device to the com port which was opened by'Open Com from Cell E2'Configuration will be defaultiComPort = Range("E2")Drv = BHDrv_OpenChannel(2)the software will reach the other Stop statement providing the Tag Name of the connected device.2 ModulesDLL.While the module HartTest is containing the little test program the moduleHartInterface contains the necessary structures and functions declarations.The following is an example of the declaration of one of the functions in thePublic Declare Sub BHDrv_FetchConfirmation Lib "BaHartDrv74.dll" _(ByVal hService As Long, _strConfData As Any _)Version 7.4.0, Feb, 2nd, 2014© 1998-2014, Borst Automation, Walter Borst, Cuxhaven, DE Page 1 of 2

Hart Driver DLL V 7.4, Using Hart with Excel, Walter BorstExample DescriptionThe declaration of structures has to be done like the following.Type T_strConfirmationbyCmd As Byte 'The Hart command which was servicedbyResp1 As Byte 'Command response codebyResp2 As Byte 'Device statusbyError As Byte 'Last errorbyUsedRetries As Byte 'Number of retries used for the servicebDeviceInBurstMode As Byte'Indicates if device is burstingiDuration As Integer 'Duration for the service in mslAppKey As Long 'A key provided by and returned to the'applicationusExtCmd As Integer 'Extended (16 Bit) commandbyReserved1 As BytebyDataLen As Byte 'Length of productive datasDataAs String * 255 'Productive data in the responseEnd Type3 ContactBorst AutomationNeue Reihe 33DE-27472 CuxhavenGERMANYVoice: +49 (0)4721 6985-100Fax: +49 (0)4721 6985-102Email: info@borst-automation.deHome: http://borst-automation.comVersion 7.4.0, Feb, 2nd, 2014© 1998-2014, Borst Automation, Walter Borst, Cuxhaven, DE Page 2 of 2