System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)

Подождите немного. Документ загружается.

5. Replace the entire program code with the following program code:

Option Explicit

'-----------------------------------------------------

'Member Variables

'-----------------------------------------------------

'Reference to the AddIn Connection

Dim WithEvents ThisAddIn As grafexe.AddinHook

'Reference to the Grafics Designer Application

Dim WithEvents GrafApp As grafexe.Application

'-----------------------------------------------------

'WithEvents AddInInstance IDTExtensibility2 (automatic)

'-----------------------------------------------------

'------------------------------------------------------

'This

method connects the AddIn To the Graphic Designer Application

'------------------------------------------------------

Private Sub AddinInstance_OnConnection(ByVal Application As

Object, _

ByVal ConnectMode As

AddInDesignerObjects.ext_ConnectMode, _

ByVal AddInInst As Object,

custom() As Variant)

On Error GoTo AddinInstance_OnConnection_Error

'--------------------------------------------------------

' Hook up to the Graphics Designer application.IAddInHookEvents

interface.

' It is necessary referencing the application this AddIn hooks

up to

'--------------------------------------------------------

Dim GDApplication As grafexe.Application

Set GDApplication = Application

If (Not GDApplication Is Nothing) Then

'----------------------------------------------------

' Explanation on filters ( first parameter to

AddIns.Attach() )

' sbAddInFilterExecute : AddIn is not shown in the AddIn-

' (ThisAddIn_Execute() is NOT called)

' sbAddInFilterNone : AddIn is shown in the AddIn-Menu

and by

' clicking on the AddIn's menu entry

ThisAddIn_Execute()

' is called (see the figure below)

'------------------------------------------------------

Set ThisAddIn =

GDApplication.Addins.Attach(sbAddinFilterNone, "Create Rectangle")

Set GrafApp = GDApplication

RegisterApplicationMenus

End If

VBA for Automated Configuration

4.5 AddIns

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

2421

Exit Sub

AddinInstance_OnConnection_Error:

MsgBox Err.Description

End Sub

'------------------------------------------------------------

'This method removes the Add-In from VB by event disconnect

'------------------------------------------------------------

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As

AddInDesignerObjects.ext_DisconnectMode, _

custom() As Variant)

On Error GoTo AddinInstance_OnDisconnection_Error

If (RemoveMode = ext_dm_UserClosed) Then

RemoveApplicationMenus

End If

' -----------------------------------------------------------

' Release reference to IAddInHookEvents interface - Important

' -----------------------------------------------------------

Set ThisAddIn = Nothing

Set GrafApp = Nothing

Exit Sub

AddinInstance_OnDisconnection_Error:

MsgBox Err.Description

End Sub

'----------------------------------------------------------------

'This method describes the 2nd way to make AddIn functions

available in Graphics Designer

'By

adding an application menu in Graphics Designer the menu click

events can be catched by

'the MenuItemClicked event from the application object

'----------------------------------------------------------------

Private Sub RegisterApplicationMenus()

Dim objDocMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

Set objDocMenu = GrafApp.CustomMenus.InsertMenu(1, "DocMenu1",

"Doc_Menu_1")

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(1,

"dmItem1_1", "My first menu entry")

Set objMenuItem = objDocMenu.MenuItems.InsertMenuItem(2,

"dmItem1_2", "My second menu entry")

Set objMenuItem = Nothing

Set objDocMenu = Nothing

End Sub

'---------------------------------------------------------------

'This

method removes the AddIn menus available in Graphics Designer

'---------------------------------------------------------------

Private Sub RemoveApplicationMenus()

VBA for Automated Configuration

4.5 AddIns

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2422

System Manual, 11/2008,

Dim objDocMenu As HMIMenu

Dim objMenuItem As HMIMenuItem

For Each objMenuItem In

GrafApp.CustomMenus("DocMenu1").MenuItems

Set objMenuItem = Nothing

Next objMenuItem

GrafApp.CustomMenus("DocMenu1").Delete

Set objMenuItem = Nothing

Set objDocMenu = Nothing

End Sub

Private Sub AddinInstance_Terminate()

' --------------------------------------------------

' Release reference to IAddInHookEvents interface - Important

' --------------------------------------------------

Set ThisAddIn = Nothing

Set GrafApp = Nothing

End Sub

Private Sub GrafApp_MenuItemClicked(ByVal MenuItem As

grafexe.IHMIMenuItem)

Select Case MenuItem.Key

Case "dmItem1_1"

TestCall1

Case "dmItem1_2"

TestCall2

Case Else

Debug.Assert False

End Select

End Sub

'----------------------------------------------------------

'You

can call both of the following procedures by clicking the menu

item in the "DocMenu1"

'----------------------------------------------------------

Sub TestCall1()

Call MsgBox("AddIn Menu: dmItem1_1 Clicked", vbInformation,

"GrafApp_MenuItemClicked")

End Sub

Sub TestCall2()

Call MsgBox("AddIn Menu: dmItem1_2 Clicked", vbInformation,

"GrafApp_MenuItemClicked")

End Sub

'--------------------------------------------------------

'Registering an AddInHook creates an object which event

'can be executed by clicking "Extras\Macros\AddIns\<Registered

Name>"

'--------------------------------------------------------

Private Sub ThisAddIn_Execute()

MsgBox ("AddIn : Execute! Will create a new Rectangle now")

Dim NewShape As HMIObject

VBA for Automated Configuration

4.5 AddIns

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

2423

Set NewShape =

GrafApp.ActiveDocument.HMIObjects.AddHMIObject("Rectangle1",

"HMIRectangle")

With NewShape

.Top = 40

.Left = 40

.BackColor = 255

End With

MsgBox (NewShape.ObjectName)

End Sub

6. Create the addin, and load it in the Graphics Designer.

Result

The next time you open it, Graphics Designer will contain a user-defined menu called

"DocMenu1".

The menu "Tools" > "AddIns" contains an entry called "Create Rectangle", which

pastes a rectangle into the active picture:

See also

Loading an Addin in the Graphics Designer (Page 2417)

Example: Creating Add Ins (Page 2418)

4.6 VBA in Other WinCC Editors

4.6.1 VBA in Other WinCC Editors

Introduction

VBA allows you to access other WinCC editors such as Tag Logging. The following editors

can be automated with VBA in addition to Graphics Designer:

● Tag Management

● Tag Logging

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2424

System Manual, 11/2008,

● Text library

● Alarm Logging

The functions for accessing the editors are contained in the HMIGO class.

Requirements

The "HMIGenObjects.dll" file is referenced. This happens automatically during WinCC

installation.

Principle

To enable you to have access to the HMIGO class with VBA, you must reference the "HMI

GeneralObjects

1.0 Type Library" in the VBA editor ("Project" > "References"). You must create

a new instance of this class in the program code, e.g.:

'Dim HMIGOObject As New HMIGO

Create several different objects of this class if access several objects at the same time. Two

instances

of the HMIGO class are required, for example, in Tag Logging: The first instance is

required for access to the archive tags, the second instance for access to the process value

archive.

Usage

The functions provided by the HMIGO class provided you with access to Tag Management,

Tag Logging, the Text Library, and Alarm Logging. To enable you to use the functions in VBA,

you must have opened a project in WinCC. In addition, you can also access the properties of

the class directly.

In this way, directly from the program code you can, for example, created several tags and

change their values, edit text entries in the TextLibrary, or customize messages.

Querying Object State

The HMIGO class has the enumeration HMIGO_OBJECT_STATE which returns the state of

the specified object. The enumeration can return the following values:

● OBJECT_EMPTY (2): Connection to the object is not available.

● OBJECT_OPENED (3): Connection to objects exists. You can change and read its

parameters.

● OBJECT_MODIFIED (4): An object's parameters have been changed. If the corresponding

Commit function is not called, the changes are not saved.

● WINCC_CONNECTED (1): The object is connected to the WinCC project. By default this

connection is established when a function is called the first time. To release the connection,

use e.g. the instruction HMIGO = nothing.

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

2425

Error Handling

Errors can occur when you use the HMIGO class. Use the OnError statement to respond to

these error messages. The OnError statement must come before the call of a function from

the HMIGeneralObjects class:

Sub CreateTag()

'HMIGO_000

Dim hmiGOTag as New HMIGO

On Error GoTo ErrorHandlerHMIGO

hmiGOTag.CreateTag "NewTag", TAG_BINARY_TAG, "ExistingConnection", "DB1,DD0,QC",

"NewOrExistingGroupName"

'...

Exit Sub

ErrorHandlerHMIGO:

MsgBox ("Error: " & Err.Number & " " & Err.Description & " " & Err.Source)

Resume Next

End Sub

As a result, an error text returned by the interface is output.

See also

VBA in Alarm Logging (Page 2478)

VBA in the Text Library (Page 2465)

VBA in Tag Logging (Page 2438)

VBA in Tag Management (Page 2426)

4.6.2 VBA in Tag Management

4.6.2.1 VBA in Tag Management

Introduction

VBA allows you to create tags directly from the program code, modify and delete them, and

read out and change their properties, types, and values.

Principle

When you have created the instance of the HMIGO class, the following functions are available

to you to access the tag management facility:

● CloseTag

● CommitTag

● CreateTag

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2426

System Manual, 11/2008,

● DeleteTag

● GetTag

● ListTag

The enumerations "HMIGO_TAG_TYPE" and "HMIGO_TAG_LIST_TYPE" are available for

the parameter assignment of these functions.

Note

You should not have or should not open the tag in Tag Management when editing with

VBA.

If you wish to change the data type of a tag, you must first delete the tag and then regenerate

it. You must save the parameters first in order to be able to transfer them following the

generation of tags.

Note

If you set the start value to a binary tag, use the values "0" or "1". Do not use the values

"False"

or "True". These values are no longer valid for VBA programming in WinCC and will

result in an error message.

Replace the values "False" and "True" with "0" and "1" in your existing VBA code.

Access to the Object Properties

You can also access the parameters of the above-mentioned functions directly in VBA by

means of the following object properties:

Object property Description Read/Write

ObjectStateTag Returns the object state via the enumeration

HMIGO_OBJECT_STATE. Further information on this

enumeration

can be found in this documentation under "VBA in

other WinCC Editors".

Yes/no

TagName Name of the tag Yes/no

TagGroupName Name of a group in which the tag is inserted. If the group does

not

yet exist, it is created. If no group name is specified, the tag

is created outside all groups.

Yes/no

TagConnection Name of a connection in which the tag and/or group is to be

created. The connection must already be in existence,

otherwise a tag cannot be created. If the name is omitted, an

internal tag is created.

Yes/no

TagMaximum Sets the new value of the upper limit Yes/yes

TagMinimum Sets the new value of the lower limit Yes/yes

TagStart Sets the new start value Yes/yes

TagS5S7Addres

Address of the S7 or S5 PLC to which the tag is connected. If

no address is specified, a blank entry is passed.

Yes/yes

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

2427

Object property Description Read/Write

TagType

(Enum)

Data type of the tag. The possible types are:

● TAG_BINARY_TAG (1)

● TAG_SIGNED_8BIT_VALUE (2)

● TAG_UNSIGNED_8BIT_VALUE (3)

● TAG_SIGNED_16BIT_VALUE (4)

● TAG_UNSIGNED_16BIT_VALUE (5)

● TAG_SIGNED_32BIT_VALUE (6)

● TAG_UNSIGNED_32BIT_VALUE (7)

● TAG_FLOATINGPOINT_NUMBER_32BIT_IEEE_754 (8)

● TAG_FLOATINGPOINT_NUMBER_64BIT_IEEE_754 (9)

● TAG_TEXT_TAG_8BIT_CHARACTER_SET (10)

● TAG_TEXT_TAG_16BIT_CHARACTER_SET (11)

● TAG_RAW_DATA_TYPE (12)

● TAG_STRUCT (14)

● TAG_TEXT_REFERENCE (18)

Yes/no

TagUpdate

(Enum)

Defines whether the tag is updated on the local computer or for

the entire project. (For internal tag only.)

● TAG_COMPUTER_LOCAL (1)

● TAG_PROJECT_WIDE (2)

Yes/yes

LengthText Length of a text tag (0...255)

"LengthText" can also be used for the length of the raw data

tag. A testing of the correctness of the length will not be

conducted. Observe the instructions of the communication

channels.

yes/yes

(only

for external

tag of type test)

TagScaleValid Defines a linear scaling. Yes/yes

TagScaleParam1 Sets the value1 for the value range process. Yes/yes

TagScaleParam2 Sets the value2 for the value range process. Yes/yes

TagScaleParam3 Sets the value1 for the value range tag. Yes/yes

TagScaleParam4 Sets the value2 for the value range tag. Yes/yes

TagStartvaluePe

rsistence

Defines whether an internal tag is set as persistent. Yes/yes

TagSubst Replacement value (only for external variables) Yes/yes

UseSubstValueO

nCommonError

Set the replacement value for connection errors. Yes/yes

UseSubstValueO

nMaxLimit

Set the replacement value for upper limit. Yes/yes

UseSubstValueO

nMinLimit

Set the replacement value for lower limit. Yes/yes

UseSubstValueO

nStartValue

Set the replacement value for the start value. Yes/yes

You will find a description of the properties under the parameter descriptions for the

corresponding functions.

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2428

System Manual, 11/2008,

Note

The "Tag synchronization" point in the property dialog of tags is not addressable with VBA.

Tag synchronization is only available for internal tags.

For external tags, the "Type Conversion" point is not addressable with VBA.

See also

ListTag function (Page 2436)

GetTag Function (Page 2435)

DeleteTag Function (Page 2434)

CreateTag Function (Page 2432)

CommitTag Function (Page 2430)

CloseTag Function (Page 2429)

VBA in Other WinCC Editors (Page 2424)

4.6.2.2 CloseTag Function

Description

Closes the open tag.

Note

Modified parameters are not saved.

Syntax

Expression.CloseTag()

Expression

Necessary. An expression which returns a "HMIGO" type object.

Parameters

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

System Manual, 11/2008,

2429

Example:

Sub CloseTag()

' HMIGO_001

' procedure to close a variable

' tag need to be created before

' declarations

Dim objHMIGO As HMIGO

Dim strVariableName As String

Set objHMIGO = New HMIGO

strVariableName = "NewVariable"

'current status is "EMPTY"

MsgBox objHMIGO.ObjectStateTag, vbOKOnly, "Status Variable"

'open a tag

objHMIGO.GetTag strVariableName

'current status is "OPENED"

MsgBox objHMIGO.ObjectStateTag, vbOKOnly, "Status Variable"

'open a tag

objHMIGO.CloseTag

'current status is "EMPTY"

MsgBox objHMIGO.ObjectStateTag, vbOKOnly, "Status Variable"

Set objHMIGO = Nothing

End Sub

See also

ListTag function (Page 2436)

GetTag Function (Page 2435)

DeleteTag Function (Page 2434)

CreateTag Function (Page 2432)

CommitTag Function (Page 2430)

VBA in Tag Management (Page 2426)

4.6.2.3 CommitTag Function

Description

Writes the changed parameters of the open tag to WinCC.

Note

If further parameters are changed after a CommitTag call, write the changes to WinCC by

calling this function again.

VBA for Automated Configuration

4.6 VBA in Other WinCC Editors

MDM - WinCC: Scripting (VBS, ANSI-C, VBA)

2430

System Manual, 11/2008,