加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

WINCC7.5SP2下使用VBA编程16:批量设置变量线性标定

(2024-11-18 20:19:33)
标签:

西门子

wincc

vba编程

批量设置变量线性标定

分类: 西门子软硬件
这一片学习笔记在博客园发表过,这里再次记录一下。

继续学习wincc下面VBA编程,这个练习实现变量线性标定。

在前面练习基础上做,有REAL1至REAL10共10个变量,通过VBA脚本对Real1至Real5设置线性标定。

写下面的VBA脚本: 

Sub SetTagScaleParameter()
Dim hmigo As hmigo
Dim strTagName As String
Dim i As Integer
Set hmigo = New hmigo
For i = 1 To 5
strTagName = "Real" & CStr(i)
hmigo.ListTag TAG_NAMES, Tags, strTagName
If (UBound(Tags) - LBound(Tags) + 1) > 0 Then '如果变量存在
hmigo.GetTag strTagName
hmigo.TagScaleValid = True
hmigo.TagScaleParam1 = 0#
hmigo.TagScaleParam2 = 100#
hmigo.TagScaleParam3 = 0#
hmigo.TagScaleParam4 = 10#
hmigo.CommitTag
End If
Next
Set hmigo = Nothing

保存,运行就自动的将5个变量做了线性标定。

WINCC7.5SP2下使用VBA编程16:批量设置变量线性标定

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有