System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
objCircle.ObjectName = "Circle1"
objCircle.BorderColor = RGB(255, 0, 0)
objCircle.BackColor = RGB(0, 255, 0)
objCircle.ToolTipText = "Text"
Set objDynDialog =
objCircle.ToolTipText.CreateDynamic(hmiDynamicCreationTypeDynamicDialog, "'Var'")
End Sub
See also
ToolbarItem Object (Page 1970)
HMIObject Object (Page 1882)
How to Dynamize a Property with Dynamic Dialog (Page 1636)
Top Property
Description
Defines or returns the Y-coordinate of an object (measured from the top left edge of the picture)
in pixels. The Y-coordinate relates to the top left corner of the rectangle enclosing the object.
Example:
The "RectangleConfiguration()" procedure accesses the properties of the Rectangle object. In
this example the rectangle will be set to position 10/40:
Sub RectangleConfiguration()
'VBA746
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.Left = 10
.Top = 40
End With
End Sub
See also
View Object (Page 1991)
HMIObject Object (Page 1882)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2311
TopConnectedObjectName Property
Description
Returns the name of the end object to which the connector is connected. Read only access.
Example:
An example showing how to use the BottomConnectedObjectName property can be found in
this documentation under the heading "ObjConnection Object".
See also
objConnection Object (Page 1912)
TopConnectedConnectionPointIndex Property
Description
Returns the connection point on the object to which the connector is connected.
Connection Point Assigned Value
Up 0
Right 1
Down 2
Left 3
Example:
An example showing how to use the BottomConnectedObjectName property can be found in
this documentation under the heading "ObjConnection Object".
See also
objConnection Object (Page 1912)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2312
System Manual, 11/2008,
Transparency property
Description
Defines the degree of transparency of the object display. Values between 0 and 100 indicate
the transparency as a percentage. In the case of a semi-transparent objects other objects
shine
through. A 100% transparent object is invisible. An invisible object can also be controlled
in Runtime.
Example
Sub addTransparentObject()
'VBA849
Dim objHMICircle As HMICircle
Set objHMICircle = ActiveDocument.HMIObjects.AddHMIObject("Circle", "HMICircle")
objHMICircle.Transparency = 40
End Sub
Trend Property
Description
TRUE if the trend or tendency of the measured value being monitored (rising or falling) is to
be indicated by a little arrow. BOOLEAN write-read access.
Example:
The "BarGraphConfiguration()" procedure configures In this example the trend of the
measured value will be indicated:
Sub BarGraphConfiguration()
'VBA747
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.trend = True
End With
End Sub
See also
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,
2313
TrendColor Property
Description
Defines or returns the color of the trend display.
The trend display indicates the tendency (rising or falling) of the measuring value being
monitored
by a small arrow. In order to activate the trend display, the Trend property must be
set to "True". 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 "BarGraphConfiguration()" procedure configures In this example the trend in the measured
value will be indicated. The trend display will be set to "Red":
Sub BarGraphConfiguration()
'VBA748
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
.trend = True
.TrendColor = RGB(255, 0, 0)
End With
End Sub
See also
Trend Property (Page 2313)
BarGraph Object (Page 1819)
Trigger Property
Description
Returns a Trigger object. Use the Trigger property when making a property dynamic with the
aid of a script.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2314
System Manual, 11/2008,
Example:
In this example the "Radius" property of a circle will be made dynamic with the aid of a C script
(the output value sets the radius):
Sub AddDynamicAsCSkriptToProperty()
'VBA749
Dim objVBScript As HMIScriptInfo
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("myCircle", "HMICircle")
Set objVBScript = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeVBScript)
With objVBScript
.Trigger.Type = hmiTriggerTypeStandardCycle
.Trigger.CycleType = hmiCycleType_2s
.Trigger.Name = "Trigger1"
End With
End Sub
See also
Trigger Object (Page 1974)
ScriptInfo Object (Page 1948)
Type Property
Description
Returns or defines the type of an object.
The object type is returned as either a string or and integer.
Example:
The "RectangleConfiguration()" procedure accesses the properties of the Rectangle object. In
this example the object type will be output:
Sub RectangleConfiguration()
'VBA750
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
MsgBox "Objecttype: " & .Type
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2315
See also
Trigger Object (Page 1974)
ToolbarItem Object (Page 1970)
SourceLink Object (Page 1955)
Property Object (Page 1932)
HMIObject Object (Page 1882)
FolderItem Object (Page 1867)
DestLink Object (Page 1843)
TypeAlarmHigh Property
Description
TRUE, when the upper limit value, at which an alarm is triggered, should be evaluated as a
percentage. FALSE, when the evaluation should be as an absolute value. BOOLEAN write-
read access.
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 "50".
Sub BarGraphLimitConfiguration()
'VBA751
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
.TypeAlarmHigh = False
'Activate monitoring
.CheckAlarmHigh = True
'Set barcolor = "yellow"
.ColorAlarmHigh = RGB(255, 255, 0)
'Set upper limit = "50"
.AlarmHigh = 50
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2316
System Manual, 11/2008,
See also
ColorAlarmHigh Property (Page 2066)
CheckAlarmHigh Property (Page 2055)
AlarmHigh Property (Page 2002)
BarGraph Object (Page 1819)
TypeAlarmLow Property
Description
TRUE, when the lower limit value, at which an alarm is triggered, should be evaluated as a
percentage. FALSE, when the evaluation should be as an absolute value. BOOLEAN write-
read access.
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 "10".
Sub BarGraphLimitConfiguration()
'VBA752
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
.TypeAlarmLow = False
'Activate monitoring
.CheckAlarmLow = True
'Set barcolor = "yellow"
.ColorAlarmLow = RGB(255, 255, 0)
'Set lower limit = "10"
.AlarmLow = 10
End With
End Sub
See also
ColorAlarmLow Property (Page 2067)
CheckAlarmLow Property (Page 2056)
AlarmLow Property (Page 2002)
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,
2317
TypeLimitHigh4 Property
Description
TRUE, when the "Reserve 4" upper limit value should be evaluated as a percentage. FALSE,
when the evaluation should be as an absolute value. BOOLEAN write-read access.
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 "70".
Sub BarGraphLimitConfiguration()
'VBA753
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
.TypeLimitHigh4 = False
'Activate monitoring
.CheckLimitHigh4 = True
'Set barcolor = "red"
.ColorLimitHigh4 = RGB(255, 0, 0)
'Set upper limit = "70"
.LimitHigh4 = 70
End With
End Sub
See also
LimitHigh4 Property (Page 2193)
CheckLimitHigh4 Property (Page 2057)
BarGraph Object (Page 1819)
TypeLimitHigh5 Property
Description
TRUE, when the "Reserve 5" upper limit value should be evaluated as a percentage. FALSE,
when the evaluation should be as an absolute value. BOOLEAN write-read access.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2318
System Manual, 11/2008,
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".
Sub BarGraphLimitConfiguration()
'VBA754
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
.TypeLimitHigh5 = False
'Activate monitoring
.CheckLimitHigh5 = True
'Set barcolor = "black"
.ColorLimitHigh5 = RGB(0, 0, 0)
'Set upper limit = "70"
.LimitHigh5 = 70
End With
End Sub
See also
LimitHigh5 Property (Page 2194)
CheckLimitHigh5 Property (Page 2058)
BarGraph Object (Page 1819)
TypeLimitLow4 Property
Description
TRUE, when the "Reserve 4" lower limit value should be evaluated as a percentage. FALSE,
when the evaluation should be as an absolute value. BOOLEAN write-read access.
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".
Sub BarGraphLimitConfiguration()
'VBA755
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2319
.TypeLimitLow4 = False
'Activate monitoring
.CheckLimitLow4 = True
'Set barcolor = "green"
.ColorLimitLow4 = RGB(0, 255, 0)
'Set lower limit = "5"
.LimitLow4 = 5
End With
End Sub
See also
LimitLow4 Property (Page 2195)
ColorLimitLow4 Property (Page 2071)
CheckLimitLow4 Property (Page 2059)
BarGraph Object (Page 1819)
TypeLimitLow5 Property
Description
TRUE, when the "Reserve 5" lower limit value should be evaluated as a percentage. FALSE,
when the evaluation should be as an absolute value. BOOLEAN write-read access.
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".
Sub BarGraphLimitConfiguration()
'VBA756
Dim objBarGraph As HMIBarGraph
Set objBarGraph = ActiveDocument.HMIObjects.AddHMIObject("Bar1", "HMIBarGraph")
With objBarGraph
'Set analysis = absolute
.TypeLimitLow5 = False
'Activate monitoring
.CheckLimitLow5 = True
'Set barcolor = "white"
.ColorLimitLow5 = RGB(255, 255, 255)
'Set lower limit = "0"
.LimitLow5 = 0
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2320
System Manual, 11/2008,