原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
可以使用 VBSWinCC对所有图形编辑器对象进行访问，以使图形运行环境动态化。根据变量或周期性（例如闪烁）情况，可在执行操作（例如在按钮上单击鼠标）时使图形对象动态化。
以下示例说明如何在鼠标单击后更改图形对象。
步骤
在以下示例中，每次单击鼠标时运行系统中圆的半径都会设置为 20：
Dim objCircle
Set objCircle= ScreenItems(Circle1)
objCircle.Radius = 20
2.实例：
定义对象的颜
图形对象的颜色通过 RGB值（红 / 绿/ 蓝）定义。可以设置或读出图形对象的颜色值。
步骤
以下示例将 “ScreenWindow1”的填充颜色定义为蓝色：
Dim objScreen
Set objScreen = HMIRuntime.Screens(ScreenWindow1)
objScreen.FillStyle = 131075
objScreen.FillColor = RGB(0, 0, 255)
3.例：
如何组态语言切换
1/18
可使用 VBS切换 WinCC的运行系统语言。最常用的是包含相应语言代码的按钮，这些按钮位于项目的起始页上。
在 VBS中通过使用国家代码（例如， 1031 表示德语 -默认， 1033 表示英语 -
美国等）指定运行系统语言。有关所有国家代码的汇总，请参见标题为 “区域方
案 ID (LCID)图”的主题下的 VBScript基本知识。步骤 :
使用按钮上的 “Mouseclick事”件创建 VBS动作，输入以下动作代码将运行系统语言切换为德语：
HMIRuntime.Language = 1031
可以使用 VBS终止 WinCC运行系统，例如，通过鼠标单击，依靠变量值或其它事件（例如，启动运行系统时密码的多次错误输入）。
要执行的操作
以下示例会终止 WinCC运行系统：
HMIRuntime.Stop
5.实例：
全局组态画面更改
简介
VBS可用于启动全局画面更改，因而会在分布式系统的客户机上显示服务器中的画面。为此，服务器的服务器前缀必须位于目标画面之前。
要执行的操作
为按钮组态以下画面更改代码，例如：
HMIRuntime.BaseScreenName = Serverprefix:
:New screen
2/18
6.实例：
通过属性组态画面更改
简介
如果在组态中使用分区画面（例如，在用户界面的基本画面标题和操作栏中和用于实际画面显示的嵌入画面窗口中），应使用画面窗口的属性组态画面更改。
为了显示其它画面，必须更改 “ScreenName”画面窗口的属性。必须在同一画面中对动作和画面窗口进行组态。
要执行的操作
在以下示例中，执行动作时 “ScreenWindow”画面窗口中会显示 “test.pdl画 ”
面：
Dim objScrWindow
Set objScrWindow = ScreenItems(ScreenWindow)
objScrWindow.ScreenName = test
7.实例：
通过 Trace 组态诊断输出
简介
在动作中调用的过程的跟踪。 Trace 指令以 “HMIRuntime.Trace(Ausgabe) ” 形式输入。
GSC诊断显示来自 C 和 VBS的跟踪输出。
要执行的操作
以下示例将文本写入诊断窗口中：
HMIRuntime.Trace Customized error message
3/18
8.实例：
写入变量值
可以用 VBS将变量值写入 PLC中，例如通过在按钮上单击鼠标来指定设定值，或设置内部变量值，以触发其它动作。
下面涉及和介绍了多种写入变型。
1)简单写入
在以下示例中，将值写入 “Tag1变”量内：
HMIRuntime.Tags(Tag1).Write 6
这是最简单的写入形式，因为不会生成任何对象引用。
2)通过对象引用写入
在以下示例中，将创建变量对象的本地副本并将值写入 “Tag1内”：
Dim objTag
Set objTag = HMIRuntime.Tags(Tag1)
objTag.Write 7
3)通过利用引用，可以在写入之前使用变量对象。可以读取变量值，进行计算，并再次写入：
Dim objTag
Set objTag = HMIRuntime.Tags(Tag1)
objTag.Read
objTag.Value = objTag.Value + 1
objTag.Write
此类写入通过将附加的可选参数指定为值 1 来实现：
4/18
Dim objTag
Set objTag = HMIRuntime.Tags(Tag1)
objTag.Value = 8
objTag.Write ,1
说明
请注意，这
文档评论（0）