WinCC VBScript Screen Navigation, Faceplates and Reusable Instances

1. Define the navigation architecture before scripting

Start with a screen map showing overview pictures, area displays, equipment details, modal dialogs and the path back to a known location. A script should implement this model rather than inventing navigation independently inside every button.

• Use consistent Home, Back, Area and Close behavior.
• Keep the current equipment identity visible in every detail view.
• Avoid opening multiple uncontrolled copies of the same popup.

2. Choose between a full picture, picture window and popup

3. Pass equipment context through an approved identifier

Instead of concatenating arbitrary operator input into tag names, map a known equipment identifier to an approved tag prefix.

Function ResolveMotorPrefix(ByVal equipmentId)
    Select Case CStr(equipmentId)
        Case "M101": ResolveMotorPrefix = "Plant1_M101"
        Case "M102": ResolveMotorPrefix = "Plant1_M102"
        Case "M103": ResolveMotorPrefix = "Plant1_M103"
        Case Else:   ResolveMotorPrefix = ""
    End Select
End Function

Function TestIsOK(ByVal SetValue, ByVal ActualValue)
    TestIsOK = (ActualValue >= SetValue)
End Function

Dim SP, PV
SP = CDbl(InputBox("Enter Setpoint", "Easy Test 1 — InputBox + MsgBox", "850"))
PV = CDbl(InputBox("Enter Actual Value", "Easy Test 1 — InputBox + MsgBox", "825"))

MsgBox "Setpoint = " & SP & vbCrLf & _
       "Actual = " & PV & vbCrLf & _
       "Function Result = " & TestIsOK(SP, PV), _
       vbInformation, "Function Quick Test"

An allowlist prevents malformed names and makes the supported instances visible during review.

4. Prepare a reusable equipment context

Sub SelectEquipment(ByVal equipmentId)
    Dim prefix
    prefix = ResolveMotorPrefix(equipmentId)

    If prefix = "" Then
        HMIRuntime.Trace "Unknown equipment: " & CStr(equipmentId) & vbCrLf
        Exit Sub
    End If

    HMIRuntime.Tags("UI_SelectedEquipment").Write CStr(equipmentId)
    HMIRuntime.Tags("UI_SelectedPrefix").Write prefix
End Sub

Dim TestValue
TestValue = InputBox("Enter value to test for WinCC tag: UI_SelectedEquipment", "Easy Test 2 — InputBox + MsgBox", "1")
If TestValue = "" Then
    MsgBox "Test cancelled.", vbInformation, "Tag Write Quick Test"
Else
    MsgBox "SIMULATION ONLY" & vbCrLf & _
           "Tag: UI_SelectedEquipment" & vbCrLf & _
           "Value that would be written: " & TestValue & vbCrLf & vbCrLf & _
           "After checking interlocks, use the original .Write code above in Runtime.", _
           vbInformation, "Tag Write Quick Test"
End If

Internal context tags are one possible pattern. Faceplate interfaces or picture-window properties may provide a cleaner supported mechanism in the installed release.

5. Bind the detail view consistently

The reusable view should read its approved context once, validate it and then bind captions, states and commands through a documented interface.

• Display the equipment identifier and description prominently.
• Use separate feedback and command tags.
• Show unavailable or bad-quality states explicitly.
• Reset stale context when the view closes.

6. Open the supported picture or popup

Use the documented WinCC function for the deployed edition. Keep the navigation request in one reusable function so version-specific calls are not duplicated throughout the project.

Sub OpenMotorDetail(ByVal equipmentId)
    Call SelectEquipment(equipmentId)

    'Call the supported picture-window or popup method here.
    HMIRuntime.Trace "Motor detail requested: " & _
        CStr(equipmentId) & vbCrLf
End Sub

Sub ShowSQFValue(ByVal NameText, ByVal ValueText)
    MsgBox NameText & " = " & ValueText, vbInformation, "Sub Quick Test"
End Sub

Dim TempAct
TempAct = InputBox("Enter Temp_Act", "Easy Test 3 — InputBox + MsgBox", "825.5")
Call ShowSQFValue("Temp_Act", TempAct)

7. Design multi-instance faceplate commands safely

A reusable faceplate should submit a request for the selected instance, not write directly to an arbitrary constructed tag.

1. Resolve the selected instance against the approved equipment map.
2. Verify the current view still represents that instance.
3. Apply WinCC authorization and operator confirmation where required.
4. Write the request to the documented interface.
5. Display the PLC acknowledgment or rejection reason.

8. Prevent stale context and navigation faults

9. Commission the reusable instance design

• Test every approved equipment identifier.
• Attempt an unknown identifier and confirm it is rejected.
• Change screens rapidly and verify context does not cross between instances.
• Test communication loss, user logout and PLC command rejection.
• Document the faceplate interface, tag map and version.

10. Example: one motor faceplate for three conveyors

An overview contains motors M101, M102 and M103. Selecting a motor resolves its approved prefix, updates the internal context and opens the same motor-detail view. The faceplate displays feedback, mode and fault information for that instance while command requests still pass through PLC validation.

Dim SQFNo, Charge
SQFNo = HMIRuntime.Tags("SQF_No").Read
Charge = CStr(HMIRuntime.Tags("ChargeNo").Read)

HMIRuntime.Trace "Open SQF detail: " & SQFNo & _
                 " / Charge " & Charge & vbCrLf

Dim TestValue, ResultText
ResultText = ""
TestValue = InputBox("Enter simulated value for SQF_No", "Easy Test 4 — InputBox + MsgBox", "TEST")
ResultText = ResultText & "SQF_No = " & TestValue & vbCrLf
TestValue = InputBox("Enter simulated value for ChargeNo", "Easy Test 4 — InputBox + MsgBox", "TEST")
ResultText = ResultText & "ChargeNo = " & TestValue & vbCrLf
MsgBox ResultText & vbCrLf & "Now compare these values with the original HMIRuntime .Read example.", vbInformation, "Tag Read Quick Test"