Building a Setpoint Screen

The following example shows how to create a simple setpoint screen for changing the value of a specific point.

See SetPoint Button Tool for more information about adding a configurable SetPoint button to a screen.

To Build a Setpoint Screen

1. Open CygNet Studio. In the File menu, click New to create a blank screen.
2. Click the Text tool button and drag a text label on the screen.
3. Right-click the text tool to display its properties.
4. Type "New Value" for the Text property. For the DisplayItem property, choose Text.
5. Click the Edit Box tool and drag an edit box next to the text tool.
6. In the Edit Box’s properties, type "txtValue" for the ObjectCode.
7. Click the Button tool and drag a button below the text fields.
8. In the Button’s properties, type "btnSetPoint" for the ObjectCode and "Setpoint" for the Text property. For ButtonType, choose Standard.
9. Right-click an empty area of the screen to open properties for TheView. Enter "Setpoint Dialog" for the Title property.
10. Press Ctrl+E to run the screen (save the screen when prompted). Of course, nothing works at this point. The screen will look something like the following:

11. Press Ctrl+E again to return to Edit mode.
12. Click the icon in the Layout toolbar to open the script window for the screen.
13. In the Object drop-down menu, choose btnSetPoint. This displays its EventClick procedure by default.
14. Enter the following lines of code in this procedure. Replace CYGDEMO.UIS:RTU1_PSTATIC with relevant names for the tag string of any numeric-valued point.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub btnSetPoint_EventClick()
Dim This : Set This = btnSetPoint
    Dim strPoint
    strPoint = "CYGDEMO.UIS:RTU1_PSTATIC"
    Err.Clear
     
    'Enable live mode (required for setpoint function)
    EnableLiveMode(True)
     
    'Check text box value and execute setpoint if valid
    If Not IsNumeric(txtValue.Text) Then
        MsgBox "Enter a numeric value."
    Else
        On Error Resume Next
    SetPoint strPoint, CDbl(txtValue.Text)
     
    'Check Err object for possible errors
    If Err.Number <> 0 Then
        MsgBox "Setpoint failed."
    Exit Sub
    End If
     
    MsgBox "Setpoint of " + strPoint + " succeeded."
    End If 
End Sub

15. Press Ctrl+E to run the screen.
16. Enter a value in the text box and click the Setpoint button.
17. Open CygNet Explorer and navigate the point’s current value service to verify that the value was updated.