示例：创建模拟量标签

本示例用于创建模拟量标签并配置以下模拟量标签的特定属性：
MaximumValue
、
MinimumValue
、
ScaleFactor
、
Offset
 和
Units
。
Sub CreateAnalogTag()
On Error GoTo ErrHandler
Dim userTag As Tag
Set userTag = TagDB.CreateTag("Test\Analog", AnalogTag)
userTag.Description = "This is a test analog tag"
userTag.MaximumValue = 200
userTag.MinimumValue = -200
userTag.ScaleFactor = 0.1
userTag.Offset = 100
userTag.Units = "psi"
userTag.WriteConfiguration
'Release resources.
Set userTag = Nothing
ErrHandler:
If Err Then
MsgBox Err.Description
Exit Sub
End If
End Sub
提供反馈
对本文档有问题或反馈吗？ 请在这里提交您的反馈 。
Normal