wincc使用VBS操作趋势曲线.docx_如何使用函数趋势控件 - CSDN文库

需积分: 50 19 浏览量更新于2023-03-03 评论 3 收藏 44KB DOCX 举报

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

领优惠券(最高得80元）

资源详情

资源评论

资源推荐

1、初学 VBS 脚本操作趋势曲线

此种方法作为初学使用 vbs 脚本操作趋势曲线例程，是个人实验成功脚本，使用的软件

是博途 TIA V15 专业版。

其中的增删曲线到设定条数及其更改曲线名称防止同名，现在看来是比较麻烦的方法，现在都是删除所有曲线，

然后使用的时候需要几条就建立几条

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) '设置曲线颜色（黑色）

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

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

评论0

万事-随心

粉丝: 2
资源: 4

会员权益专享

图片转文字

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

最新资源

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