WinCC中使用VBS读写变量

Wincc6包含了VBS脚本编程，对于我等熟悉VB编程的可谓带来的福音，但是，由于西门子的C脚本编程功能实在太强大，加上要保持以前版本的一致性和用户编程习惯的延伸性，所以对于VBS脚本并没有太多的介绍。

    这里我先来介绍一下Wincc中对于控件引用的一般性论述。Wincc对于控件引用一般都采取定义变量－》使用Set 变量 ＝对象.（方法或属性）->引用变量来做的。

    在变量读取或写入的过程中，我们要接触到一些属性和方法，例如，Read和Write方法，变量的Value属性，熟练掌握这些属性和方法相当重要。

    下面解释一下Write和Read方法的语法：

Read data   其中data是读取变量的方法，如果data=1，直接从AS系统读取，相当于C脚本中的Get*****wait()函数，如果省略，则从Wincc变量管理器中建立的变量中读取。

Write data，1  其中data是需要写入变量的数值，1代表直接写入AS系统，相当于C脚本中的Set*****wait()函数，1省略，则写入到由Wincc变量管理器建立的变量中去。

实例：

读取变量的方法：

1  Dim objTag

   Set objTag=HMIRunTime.Tags("变量名")

   objTag.Read

2  HMIRunTime.Tags("变量名").Read

如果以上例程改成直接读取AS系统变量的话，程序为：

1  Dim objTag

   Set objTag=HMIRunTime.Tags("变量名")

   objTag.Read,1

2  HMIRunTime.Tags("变量名").Read,1

写变量的方法：

1  Dim objTag

   Set objTag=HMIRunTime.Tags("变量名")

   objTag.Write 1    '向变量写入数值1

  '也可以写为  objTag.Write 10   向变量写入数值10

2  HMIRunTime.Tags("变量名").Write 1

  '也可以写为  objTag.Write 10

除了以上方法外，你也可以将一个中间变量的值写入：

  Dim objTag,val

  Set objTag=HMIRunTime.Tags("变量名")

  objTag.Read

  val=objTag.Value  '中间变量val存放了变量的值

  objtag.Write val   '写入变量中去

当然，其余的方法还有很多，这些都需要自己在编程过程中总结和灵活运用。