Indication of connection with PLC

Salma
We dance in a circle and suppose,while the secret sits in the middle and knows

GetTagXXXStateQC

The function GetTagXXXStateQC has the same features as GetTagXXXState. The function also delivers information on the quality code of the tag.

GetTagXXXStateQCWait

The function GetTagXXXStateQCWait has the same features as GetTagXXXStateWait. The function also delivers information on the quality code of the tag.

This came from WinCC help:

Example for reading atag of type binary tag
{
DWORD dwState;
DWORD dwQC;
BOOL bValue;

dwState = 0xFFFFFFFF;

//Get the tag value
//dwstate is the tag state
bValue = GetTagBitStateQCWait("gs_tag_bit",&dwState,&dwQC);

//Create a string which includes the tag value
if (bValue)
{
// User defined codeif the
// value of the tag is true
...
}
else
{
// User defined codeif the
// value of the tag is false
...
}
}

Parameters of the function GetTagBitStateQC:

"gs_tag_bit" is the name of the tag .

"&dwState" is the address of the tags in which the tag status should be stored.

"&dwQC" is the address of the tags in which the Quality Code should be stored.

1. Reading the value of the tag and temporarily storing in bValue. The function puts the tag status in dwState and the quality code in dwQC.

2. Executing user-defined code,independent of the return value of the function.



Now this is what I found in VB:

VALUE_BAD_COMMLUV Property

Description

Specifies the value assigned to a dynamized property if quality code "bad, no communication (last usable value)" 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 is given dynamics with the aid of 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()

'VBA818

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 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