Wincc 7.5 SP2使用VBS脚本动态趋势弹窗功能的实现（续）-附上单位

前面写过一个点击数字弹出趋势弹窗的练习，今天更进一步，弹窗的ruler控件上显示出数据的单位。

在前面练习项目程序的内部变量新建一个8位文本型变量Danwei，弹窗画面的ruler控件块选项卡标签改成单位

主画面输入输出域1鼠标点击事件增加赋值单位脚本，完整如下（加粗部分为新增内容）：

Sub OnClick(Byval Item)
Dim PopTrend,TrendTagName,TrendName,TrendWinName,Danwei
Set PopTrend = ScreenItems("PopTrend")
Set TrendTagName=HMIRuntime.Tags("TrendTagName")
Set TrendName=HMIRuntime.Tags("TrendName")
Set TrendWinName=HMIRuntime.Tags("TrendWinName")
Set Danwei=HMIRuntime.Tags("Danwei")
TrendTagName.Write "过程值归档\Rand1"
TrendName.Write "Rand1"
TrendWinName.Write "Rand1的趋势"
PopTrend.Visible=False
PopTrend.Visible=True
Danwei.Write "mg/m3"
End Sub

其他输入输出域相应作出修改，附上各自变量的单位

弹窗画面的打开画面事件增加显示数据单位的脚本，完整如下（加粗为新增部分）：

 

Sub OnOpen()
Dim trend,Danwei,TrendTagName,TrendName,TrendWinName
Set trend=ScreenItems("trend")
Set Danwei=HMIRuntime.Tags("Danwei")
Set TrendTagName=HMIRuntime.Tags("TrendTagName")
Set TrendName=HMIRuntime.Tags("TrendName")
Set TrendWinName=HMIRuntime.Tags("TrendWinName")
trend.TrendIndex=0
trend.TrendRemove =trend.TrendName
trend.TrendAdd= TrendName.Read
trend.TrendTagName =TrendTagName.Read
trend.TrendTrendWindow="趋势窗口 1"
trend.TrendTimeAxis="时间轴 1"
trend.TrendValueAxis="数值轴 1"
trend.Caption=TrendWinName.Read
trend.TrendLabel = Danwei.Read
End Sub

保存、编译、运行后点击输入输出域，弹窗上就有该变量的单位信息了。