wincc趋势曲线VBS脚本_wincc趋势曲线 - CSDN文库

5星 · 超过95%的资源需积分: 50 2.7k 浏览量更新于2023-05-27 评论 2 收藏 14KB DOCX 举报

身份认证购VIP最低享 7 折!

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

Sub OnClick(ByVal item)

'提示：

' 1. 使用 <CTRL+SPACE> 或 <CTRL+I> 快捷键打开含所有对象和函数的列表

' 2. 使用 HMI Runtime 对象写入代码。

' 示例：HmiRuntime.Screens("Screen_1")。

' 3. 使用 <CTRL+J> 快捷键创建对象引用。

'从此位置起写入代码：

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Á_TEMP_APV" '设置曲线连接变量

objCon1.TrendTrendwindow = "趋势视图_1" '设定曲线所在趋势窗口

objCon1.TrendTimeAxis = "时间轴" '设置曲线时间样式

objCon1.TrendValueAxis = "值轴" '设置曲线值轴样式

objCon1.TrendColor = RGB(0,0,0) '设置曲线颜色（黑色）

objCon1.TrendIndex = 1 '选定第二条组态曲线的编

号

objCon1.TrendReName = "302 温度曲线_趋势" '更改曲线名称

本内容试读结束，登录后可阅读更多

下载后可阅读完整内容，剩余1页未读，立即下载

评论1

倔强的平凡:)

2020-05-28

写的不错,对我帮助很大.

万事-随心

粉丝: 2
资源: 4

会员权益专享

图片转文字

全年可省5，000元立即开通

最新资源

资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！点击此处反馈