wincc 趋势曲线VBS脚本.docx

发布时间：2022-06-16 发布人：admin 分类：说明书资料大小：0.01M 资料格式：docx 举报版权申诉

5055417a-0cce-448e-b93e-699df600cdfd.docx.pdf-第1页.png

第1页 / 共2页

5055417a-0cce-448e-b93e-699df600cdfd.docx.pdf-第2页.png

第2页 / 共2页

文本预览

Sub OnClick(ByVal item) '提示： ' 1. 使用或快捷键打开含所有对象和函数的列表 ' 2. 使用 HMI Runtime 对象写入代码。 ' 示例：HmiRuntime.Screens("Screen_1")。 ' 3. 使用快捷键创建对象引用。 '从此位置起写入代码： Dim objCon1 Dim number:number=0 Dim c:c=2 Dim i:i=0 Set objCon1 = HMIRuntime.ActiveScreen.ScreenItems("Contor_1") '定义所需曲线条数 '定义循环变量 number = objCon1.trendcount ‘获取趋势曲线条数 For i = 1 To number objCon1.TrendIndex = i-1 objCon1.TrendRename = CStr(i) Next '更改所有趋势曲线名称，防止更改曲线与现有曲线同名而无法正常运行 While number <> c If number > c Then objCon1.trendindex = number-1 objCon1.trendremove = objCon1.trendname Else If number < c Then objCon1.trendadd = "趋势_" + CStr(number+1) End If End If number = objCon1.trendcount Wend '增删曲线到两条 objCon1.TrendIndex = 0 objCon1.TrendReName = "301 温度曲线_趋势" objCon1.TrendTagName = "数据记录_1\301_TEMP_APV" objCon1.TrendTrendwindow = "趋势视图_1" objCon1.TrendTimeAxis = "时间轴" objCon1.TrendValueAxis = "值轴" objCon1.TrendColor = RGB(0,0,0) '选定第一条组态曲线的编号 '更改曲线名称 '设置曲线连接变量 '设定曲线所在趋势窗口 '设置曲线时间样式 '设置曲线值轴样式 '设置曲线颜色（黑色） objCon1.TrendIndex = 1 objCon1.TrendReName = "302 温度曲线_趋势" '选定第二条组态曲线的编号 '更改曲线名称

objCon1.TrendTagName = "数据记录_1\302_TEMP_APV" objCon1.trendtrendwindow = "趋势视图_1" objCon1.trendTimeAxis = "时间轴" objCon1.TrendValueAxis = "值轴" objCon1.trendColor = RGB(255,0,0) '设定曲线连接变量 '设定曲线所在趋势窗口 '设置曲线时间样式 '设置曲线值轴样式 '设置曲线颜色（红色） End Sub

分享到：

赞收藏

资料库

wincc 趋势曲线VBS脚本.docx

相关推荐

行业

热门标签

最新资料