Scribd
Upload
176 views

Excel Using Hart

UsingHartDLL.xls in Excel opens and appears with a button in the upper left corner. Enter the com port number of the port you have connected a device to. Press the button and the Visual Basic Editor will appear because the program was stopped at a 'breakpoint' the following is an example of the declaration of one of the functions in the DLL.

Uploaded by

Ahmed Abdulrhman
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
176 views

Excel Using Hart

UsingHartDLL.xls in Excel opens and appears with a button in the upper left corner. Enter the com port number of the port you have connected a device to. Press the button and the Visual Basic Editor will appear because the program was stopped at a 'breakpoint' the following is an example of the declaration of one of the functions in the DLL.

Uploaded by

Ahmed Abdulrhman
Copyright
© Attribution Non-Commercial (BY-NC)
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 3

Hart Tools

Using Hart in Excel


Software Documentation
Walter Borst, April 2010

Getting Started
The worksheet which is used is very simple.

Double click the file UsingHartDLL.xls in the example path


.\Examples\HartDLL\Excel. Excel opens and appears with a
button in the upper left corner. Enter the com port number of
the port you have connected a device to. Press the button and
the Visual Basic Editor will appear because the program was
stopped at a ‘breakpoint’.

'Connect to device with address 0


hSrv = BHDrv_ConnectByAddr(hDrv, 0, DRV_WAIT, 2)
If hSrv <> INVALID_SRV_HANDLE _
Then
BHDrv_FetchConnection hSrv, strConnection
If strConnection.byError = SRV_SUCCESSFUL _
Then
'Read tag, descriptor and date
hSrv = BHDrv_DoCommand
(hDrv, 13, DRV_WAIT, byReqData(0), 0, 0, ByVal strConnection.sUniqueID)
If hSrv <> INVALID_SRV_HANDLE _
Then
BHDrv_FetchConfirmation hSrv, strConfirmation
If strConfirmation.byError = SRV_SUCCESSFUL _
Then
Range("B3") = Format(BHDrv_PickInt8(18, ByVal strConfirmation.sData), "0")
Range("C3") = Format(BHDrv_PickInt8(19, ByVal strConfirmation.sData), "0")
Range("D3") = Format(BHDrv_PickInt8(20, ByVal strConfirmation.sData) + 1900, "0")
Stop

Code Snippet 1: Getting Started

http://borst-automation.com
[email protected]

Download: http://borst-automation.com/downloads/UsingHartInExcel.zip

Hart® is a registered trademark of the Hart Communication Foundation


Windows® is a registered trademark of Microsoft Corporation

Using Hart in Excel Software Documentation ▪ 1


Hart Tools

Coding Details
While the module HartTest is containing
the little test program the module
HartInterface contains the necessary
structures and functions declarations. The
following is an example of the declaration
of one of the functions in the DLL.
Public Declare Function BHDrv_DoCommand Lib "BaHartDrv70.dll" _
(ByVal hDrv As Long, _
ByVal byCmd As Byte, _
ByVal byQOS As Byte, _
pstrRequestData As Any, _
ByVal byReqLen As Byte, _
ByVal lAppKey As Long, _
pstrUniqueID As Any _
) As Long

Code Snippet 2: Declaration of a HartDLL Function

Adjust Working Directory


The first sequence is used to adjust the current directory to the
path with the DLL.
'Set working directory relative to xls path to
'allocate the directory with the DLL
sDir = ActiveWorkbook.Path
sDrive = Left$(sDir, 2)
ChDrive sDrive
ChDir sDir
ChDir "..\..\..\"

Code Snippet 3: Setting the Working Directory

Set License Key


Then the license key is registered.
'Set the license information
BHDrv_ValidateLicense ByVal "12345678-ABCD-9012-DDDD-1234567TRIAL"

Code Snippet 4: Registering the License

Open Port
For opening the com port the number of the port is taken from
the excel sheet.
'Open Com from Cell E2
'Configuration will be default
iComPort = Range("E2")
hDrv = BHDrv_OpenChannel(iComPort)

Code Snippet 5: Opening a Communication Channel

Connect
The connection is established to retrieve the unique identifier
from the device and store it into the structure strConnection.
The unique identifier is stored in the application program to
allow also the operation with multiplexer devices.
'Connect to device with address 0
hSrv = BHDrv_ConnectByAddr(hDrv, 0, DRV_WAIT, 2)
If hSrv <> INVALID_SRV_HANDLE _
Then
BHDrv_FetchConnection hSrv, strConnection

Code Snippet 6: Connecting to the Hart Device

Using Hart in Excel Software Documentation ▪ 2


Hart Tools

Read Date
If the connection was O.K. command 13 is send to get tag,
descriptor and date.
'Read tag descriptor date
hSrv = BHDrv_DoCommand(hDrv, 13, DRV_WAIT, byReqData(0), 0, 0, ByVal strConnection.sUniqueID)
If hSrv <> INVALID_SRV_HANDLE _
Then
BHDrv_FetchConfirmation hSrv, strConfirmation
If strConfirmation.byError = SRV_SUCCESSFUL _
Then
Range("B3") = Format(BHDrv_PickInt8(18, ByVal strConfirmation.sData), "0")
Range("C3") = Format(BHDrv_PickInt8(19, ByVal strConfirmation.sData), "0")
Range("D3") = Format(BHDrv_PickInt8(20, ByVal strConfirmation.sData) + 1900, "0")
Stop

Code Snippet 7: Sending a Command and Retrieving the Confirmation

The data from the response frame is stored in cells B3, C3 and
D3 of the worksheet.

Write Date

Prepare Request Frame


Firstly the response data is copied to the byte stream for the
request.
'Copy the response to the request
For e = 0 To 17
byReqData(e) = BHDrv_PickInt8(e, ByVal strConfirmation.sData)
Next e

Code Snippet 8: Copying Response Bytes

Then day, month and year are picked from the excel worksheet
and are inserted into the request data byte array.
'Set day
byReqData(18) = Range("B4")
'Set month
byReqData(19) = Range("C4")
'Set Year
byReqData(20) = Range("D4") - 1900

Code Snippet 9: Insert New Date

Send Command 18
Finally command 18 is sent.
'Send command 18
hSrv = BHDrv_DoCommand(hDrv, 18, DRV_WAIT, byReqData(0), 21, 0, ByVal strConnection.sUniqueID)

Code Snippet 10: Perform Command 18

Read Back Date


As a last sequence the date is read back and stored in the cells
B5, C5 and D5.
'Read back tag descriptor date
hSrv = BHDrv_DoCommand(hDrv, 13, DRV_WAIT, byReqData(0), 0, 0, ByVal strConnection.sUniqueID)
If hSrv <> INVALID_SRV_HANDLE _
Then
BHDrv_FetchConfirmation hSrv, strConfirmation
If strConfirmation.byError = SRV_SUCCESSFUL _
Then
Range("B5") = Format(BHDrv_PickInt8(18, ByVal strConfirmation.sData), "0")
Range("C5") = Format(BHDrv_PickInt8(19, ByVal strConfirmation.sData), "0")
Range("D5") = Format(BHDrv_PickInt8(20, ByVal strConfirmation.sData) + 1900, "0")

Code Snippet 11: Send Command 13 and Display the Result

Using Hart in Excel Software Documentation ▪ 3

You might also like