System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
3DBarGraph Object (Page 1805)
BinaryResultInfo Property
Description
Returns the BinaryResultInfo object.
Example:
An example showing how to use the BinaryResultInfo property can be found in this
documentation under the heading "BinaryResultInfo Object".
See also
BinaryResultInfo Object (Page 1822)
BitNotSetValue Property
Description
Defines or returns the value for the dynamic property if the specified bit of a configured tag is
not set.
To define which bit must be set in order to trigger a change of value, use the BitNumber
property.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog,
a tag name will be assigned, the bit to be set will be defined and the associated property
values will be assigned to the "set"/"not set" states:
Sub AddDynamicDialogToCircleRadiusTypeBit()
'VBA410
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_B", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeBit
.Trigger.VariableTriggers(1).CycleType = hmiVariableCycleType_5s
.BitResultInfo.BitNumber = 1
.BitResultInfo.BitSetValue = 40
.BitResultInfo.BitNotSetValue = 80
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2031
End With
End Sub
See also
BitNumber Property (Page 2032)
BitResultInfo Object (Page 1823)
BitNumber Property
Description
Defines or returns the bit whose status must change in order to trigger a change of value. The
tag used must be of the type BYTE, WORD or DWORD.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog,
a tag name will be assigned, the bit to be set will be defined and the associated property
values will be assigned to the "set"/"not set" states:
Sub AddDynamicDialogToCircleRadiusTypeBit()
'VBA411
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_B", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeBit
.BitResultInfo.BitNumber = 1
.BitResultInfo.BitSetValue = 40
.BitResultInfo.BitNotSetValue = 80
End With
End Sub
See also
BitResultInfo Object (Page 1823)
VBA Reference (Page 1664)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2032
System Manual, 11/2008,
BitResultInfo Property
Description
Returns the BitResultInfo object.
Example:
An example showing how to use the BitResultInfo property can be found in this documentation
under the heading "BitResultInfo Object".
See also
BitResultInfo Object (Page 1823)
BitSetValue Property
Description
Defines or returns the value for the dynamic property if the specified bit of a configured tag is
set.
To define which bit must be set in order to trigger a change of value, use the BitNumber
property.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog,
a tag name will be assigned, the bit to be set will be defined and the associated property
values will be assigned to the "set"/"not set" states:
Sub AddDynamicDialogToCircleRadiusTypeBit()
'VBA412
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_B", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeBit
.BitResultInfo.BitNumber = 1
.BitResultInfo.BitSetValue = 40
.BitResultInfo.BitNotSetValue = 80
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,
2033
See also
BitNumber Property (Page 2032)
BitResultInfo Object (Page 1823)
Bold Property
Description
TRUE if the font attribute "Bold" is set for the language-dependent text in the object. BOOLEAN
write-read access.
Example:
Note
For this example to work, you must already have configured in the languages concerned.
The following example sets the font attributes of a button for French and English:
Sub ExampleForLanguageFonts()
'VBA413
Dim colLangFonts As HMILanguageFonts
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("myButton", "HMIButton")
objButton.Text = "Displaytext"
Set colLangFonts = objButton.LDFonts
'Set french fontproperties:
With colLangFonts.ItemByLCID(1036)
.Family = "Courier New"
.Bold = True
.Italic = False
.Underlined = True
.Size = 12
End With
'Set english fontproperties:
With colLangFonts.ItemByLCID(1033)
.Family = "Times New Roman"
.Bold = False
.Italic = True
.Underlined = False
.Size = 14
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2034
System Manual, 11/2008,
See also
Underlined Property (Page 2324)
Size Property (Page 2291)
Parent Property (Page 2241)
LanguageID Property (Page 2158)
Italic Property (Page 2151)
FontFamily Property (Page 2127)
Application Property (Page 2008)
LanguageFont Object (Page 1889)
BorderBackColor Property
Description
Defines or returns the background color of the line for the object. LONG write-read access.
The background color is only visible if the BorderStyle property is set >0.
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 "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the background color for the line will be set to "Yellow":
Sub RectangleConfiguration()
'VBA415
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BorderBackColor = RGB(255, 255, 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)
System Manual, 11/2008,
2035
See also
PieSegment Object (Page 1922)
BorderStyle Property (Page 2043)
TextList Object (Page 1964)
StatusDisplay Object (Page 1959)
StaticText Object (Page 1956)
Slider object (Page 1952)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
PolyLine Object (Page 1928)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
IOField Object (Page 1886)
GraphicObject Object (Page 1870)
EllipseArc Object (Page 1856)
EllipseSegment Object (Page 1859)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
BarGraph Object (Page 1819)
BorderColor Property
Description
Defines or returns the line color for the 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)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2036
System Manual, 11/2008,
Example:
The "RectangleConfiguration()" procedure accesses the properties of the rectangle. In this
example the line color will be set to "Blue":
Sub RectangleConfiguration()
'VBA416
Dim objRectangle As HMIRectangle
Set objRectangle = ActiveDocument.HMIObjects.AddHMIObject("Rectangle1", "HMIRectangle")
With objRectangle
.BorderColor = RGB(0, 0, 255)
End With
End Sub
See also
GraphicObject Object (Page 1870)
TextList Object (Page 1964)
StatusDisplay Object (Page 1959)
StaticText Object (Page 1956)
Slider object (Page 1952)
RoundRectangle Object (Page 1945)
RoundButton Object (Page 1942)
Rectangle Object (Page 1939)
PolyLine Object (Page 1928)
PieSegment Object (Page 1922)
OptionGroup Object (Page 1916)
Line Object (Page 1897)
IOField Object (Page 1886)
EllipseArc Object (Page 1856)
EllipseSegment Object (Page 1859)
Ellipse Object (Page 1853)
CircularArc Object (Page 1831)
Circle Object (Page 1828)
CheckBox Object (Page 1827)
Button Object (Page 1824)
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,
2037
BorderColorBottom Property
Description
Defines or returns the color for the bottom right-hand part of the 3D-border. 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 "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the 3D-border color will be defined:
Sub ButtonConfiguration()
'VBA417
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.BorderColorBottom = RGB(255, 0, 0)
.BorderColorTop = RGB(0, 0, 255)
End With
End Sub
See also
RoundButton Object (Page 1942)
Button Object (Page 1824)
BorderColorTop Property
Description
Defines or returns the color for the top left-hand part of the 3D-border. 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)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2038
System Manual, 11/2008,
Example:
The "ButtonConfiguration()" procedure accesses the properties of the button. In this example
the 3D-border color will be defined:
Sub ButtonConfiguration()
'VBA418
Dim objButton As HMIButton
Set objButton = ActiveDocument.HMIObjects.AddHMIObject("Button1", "HMIButton")
With objButton
.BorderColorBottom = RGB(255, 0, 0)
.BorderColorTop = RGB(0, 0, 255)
End With
End Sub
See also
RoundButton Object (Page 1942)
Button Object (Page 1824)
BorderEndStyle Property
Description
Defines or returns the line end style of the object. LONG read-write access.
Determination of Line End Style
Determine the line end type with the aid of a five-character hexadecimal value which you then
convert into its equivalent decimal value.
To determine the line ends for the object, go to the "Line End Style" window and proceed as
follows:
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2039
● Left column: Configures the start of the line. Value range (from the top down) 0 to 6. The
start of the line corresponds to the first character in the hexadecimal value. In the
configuration shown, the value of the first character is "3".
● Right Column: Configures the end of the line. Value range (from the top down) 0 to 6. The
line end corresponds to the fifth character in the hexadecimal value. In the configuration
shown, the value of the fifth character is "6".
This gives a hexadecimal value of "60003". This corresponds to a decimal value of "393219",
which you then assign to the BorderEndStyle property.
Example:
The "LineConfiguration()" procedure accesses the properties of the line. In this example the
type of line end will be set to the configuration illustrated above:
Sub LineConfiguration()
'VBA419
Dim objLine As HMILine
Set objLine = ActiveDocument.HMIObjects.AddHMIObject("Line1", "HMILine")
With objLine
.BorderEndStyle = 393219
End With
End Sub
See also
PolyLine Object (Page 1928)
Line Object (Page 1897)
BorderFlashColorOff Property
Description
Defines or returns the color of the object lines for the flashing status "Off". 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)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2040
System Manual, 11/2008,