System Manual: Siemens SIMATIC HMI (WinCCv7.0: Scripting VBS, ANSI-C, VBA)
Подождите немного. Документ загружается.
See also
QualityCodeStateChecked Properties (Page 2265)
VALUE_UNCERT_SUBSTSET Property (Page 2397)
VALUE_UNCERT_SIMVAL Property (Page 2395)
VALUE_UNCERT_PROCRELNOM Property (Page 2393)
VALUE_UNCERT_NONSPECIFIC Property (Page 2391)
VALUE_UNCERT_MISCSTATES Property (Page 2389)
VALUE_UNCERT_MAINTDEM Property (Page 2387)
VALUE_UNCERT_LUV Property (Page 2385)
VALUE_UNCERT_INITVAL Property (Page 2383)
VALUE_UNCERT_ENGVONLIM Property (Page 2381)
VALUE_UNCERT_ENGVLOWLIM Property (Page 2379)
VALUE_UNCERT_ENGVHIGHLIM Property (Page 2378)
VALUE_LOWLIMITED Property (Page 2363)
VALUE_BAD_PROCRELSUB Property (Page 2352)
VALUE_BAD_PROCRELNOM Property (Page 2350)
VALUE_BAD_OUTOFSERV Property (Page 2348)
VALUE_BAD_NOTCONNECTED Property (Page 2346)
VALUE_BAD_NONSPECIFIC Property (Page 2344)
VALUE_BAD_MISCSTATES Property (Page 2342)
VALUE_BAD_DEVICE Property (Page 2340)
VALUE_BAD_CONFERROR Property (Page 2338)
VALUE_BAD_COMMNUV Property (Page 2336)
VALUE_BAD_COMMLUV Property (Page 2335)
QualityCodeStateValue Object (Page 1934)
VALUE_INVALID_KEY Property
Description
Defines or returns the value that will be assigned to the dynamic property if tag status "Tag
not found" occurs.
The value of the VariableStateChecked property must be TRUE in order for the status to be
evaluated.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2361
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. The dynamization takes place be evaluating the status of a tag. If the tag does not
return a status, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA775
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
.AnalogResultInfos.ElseCase = 200
'
'Activate analysis of variablestate
.VariableStateChecked = True
End With
With objDynDialog.VariableStateValues(1)
'
'define a value for every state:
.VALUE_ACCESS_FAULT = 20
.VALUE_ADDRESS_ERROR = 30
.VALUE_CONVERSION_ERROR = 40
.VALUE_HANDSHAKE_ERROR = 60
.VALUE_HARDWARE_ERROR = 70
.VALUE_INVALID_KEY = 80
.VALUE_MAX_LIMIT = 90
.VALUE_MAX_RANGE = 100
.VALUE_MIN_LIMIT = 110
.VALUE_MIN_RANGE = 120
.VALUE_NOT_ESTABLISHED = 130
.VALUE_SERVERDOWN = 140
.VALUE_STARTUP_VALUE = 150
.VALUE_TIMEOUT = 160
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2362
System Manual, 11/2008,
See also
VariableStateChecked Property (Page 2400)
VALUE_TIMEOUT Property (Page 2376)
VALUE_STARTUP_VALUE Property (Page 2375)
VALUE_SERVERDOWN Property (Page 2373)
VALUE_NOT_ESTABLISHED Property (Page 2372)
VALUE_MIN_RANGE Property (Page 2370)
VALUE_MIN_LIMIT Property (Page 2369)
VALUE_MAX_RANGE Property (Page 2367)
VALUE_MAX_LIMIT Property (Page 2365)
VALUE_HARDWARE_ERROR Property (Page 2358)
VALUE_HANDSHAKE_ERROR Property (Page 2356)
VALUE_CONVERSION_ERROR Property (Page 2354)
VALUE_ADDRESS_ERROR Property (Page 2333)
VALUE_ACCESS_FAULT Property (Page 2331)
VariableStateValue Object (Page 1986)
VALUE_LOWLIMITED Property
Description
Specifies the value assigned to a dynamized property if quality code "low limited" occurs, or
returns its value.
In order for the quality code to be analyzed, the QualityCodeStateChecked property must be
TRUE.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. Dynamization uses the analysis of the quality code of a tag. If the tag fails to return a
quality code, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA770
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2363
.AnalogResultInfos.ElseCase = 200
'
'Activate analysis of qualitycodestate
.QualityStateChecked = True
End With
With objDynDialog.QualityCodeStateValues(1)
'
'define a value for every state:
.VALUE_BAD_COMMLUV = 20
.VALUE_BAD_COMMNUV = 30
.VALUE_BAD_CONFERROR = 40
.VALUE_BAD_DEVICE = 60
.VALUE_BAD_MISCSTATES = 70
.VALUE_BAD_NONSPECIFIC = 80
.VALUE_BAD_NOTCONNECTED = 90
.VALUE_BAD_OUTOFSERV = 100
.VALUE_BAD_PROCRELNOM = 110
.VALUE_BAD_PROCRELSUB = 120
.VALUE_HIGHLIMITED = 130
.VALUE_LOWLIMITED = 140
.VALUE_UNCERT_ENGVHIGHLIM = 150
.VALUE_UNCERT_ENGVLOWLIM = 160
.VALUE_UNCERT_INITVAL = 170
.VALUE_UNCERT_LUV = 180
.VALUE_UNCERT_MAINTDEM = 190
.VALUE_UNCERT_MISCSTATES = 200
.VALUE_UNCERT_NONSPECIFIC = 210
.VALUE_UNCERT_PROCRELNOM = 220
.VALUE_UNCERT_SIMVAL = 230
.VALUE_UNCERT_SUBSTSET = 240
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2364
System Manual, 11/2008,
See also
VALUE_BAD_PROCRELSUB Property (Page 2352)
QualityCodeStateChecked Properties (Page 2265)
VALUE_UNCERT_SUBSTSET Property (Page 2397)
VALUE_UNCERT_SIMVAL Property (Page 2395)
VALUE_UNCERT_PROCRELNOM Property (Page 2393)
VALUE_UNCERT_NONSPECIFIC Property (Page 2391)
VALUE_UNCERT_MISCSTATES Property (Page 2389)
VALUE_UNCERT_MAINTDEM Property (Page 2387)
VALUE_UNCERT_LUV Property (Page 2385)
VALUE_UNCERT_INITVAL Property (Page 2383)
VALUE_UNCERT_ENGVONLIM Property (Page 2381)
VALUE_UNCERT_ENGVLOWLIM Property (Page 2379)
VALUE_UNCERT_ENGVHIGHLIM Property (Page 2378)
VALUE_HIGHLIMITED Property (Page 2359)
VALUE_BAD_PROCRELNOM Property (Page 2350)
VALUE_BAD_OUTOFSERV Property (Page 2348)
VALUE_BAD_NOTCONNECTED Property (Page 2346)
VALUE_BAD_NONSPECIFIC Property (Page 2344)
VALUE_BAD_MISCSTATES Property (Page 2342)
VALUE_BAD_DEVICE Property (Page 2340)
VALUE_BAD_CONFERROR Property (Page 2338)
VALUE_BAD_COMMNUV Property (Page 2336)
VALUE_BAD_COMMLUV Property (Page 2335)
QualityCodeStateValue Object (Page 1934)
VALUE_MAX_LIMIT Property
Description
Defines or returns the value that will be assigned to the dynamic property if tag status "Upper
limit exceeded" occurs.
The value of the VariableStateChecked property must be TRUE in order for the status to be
evaluated.
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2365
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. The dynamization takes place be evaluating the status of a tag. If the tag does not
return a status, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA776
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
.AnalogResultInfos.ElseCase = 200
'
'Activate analysis of variablestate
.VariableStateChecked = True
End With
With objDynDialog.VariableStateValues(1)
'
'define a value for every state:
.VALUE_ACCESS_FAULT = 20
.VALUE_ADDRESS_ERROR = 30
.VALUE_CONVERSION_ERROR = 40
.VALUE_HANDSHAKE_ERROR = 60
.VALUE_HARDWARE_ERROR = 70
.VALUE_INVALID_KEY = 80
.VALUE_MAX_LIMIT = 90
.VALUE_MAX_RANGE = 100
.VALUE_MIN_LIMIT = 110
.VALUE_MIN_RANGE = 120
.VALUE_NOT_ESTABLISHED = 130
.VALUE_SERVERDOWN = 140
.VALUE_STARTUP_VALUE = 150
.VALUE_TIMEOUT = 160
End With
End Sub
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2366
System Manual, 11/2008,
See also
VALUE_MIN_LIMIT Property (Page 2369)
VariableStateChecked Property (Page 2400)
VALUE_TIMEOUT Property (Page 2376)
VALUE_STARTUP_VALUE Property (Page 2375)
VALUE_SERVERDOWN Property (Page 2373)
VALUE_NOT_ESTABLISHED Property (Page 2372)
VALUE_MIN_RANGE Property (Page 2370)
VALUE_MAX_RANGE Property (Page 2367)
VALUE_INVALID_KEY Property (Page 2361)
VALUE_HARDWARE_ERROR Property (Page 2358)
VALUE_HANDSHAKE_ERROR Property (Page 2356)
VALUE_CONVERSION_ERROR Property (Page 2354)
VALUE_ADDRESS_ERROR Property (Page 2333)
VALUE_ACCESS_FAULT Property (Page 2331)
VariableStateValue Object (Page 1986)
VALUE_MAX_RANGE Property
Description
Defines or returns the value that will be assigned to the dynamic property if tag status "Format
upper limit exceeded" occurs.
The value of the VariableStateChecked property must be TRUE in order for the status to be
evaluated.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. The dynamization takes place be evaluating the status of a tag. If the tag does not
return a status, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA777
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
System Manual, 11/2008,
2367
.AnalogResultInfos.ElseCase = 200
'
'Activate analysis of variablestate
.VariableStateChecked = True
End With
With objDynDialog.VariableStateValues(1)
'
'define a value for every state:
.VALUE_ACCESS_FAULT = 20
.VALUE_ADDRESS_ERROR = 30
.VALUE_CONVERSION_ERROR = 40
.VALUE_HANDSHAKE_ERROR = 60
.VALUE_HARDWARE_ERROR = 70
.VALUE_INVALID_KEY = 80
.VALUE_MAX_LIMIT = 90
.VALUE_MAX_RANGE = 100
.VALUE_MIN_LIMIT = 110
.VALUE_MIN_RANGE = 120
.VALUE_NOT_ESTABLISHED = 130
.VALUE_SERVERDOWN = 140
.VALUE_STARTUP_VALUE = 150
.VALUE_TIMEOUT = 160
End With
End Sub
See also
VariableStateChecked Property (Page 2400)
VALUE_TIMEOUT Property (Page 2376)
VALUE_STARTUP_VALUE Property (Page 2375)
VALUE_SERVERDOWN Property (Page 2373)
VALUE_NOT_ESTABLISHED Property (Page 2372)
VALUE_MIN_RANGE Property (Page 2370)
VALUE_MIN_LIMIT Property (Page 2369)
VALUE_MAX_LIMIT Property (Page 2365)
VALUE_INVALID_KEY Property (Page 2361)
VALUE_HARDWARE_ERROR Property (Page 2358)
VALUE_HANDSHAKE_ERROR Property (Page 2356)
VALUE_CONVERSION_ERROR Property (Page 2354)
VALUE_ADDRESS_ERROR Property (Page 2333)
VALUE_ACCESS_FAULT Property (Page 2331)
VariableStateValue Object (Page 1986)
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2368
System Manual, 11/2008,
VALUE_MIN_LIMIT Property
Description
Defines or returns the value that will be assigned to the dynamic property if tag status "Lower
limit exceeded" occurs.
The value of the VariableStateChecked property must be TRUE in order for the status to be
evaluated.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. The dynamization takes place be evaluating the status of a tag. If the tag does not
return a status, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA778
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
.AnalogResultInfos.ElseCase = 200
'
'Activate analysis of variablestate
.VariableStateChecked = True
End With
With objDynDialog.VariableStateValues(1)
'
'define a value for every state:
.VALUE_ACCESS_FAULT = 20
.VALUE_ADDRESS_ERROR = 30
.VALUE_CONVERSION_ERROR = 40
.VALUE_HANDSHAKE_ERROR = 60
.VALUE_HARDWARE_ERROR = 70
.VALUE_INVALID_KEY = 80
.VALUE_MAX_LIMIT = 90
.VALUE_MAX_RANGE = 100
.VALUE_MIN_LIMIT = 110
.VALUE_MIN_RANGE = 120
.VALUE_NOT_ESTABLISHED = 130
.VALUE_SERVERDOWN = 140
.VALUE_STARTUP_VALUE = 150
.VALUE_TIMEOUT = 160
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,
2369
See also
VariableStateChecked Property (Page 2400)
VALUE_TIMEOUT Property (Page 2376)
VALUE_STARTUP_VALUE Property (Page 2375)
VALUE_SERVERDOWN Property (Page 2373)
VALUE_NOT_ESTABLISHED Property (Page 2372)
VALUE_MIN_RANGE Property (Page 2370)
VALUE_MAX_RANGE Property (Page 2367)
VALUE_MAX_LIMIT Property (Page 2365)
VALUE_INVALID_KEY Property (Page 2361)
VALUE_HARDWARE_ERROR Property (Page 2358)
VALUE_HANDSHAKE_ERROR Property (Page 2356)
VALUE_CONVERSION_ERROR Property (Page 2354)
VALUE_ADDRESS_ERROR Property (Page 2333)
VALUE_ACCESS_FAULT Property (Page 2331)
VariableStateValue Object (Page 1986)
VALUE_MIN_RANGE Property
Description
Defines or returns the value that will be assigned to the dynamic property if tag status "Format
lower limit exceeded" occurs.
The value of the VariableStateChecked property must be TRUE in order for the status to be
evaluated.
Example:
In the following example the radius of a circle will be dynamically configured using the Dynamic
dialog. The dynamization takes place be evaluating the status of a tag. If the tag does not
return a status, a substitute value (ElseCase property) is defined:
Sub AddDynamicDialogToCircleRadiusTypeAnalog()
'VBA779
Dim objDynDialog As HMIDynamicDialog
Dim objCircle As HMICircle
Set objCircle = ActiveDocument.HMIObjects.AddHMIObject("Circle_A", "HMICircle")
Set objDynDialog = objCircle.Radius.CreateDynamic(hmiDynamicCreationTypeDynamicDialog,
"'NewDynamic1'")
With objDynDialog
.ResultType = hmiResultTypeAnalog
VBA for Automated Configuration
4.4 The object model of the Graphics Designer
MDM - WinCC: Scripting (VBS, ANSI-C, VBA)
2370
System Manual, 11/2008,