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

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

3. To configure an event-oriented VB action with VBA, you can for example insert a

"CreateVBActionToClickedEvent()" procedure in the document. In this example a button

and

a circle will be inserted in the active picture. In Runtime the radius of the circle enlarges

every time you click the button:

Sub CreateVBActionToClickedEvent()

'VBA67

Dim objButton As HMIButton

Dim objCircle As HMICircle

Dim objEvent As HMIEvent

Dim objVBScript As HMIScriptInfo

Dim strCode As String

strCode = "Dim myCircle" & vbCrLf & "Set myCircle = "

strCode = strCode &

"HMIRuntime.ActiveScreen.ScreenItems(""Circle_VB"")"

strCode = strCode & vbCrLf & "myCircle.Radius = myCircle.Radius +

Set objCircle =

ActiveDocument.HMIObjects.AddHMIObject("Circle_VB", "HMICircle")

Set objButton =

ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")

With objCircle

.Top = 100

.Left = 100

.BackColor = RGB(255, 0, 0)

End With

With objButton

.Top = 10

.Left = 10

.Width = 120

.Text = "Increase Radius"

End With

'Define event and assign sourcecode:

Set objVBScript =

objButton.Events(1).Actions.AddAction(hmiActionCreationTypeVBScrip

With objVBScript

.SourceCode = strCode

End With

End Sub

4. Start the procedure with <F5>.

See also

Actions Object (Listing) (Page 1810)

ScriptInfo Object (Page 1948)

Events Object (Listing) (Page 1863)

Configuring Event-Driven Actions with VBA (Page 1644)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

System Manual, 11/2008,

1651

4.3.5.4 Editing Triggers

Editing Triggers

Introduction

You use triggers in connection with dynamics for graphics objects and for triggering actions

on object properties. Examples of triggers include:

● Tags: When the value of a tag is changed or its limit is exceeded at either extreme

● Standard cycle: Cyclic execution of the action. The length of the cycles is selectable

between 250 ms and 1 h. In addition, you can also use customized cycles that you define

yourself.

● Picture cycle: A cyclic trigger is used as the trigger. This cycle provides the option of defining

the

cycles of all the actions, tag connections and dynamic dialogs used in a picture centrally.

● Window Cycle: A cyclic trigger is used as the trigger. This values applies to all actions, tag

links and dynamic dialogs, which were configured with the trigger type "Window cycle".

When you configure an action that responds to an event on a graphics object, the triggering

event is the trigger.

Configuring triggers with VBA

Use the Trigger object to configure a trigger with VBA. If you intend to use a variable as the

trigger, use the VariableTrigger object:

You determine the type of trigger with the Type property. Use the VariableTriggers property

when you configure a variable as the trigger.

See also

Examples of Editing Triggers with VBA (Page 1653)

VariableTrigger Object (Page 1989)

Trigger Object (Page 1974)

ScriptInfo Object (Page 1948)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

1652

System Manual, 11/2008,

Examples of Editing Triggers with VBA

Introduction

The four examples below illustrate how you can create the following triggers with VBA:

● Standard cycle

● Tag

● Picture cycle

● Window Cycle

In all of these examples a circle is inserted into the active picture, with the radius of the circle

being dynamized with a VB action.

The procedure for adding dynamics to a property with variable connection is explained under

"Adding dynamics to a property with a variable connection" in this documentation.

Example 1: Standard cycle

Sub DynamicWithStandardCycle()

'VBA68

Dim objVBScript As HMIScriptInfo

Dim objCircle As HMICircle

Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_Standard", "HMICircle")

Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

.Trigger.Type = hmiTriggerTypeStandardCycle

'"CycleType"-specification is necessary:

.Trigger.CycleType = hmiCycleType_10s

.Trigger.Name = "VBA_StandardCycle"

.SourceCode = ""

End With

End Sub

Example 2: Tag

Sub DynamicWithVariableTriggerCycle()

'VBA69

Dim objVBScript As HMIScriptInfo

Dim objVarTrigger As HMIVariableTrigger

Dim objCircle As HMICircle

Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_VariableTrigger",

"HMICircle")

Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

Set objVarTrigger = .Trigger.VariableTriggers.Add("VarTrigger", hmiVariableCycleType_10s)

.SourceCode = ""

End With

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

System Manual, 11/2008,

1653

End Sub

Example 3: Picture cycle

Sub DynamicWithPictureCycle()

'VBA70

Dim objVBScript As HMIScriptInfo

Dim objCircle As HMICircle

Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_Picture", "HMICircle")

Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

.Trigger.Type = hmiTriggerTypePictureCycle

.Trigger.Name = "VBA_PictureCycle"

.SourceCode = ""

End With

End Sub

Example 4: Window Cycle

Sub DynamicWithWindowCycle()

'VBA71

Dim objVBScript As HMIScriptInfo

Dim objCircle As HMICircle

Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_Window", "HMICircle")

Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)

With objVBScript

.Trigger.Type = hmiTriggerTypeWindowCycle

.Trigger.Name = "VBA_WindowCycle"

.SourceCode = ""

End With

End Sub

See also

VariableTrigger Object (Page 1989)

Trigger Object (Page 1974)

ScriptInfo Object (Page 1948)

Editing Triggers (Page 1652)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

1654

System Manual, 11/2008,

4.3.6 Event Handling

Introduction

In the Graphics Designer, events occur when certain actions are taken (for example when a

picture

is opened). You can respond to an event with a predefined VBA event handler in order

to execute instructions.

The events occur only during configuring in the Graphics Designer and are not available in

Runtime. These events must not be confused with the events (e.g. mouse click, property

change) occurring on graphic objects and pictures.

NOTICE

When the Graphics Designer is open, events are also triggered by other editors.

. This applies, for example, to the modification of picture properties in WinCCExplorer. Close

the Graphics Designer when you are making changes to pictures in other editors. This

prevents events from being executed when you do not want them to be.

Note

If you open a picture in Graphics Designer, not only the "DocumentOpened event" of the

active picture but also that of the "Project Template" and of the "Global Template" are

triggered. The VBA code of the "DocumentOpened event" is thereby executed twice.

You must intercept this behavior with the event handler.

General Procedure

In event handling there are events with and without forwarding. You can recognize an event

with forwarding by the presence of the "CancelForwarding" parameter. An event without

forwarding

does not have this parameter. When an event occurs, it is sent to the active picture

and then forwarded to the "Global Template".

An event with forwarding is therefore forwarded by default via the document "Project Template"

to the document "Global Template".

Preventing forwarding

You can prevent the forwarding of an event by setting the "CancelForwarding" parameter to

"True" in the VBA event handler:

Sub Document_HMIObjectPropertyChanged(ByVal Property As IHMIProperty, CancelForwarding As

Boolean)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

System Manual, 11/2008,

1655

'VBA72

CancelForwarding = True

MsgBox "Object's property has been changed!"

End Sub

Picture-specific and application-specific events

Quite apart from the information given above about events with and without forwarding, the

Graphics Designer differentiates between picture-specific and application-specific events:

Picture-specific events

Picture-specific events always respond to actions that occur in the active picture in the

Graphics Designer. Such actions include, for example, the changing of object properties or

saving

the active picture. You can obtain a list of available picture-specific events by choosing

"Document" in the VBA editor:

Application-specific events

Application-specific events respond to actions that occur in the "Graphics Designer"

application. Such actions include, for example, starting the Graphics Designer or creating an

object in the component library.

To make the application-specific events available, write the following statement in the VBA

editor at the start of the document (preferably the "Project Template" or "Global Template"):

Dim WithEvents <Name> As grafexe.Application

The effect of this statement is that it will now also be possible to select the application-specific

events from the list in the Graphics Designer:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

1656

System Manual, 11/2008,

Example 1: Occurrence of an event with forwarding

The illustration shows the sequence that follows from the occurrence of an event with

forwarding:

Note

There are events which are both picture-specific and application-specific (for example

BeforeDocumentSave). When such an event occurs, the program checks whether the

corresponding application-specific event handler has been defined. The sequence shown

above does not begin until after that.

Example 2: Occurrence of an event without forwarding

The illustration shows the sequence that follows from the occurrence of an event without

forwarding:

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

System Manual, 11/2008,

1657

Disabling event handling

You can disable event handling by setting the "DisableVBAEvents" property for the Application

object to "True".

See also

DisableVBAEvents Property (Page 2092)

Organizing VBA Code in a WinCC Project (Page 1562)

4.3.7 Accessing External Applications with VBA

4.3.7.1 Accessing External Applications with VBA

Introduction

You can use VBA to access programs which support VBA, for example products in the

Microsoft Office family. This enables you, for example, to read out values from an MS Excel

worksheet and then assign these to object properties.

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

1658

System Manual, 11/2008,

Registering an external application

You have to integrate an external application in the VBA editor in order to make its object library

available.

To do this, select the "References" option in the "Tools" menu in the VBA editor. In

the "References" dialog you can then select the required object library:

Note

You must attach the external application to all projects which you want to be able to access

the external application; do this in the VBA editor Project Explorer.

See also

Example: Accessing MS Excel with VBA (Page 1659)

4.3.7.2 Example: Accessing MS Excel with VBA

Introduction

The following three examples illustrate how to access MS Excel. For these examples to work,

the MS Excel object library must be integrated via a reference.

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

System Manual, 11/2008,

1659

Example 1

In this example the default object list of the Graphics Designer is exported in an Excel

worksheet. The object properties are taken into account, as is the question of whether

dynamics can be used with these properties. The VBA data type is also displayed.

Sub ExportDefObjListToXLS()

'VBA73

'Microsoft Excel Object Library needs to be referenced

Dim objGDApplication As grafexe.Application

Dim objHMIObject As grafexe.HMIObject

Dim objProperty As grafexe.HMIProperty

Dim objXLS As Excel.Application

Dim objWSheet As Excel.Worksheet

Dim objWBook As Excel.Workbook

Dim rngSelection As Excel.Range

Dim lRow As Long

Dim lRowGroupStart As Long

'define local errorhandler

On Local Error GoTo LocErrTrap

'Set references to the applications Excel and GraphicsDesigner

Set objGDApplication = Application

Set objXLS = New Excel.Application

'Create workbook

Set objWBook = objXLS.Workbooks.Add()

objWBook.SaveAs objGDApplication.ApplicationDataPath & "DefaultObjekte.xls"

'Adds new worksheet to the new workbook

Set objWSheet = objWBook.Worksheets.Add

objWSheet.Name = "DefaultObjekte"

lRow = 1

'Every object of the DefaultHMIObjects-collection will be written

'to the worksheet with their objectproperties.

'For better overview the objects will be grouped.

For Each objHMIObject In objGDApplication.DefaultHMIObjects

DoEvents

objWSheet.Cells(lRow, 1).value = objHMIObject.ObjectName

objWSheet.Cells(lRow, 2).value = objHMIObject.Type

lRow = lRow + 1

lRowGroupStart = lRow

For Each objProperty In objHMIObject.Properties

'Write displayed name and automationname of property

'into the worksheet

objWSheet.Cells(lRow, 2).value = objProperty.DisplayName

objWSheet.Cells(lRow, 3).value = objProperty.Name

'Write the value of property, datatype and if their dynamicable

'into the worksheet

If Not IsEmpty(objProperty.value) Then _

objWSheet.Cells(lRow, 4).value = objProperty.value

objWSheet.Cells(lRow, 5).value = objProperty.IsDynamicable

objWSheet.Cells(lRow, 6).value = TypeName(objProperty.value)

VBA for Automated Configuration

4.3 VBA in the Graphics Designer

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

1660

System Manual, 11/2008,