System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "80" and the bar color will change to "Black".
Sub BarGraphLimitConfiguration()
'VBA454
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitHigh5 = False
'Activate monitoring
.CheckLimitHigh5 = True
'Set barcolor to "black"
.ColorLimitHigh5 = RGB(0, 0, 0)
'Set upper limit to "80"
.LimitHigh5 = 80
End With
End Sub
See also
CheckLimitHigh5 Property (Page 2058)
BarGraph Object (Page 1819)
ColorLimitLow4 Property
Description
Defines or returns the color for the "Reserve 4" lower limit value. LONG write-read access.
The "CheckLimitLow4" property must have been set to TRUE if the bar color should change
on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2071
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "5" and the bar color will change to "Green".
Sub BarGraphLimitConfiguration()
'VBA455
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitLow4 = False
'Activate monitoring
.CheckLimitLow4 = True
'Set barcolor to "green"
.ColorLimitLow4 = RGB(0, 255, 0)
'Set lower limit to "5"
.LimitLow4 = 5
End With
End Sub
See also
CheckLimitLow4 Property (Page 2059)
BarGraph Object (Page 1819)
ColorLimitLow5 Property
Description
Defines or returns the color for the "Reserve 5" lower limit value. LONG write-read access.
The "CheckLimitLow5" property must have been set to TRUE if the bar color should change
on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2072
System Manual, 11/2008,
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "0" and the bar color will change to "White".
Sub BarGraphLimitConfiguration()
'VBA456
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeLimitLow5 = False
'Activate monitoring
.CheckLimitLow5 = True
'Set barcolor to "white"
.ColorLimitLow5 = RGB(255, 255, 255)
'Set lower limit to "0"
.LimitLow5 = 0
End With
End Sub
See also
CheckLimitLow5 Property (Page 2060)
BarGraph Object (Page 1819)
ColorToleranceHigh Property
Description
Defines or returns the color for the "Tolerance High" high limit value. LONG write-read access.
The "CheckToleranceHigh" property must have been set to TRUE if the bar color should
change on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2073
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "45" and the bar color will change to "Yellow".
Sub BarGraphLimitConfiguration()
'VBA457
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeToleranceHigh = False
'Activate monitoring
.CheckToleranceHigh = True
'Set barcolor to "yellow"
.ColorToleranceHigh = RGB(255, 255, 0)
'Set upper limit to "45"
.ToleranceHigh = 45
End With
End Sub
See also
CheckToleranceHigh Property (Page 2061)
BarGraph Object (Page 1819)
ColorToleranceLow Property
Description
Defines or returns the color for the "Tolerance Low" low limit value. LONG write-read access.
The "CheckToleranceLow" property must have been set to TRUE if the bar color should change
on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2074
System Manual, 11/2008,
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "12" and the bar color will change to "Yellow".
Sub BarGraphLimitConfiguration()
'VBA458
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeToleranceLow = False
'Activate monitoring
.CheckToleranceLow = True
'Set barcolor to "yellow"
.ColorToleranceLow = RGB(255, 255, 0)
'Set lower limit to "15"
.ToleranceLow = 15
End With
End Sub
See also
CheckToleranceLow Property (Page 2061)
BarGraph Object (Page 1819)
ColorTop Property
Description
Defines or returns the color for the top/left stop of the slider object. LONG write-read access.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "SliderConfiguration()" procedure accesses the properties of the slider. In this example
the color for the upper/left view will be set to "Orange":
Sub SliderConfiguration()
'VBA459
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2075
Dim objSlider As HMISlider
Set objSlider = ActiveDocument.HMIObjects.AddHMIObject("SliderObject1", "HMISlider")
With objSlider
.ColorTop = RGB(255, 128, 0)
End With
End Sub
See also
Slider object (Page 1952)
ColorWarningHigh Property
Description
Defines or returns the color for the "Warning High" high limit value. LONG write-read access.
The "CheckWarningHigh" property must have been set to TRUE if the bar color should change
on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the high limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "75" and the bar color will change to "Red".
Sub BarGraphLimitConfiguration()
'VBA460
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeWarningHigh = False
'Activate monitoring
.CheckWarningHigh = True
'Set barcolor to "red"
.ColorWarningHigh = RGB(255, 0, 0)
'Set upper limit to "75"
.WarningHigh = 75
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2076
System Manual, 11/2008,
See also
CheckWarningHigh Property (Page 2062)
BarGraph Object (Page 1819)
ColorWarningLow Property
Description
Defines or returns the color for the "Warning Low" low limit value. LONG write-read access.
The "CheckWarningLow" property must have been set to TRUE if the bar color should change
on reaching the limit value.
Determination of Color Value
The color is displayed in RGB format (Red, Green, Blue). Specify the corresponding decimal
value for each of the three RGB values (value range from 0 to 255).
Use VBA function "RGB" to assign a color to a property. The color "red", for example, is
represented as follows: RGB(255, 0, 0)
Example:
The "BarGraphLimitConfiguration()" procedure configures the properties of the low limit value
for
an alarm. In this example the type of evaluation will be set to "Absolute". The alarm will be
triggered at a value of "12" and the bar color will change to "Magenta".
Sub BarGraphLimitConfiguration()
'VBA461
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis to absolute
.TypeWarningLow = False
'Activate monitoring
.CheckWarningLow = True
'Set barcolor to "magenta"
.ColorWarningLow = RGB(255, 0, 255)
'Set lower limit to "12"
.WarningLow = 12
End With
End Sub
See also
CheckWarningLow Property (Page 2063)
BarGraph Object (Page 1819)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2077
CommonVBSCode Property
Description
Defines the higher-level common declaration section of the actions for the active picture or
returns it.
The action editor of the Graphics Designer is used to configure actions at events and
properties.
In the declaration section of the actions, you can declare tags for a process image
as well as create functions and procedures. In Runtime, each VBS action can access these
tags, functions and procedures if the picture is active.
If you set "CommonVBSCode", the string is copied to the "Event" and "Property" declaration
sections in the action editor. Any code there is overwritten. Therefore, set "CommonVBSCode"
first before setting the subordinate declaration sections with "CommonVBSEventArea" or
"CommonVBSPropertyArea".
Example
In the following example, a tag that is common to all picture objects is declared in the active
picture. The common declaration section is then output :
Sub DefineTagInActiveDocument
ActiveDocument.CommonVBSCode = "DIM actionIsdone" & vbCrLf
MsgBox ActiveDocument.CommonVBSCode
End Sub
See also
Document Object (Page 1847)
CommonVBSEventArea property
Description
Defines the "Event" declaration section of the actions for the active picture or returns it.
The action editor of the Graphics Designer is used to configure actions, for example, at events.
To this purpose, you can declare tags for a process image as well as create functions and
procedures
in the "Event" declaration section of the actions. In Runtime each VBS action that
was configured for an event can access these tags, functions and procedures if the picture is
active.
If you set "CommonVBSEventArea", the string is copied to the "Event" declaration section in
the action editor. Any code there is overwritten. Therefore, first read the code set, for example
with "CommonVBSCode" before you set the declaration section with
"CommonVBSEventArea".
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2078
System Manual, 11/2008,
Example
In the following example, two tags are declared in the active picture. The "Event" declaration
section is the output:
Sub DefineTagInActiveDocument
ActiveDocument.CommonVBSCode = "DIM actionIsdone" & vbCrLf
ActiveDocument.CommonVBSEventArea = ActiveDocument.CommonVBSEventArea & "DIM
"eventHasOccurred"
MsgBox ActiveDocument.CommonVBSEventArea
End Sub
CommonVBSPropertyArea property
Description
Defines the "Property" declaration section of the actions for the active picture or returns it.
The action editor of the Graphics Designer is used to configure actions for example at
properties.
To this purpose you can declare tags for a process image as well as create functions
and procedures in the "Property" declaration section of the actions. In Runtime each VBS
action that was configured for a property can access these tags, functions and procedures if
the picture is active.
If you set "CommonVBSPropertyArea", the string is copied to the "Property" declaration section
in the action editor. Any code there is overwritten. Therefore, first read the code set, for example
with "CommonVBSCode" before you set the declaration section with
"CommonVBSPropertyArea".
Example
In the following example, two tags are declared in the active picture. The "Property" declaration
section is then output:
Sub DefineTagInActiveDocument
ActiveDocument.CommonVBSCode = "DIM actionIsdone" & vbCrLf
ActiveDocument CommonVBSPropertyArea = ActiveDocument.CommonVBSPropertyArea & "DIM
propertyIsChanged"
MsgBox ActiveDocument.CommonVBSPropertyArea
End Sub
CommandLine Property
Description
Returns the start parameter as a string if the application is opened via Start>Execute
"Grafexe.exe start parameter". Read only access.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2079
Example:
In this example a message containing the start parameter is output on opening the document.
Sub Document_Opened(CancelForwarding As Boolean)
'VBA462
MsgBox Application.Commandline
End Sub
See also
Application Object (Page 1814)
Compiled Property
Description
TRUE if the source code of a C script or VB script was successfully compiled. BOOLEAN read
access.
Example:
In the following example a button and a circle will be inserted in the active picture. In Runtime
the
radius of the circle will enlarge every time you click the button. A VB script will be used for
this purpose:
Sub IncreaseCircleRadiusWithVBScript()
'VBA463
Dim objButton As HMIButton
Dim objCircleA As HMICircle
Dim objEvent As HMIEvent
Dim objVBScript As HMIScriptInfo
Dim strCode As String
strCode = "Dim objCircle" & vbCrLf & "Set objCircle = "
strCode = strCode & "hmiRuntime.ActiveScreen.ScreenItems(""CircleVB"")"
strCode = strCode & vbCrLf & "objCircle.Radius = objCircle.Radius + 5"
Set objCircleA = ActiveDocument.HMIObjects.AddHMIObject("CircleVB", "HMICircle")
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
With objCircleA
.Top = 100
.Left = 100
End With
With objButton
.Top = 10
.Left = 10
.Width = 200
.Text = "Increase Radius"
End With
'On every mouseclick the radius will be increased:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2080
System Manual, 11/2008,