📄 kepserverex_simple_vb_opc.frm
字号:
TabIndex = 20
ToolTipText = "Enter an OPC Item name in the form of ServerBranch.ServerItem"
Top = 4680
Width = 2775
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
Height = 285
Index = 2
Left = 120
TabIndex = 19
ToolTipText = "Enter an OPC Item name in the form of ServerBranch.ServerItem"
Top = 4320
Width = 2775
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
Height = 285
Index = 1
Left = 120
TabIndex = 18
ToolTipText = "Enter an OPC Item name in the form of ServerBranch.ServerItem"
Top = 3960
Width = 2775
End
Begin VB.TextBox OPCItemName
Enabled = 0 'False
Height = 285
Index = 0
Left = 120
TabIndex = 17
Text = "Applications.ATCE_App1.Program2.Counter_FB_1.Counter"
ToolTipText = "Enter an OPC Item name in the form of ServerBranch.ServerItem"
Top = 3600
Width = 2775
End
Begin VB.Frame OPCGroupFrame
Caption = "Add Group to OPC Server"
Height = 2775
Left = 3720
TabIndex = 7
Top = 0
Width = 4335
Begin VB.CommandButton RemoveOPCGroup
Caption = "Remove Group"
Enabled = 0 'False
Height = 255
Left = 2280
TabIndex = 16
ToolTipText = "Click here to remove a group from the OPC Server, you must first remove the items if any"
Top = 1800
Width = 1935
End
Begin VB.CommandButton AddOPCGroup
Caption = "Add Group"
Enabled = 0 'False
Height = 255
Left = 120
TabIndex = 15
ToolTipText = "Once you have entered a group name and it's settings click here to add the group"
Top = 1800
Width = 1935
End
Begin VB.CheckBox GroupActiveState
Alignment = 1 'Right Justify
Caption = "Group Active"
Enabled = 0 'False
Height = 255
Left = 840
TabIndex = 14
ToolTipText = "The active determines if the group is actively updating or not, this can be changed at any time"
Top = 1320
Value = 1 'Checked
Width = 1335
End
Begin VB.TextBox GroupDeadBand
Enabled = 0 'False
Height = 285
Left = 1920
TabIndex = 13
Text = "0"
ToolTipText = "Enter the percentage of change an item must make before it is returned to the client, the default is 0 percent"
Top = 960
Width = 1695
End
Begin VB.TextBox GroupUpdateRate
Enabled = 0 'False
Height = 285
Left = 1920
TabIndex = 11
Text = "10"
ToolTipText = "Enter how often you want the the server to refresh items in this group, this can be changed at any time"
Top = 600
Width = 1695
End
Begin VB.TextBox OPCGroupName
Enabled = 0 'False
Height = 285
Left = 1920
TabIndex = 9
Text = "Group1"
ToolTipText = "The group name can be anything you like but it must always be unique"
Top = 240
Width = 1815
End
Begin VB.Label Label6
Caption = "Deadband (%)"
Height = 255
Left = 720
TabIndex = 12
Top = 960
Width = 1095
End
Begin VB.Label Label5
Caption = "Update Rate (ms.)"
Height = 255
Left = 480
TabIndex = 10
Top = 600
Width = 1335
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "Group Name"
Height = 255
Left = 480
TabIndex = 8
Top = 240
Width = 1215
End
End
Begin VB.CommandButton ExitExample
Caption = "Quit"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 8280
TabIndex = 5
Top = 120
Width = 855
End
Begin VB.TextBox OPCServerName
Height = 285
Left = 1080
TabIndex = 4
Text = "Click on list above to select"
ToolTipText = "You can select an OPC Server from the list above or enter one here"
Top = 1680
Width = 2055
End
Begin VB.ListBox AvailableOPCServerList
Height = 1035
Left = 120
TabIndex = 2
ToolTipText = "Select an OPC Server from the list and press the 'Connect' button below"
Top = 600
Width = 3015
End
Begin VB.CommandButton ListOPCServers
Caption = "List OPC Servers"
Height = 255
Left = 360
TabIndex = 1
ToolTipText = "Click here to list available OPC Servers, find KEPServerEX and click on it"
Top = 240
Width = 2655
End
Begin VB.CommandButton OPCServerConnect
Caption = "Connect"
Height = 255
Left = 120
TabIndex = 0
ToolTipText = "Press the 'Connect' button once you have selected an OPC Server"
Top = 1680
Width = 855
End
Begin VB.Frame Frame1
Caption = "List Available OPC Servers"
Height = 2775
Left = 0
TabIndex = 3
Top = 0
Width = 3375
Begin VB.TextBox OPCNodeName
Height = 285
Left = 1080
TabIndex = 93
ToolTipText = "Enter the name of the PC running the server here if not this PC."
Top = 2040
Width = 2055
End
Begin VB.CommandButton DisconnectFromServer
Caption = "Disconnect From Server"
Enabled = 0 'False
Height = 255
Left = 480
TabIndex = 6
ToolTipText = "Once you are finished accessing an OPC Server you should disconnect from it allowing the server to release the resources you used"
Top = 2400
Width = 2055
End
Begin VB.Label lblOPCNodeName
Caption = "Node Name"
Height = 255
Left = 120
TabIndex = 94
Top = 2040
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "OPC Items"
Height = 4335
Left = 0
TabIndex = 27
Top = 2880
Width = 10215
Begin VB.CommandButton OPCRemoveItems
Caption = "Remove OPC Items"
Enabled = 0 'False
Height = 255
Left = 6360
TabIndex = 92
ToolTipText = "Click here to remove the current items from the OPC group"
Top = 120
Width = 1815
End
Begin VB.CommandButton OPCItemSyncReadButton
Caption = "Sync Read"
Enabled = 0 'False
Height = 255
Index = 0
Left = 8160
TabIndex = 82
ToolTipText = "Click here to perform a Synchronous read of this OPC Item"
Top = 720
Width = 975
End
Begin VB.CheckBox OPCItemActiveState
Alignment = 1 'Right Justify
Caption = "Active"
Enabled = 0 'False
Height = 255
Index = 0
Left = 7200
TabIndex = 63
ToolTipText = "Click here to change the active state of this item"
Top = 720
Value = 1 'Checked
Width = 855
End
Begin VB.CommandButton OPCItemWriteButton
Caption = "Write Value"
Enabled = 0 'False
Height = 255
Index = 0
Left = 6120
TabIndex = 62
ToolTipText = "Click here to send the value entered in the 'Value to Write' field using a Synchronous Write"
Top = 720
Width = 975
End
Begin VB.TextBox OPCItemValueToWrite
Enabled = 0 'False
Height = 285
Index = 0
Left = 4560
TabIndex = 51
Text = "0"
ToolTipText = "Enter the value to written here then click the 'Write Value' button"
Top = 720
Width = 1455
End
Begin VB.TextBox OPCItemQuality
Height = 285
Index = 0
Left = 9240
Locked = -1 'True
TabIndex = 40
Top = 720
Width = 855
End
Begin VB.TextBox OPCItemValue
Height = 285
Index = 0
Left = 3000
Locked = -1 'True
TabIndex = 29
Top = 720
Width = 1455
End
Begin VB.Label Label9
Caption = "Value to Write"
Height = 255
Left = 4800
TabIndex = 61
Top = 480
Width = 1215
End
Begin VB.Label Label8
Caption = "Item Quality"
Height = 255
Left = 9240
TabIndex = 50
Top = 480
Width = 855
End
Begin VB.Label Label7
Caption = "Current Value"
Height = 255
Left = 3000
TabIndex = 39
Top = 480
Width = 1335
End
Begin VB.Label Label4
Caption = "Enter OPC Item Names"
Height = 255
Left = 120
TabIndex = 28
Top = 480
Width = 1815
End
End
Begin VB.Label Label11
Caption = "ABB Shanghai"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -