word完整版)WinCC_Vbs中文手册1. 实例： 访问图形编辑器中的对象可以使用 VBS WinCC 对所有图形编辑器对象进行访问，以使图形运行环境动态化 根据变量或周期性（例如闪烁）情况，可在执行操作(例如在按钮上单击鼠标）时使图形对象动态化以下示例说明如何在鼠标单击后更改图形对象.步骤在以下示例中，每次单击鼠标时运行系统中圆的半径都会设置为 20：Dim objCircleSet objCircle= ScreenItems（"Circle1"）objCircle.Radius = 202. 实例: 定义对象的颜图形对象的颜色通过 RGB 值(红/绿/蓝)定义 可以设置或读出图形对象的颜色值 步骤以下示例将“ScreenWindow1”的填充颜色定义为蓝色：Dim objScreenSet objScreen = HMIRuntime.Screens(”ScreenWindow1”）objScreen.FillStyle = 131075objScreenFillColor = RGB（0， 0, 255)3. 例:如何组态语言切换可使用 VBS 切换 WinCC 的运行系统语言。
最常用的是包含相应语言代码的按钮，这些按钮位于项目的起始页上在 VBS 中通过使用国家代码(例如，1031 表示德语 - 默认，1033 表示英语 - 美国等）指定运行系统语言有关所有国家代码的汇总，请参见标题为“区域方案 ID (LCID) 图”的主题下的 VBScript 基本知识步骤：使用按钮上的“Mouse click"事件创建 VBS 动作，输入以下动作代码将运行系统语言切换为德语：HMIRuntime.Language = 10314. 实例： 禁用运行系统简介可以使用 VBS 终止 WinCC 运行系统，例如，通过鼠标单击，依靠变量值或其它事件（例如,启动运行系统时密码的多次错误输入）要执行的操作以下示例会终止 WinCC 运行系统：HMIRuntime.Stop5. 实例: 全局组态画面更改简介VBS 可用于启动全局画面更改，因而会在分布式系统的客户机上显示服务器中的画面 为此,服务器的服务器前缀必须位于目标画面之前要执行的操作为按钮组态以下画面更改代码,例如：HMIRuntimeBaseScreenName = "Serverprefix::New screen"6. 实例: 通过属性组态画面更改简介如果在组态中使用分区画面（例如,在用户界面的基本画面标题和操作栏中和用于实际画面显示的嵌入画面窗口中），应使用画面窗口的属性组态画面更改.为了显示其它画面，必须更改“ScreenName”画面窗口的属性。
必须在同一画面中对动作和画面窗口进行组态要执行的操作在以下示例中，执行动作时“ScreenWindow”画面窗口中会显示“testpdl”画面：Dim objScrWindowSet objScrWindow = ScreenItems(”ScreenWindow”)objScrWindowScreenName = "test”7. 实例： 通过 Trace 组态诊断输出简介如果已将 GSC 诊断窗口插入画面中，则可以使用 Trace 命令在运行系统的诊断窗口中显示诊断输出.GSC 诊断按调用的先后顺序发出包含在动作中的 Trace 方法这也适用于在动作中调用的过程中的 Trace 指令.Trace 指令的有目的执行(例如针对变量值的输出）可实现对动作进度以及在动作中调用的过程的跟踪.Trace 指令以“HMIRuntimeTrace（〈Ausgabe>)”形式输入GSC 诊断显示来自 C 和 VBS 的跟踪输出要执行的操作以下示例将文本写入诊断窗口中：HMIRuntime.Trace ”Customized error message"8. 实例： 写入变量值可以用 VBS 将变量值写入 PLC 中，例如通过在按钮上单击鼠标来指定设定值，或设置内部变量值，以触发其它动作。
下面涉及和介绍了多种写入变型.1) 简单写入在以下示例中，将值写入“Tag1”变量内：HMIRuntime.Tags（”Tag1").Write 6这是最简单的写入形式，因为不会生成任何对象引用2) 通过对象引用写入在以下示例中，将创建变量对象的本地副本并将值写入“Tag1"内:Dim objTagSet objTag = HMIRuntime.Tags（”Tag1”)objTag.Write 73) 通过利用引用，可以在写入之前使用变量对象. 可以读取变量值,进行计算，并再次写入:Dim objTagSet objTag = HMIRuntimeTags("Tag1")objTag.ReadobjTag.Value = objTagValue + 1objTag.Write4) 同时写入通常，待写入的值会传送到变量管理，然后重新开始对动作进行处理. 但某些情况下，必须确保实际写入了值之后才能重新开始对动作进行处理.此类写入通过将附加的可选参数指定为值 1 来实现：Dim objTagSet objTag = HMIRuntimeTags（”Tag1”）objTagValue = 8objTag。
Write ，1说明 请注意,这种调用比标准调用使用的时间要长. 除此之外，持续时间还取决于通道和 AS这类写入遵从 C 脚本中的 SetTagXXXWait（） 调用5) 通过状态处理写入为了确保成功写入值，必须在写入过程之后执行错误检查或确定变量状态为此，执行写入操作后需检查“LastError”属性 测试成功（即成功放置任务）后，即检查变量状态对于写入任务，过程的当前状态尚不确定 要确定该状态，必须读取变量 读取过程之后“质量代码”属性中指定的值会提供变量状态指示，如有必要，还会涉及发生故障的 AS 连接在以下示例中,将写入“Tag1”变量 如果写入期间出现错误，全局脚本诊断窗口中会显示错误值和错误描述 最后，检查质量代码 如果质量代码不是 OK (0x80）,便在诊断窗口中显示该代码 Dim objTagSet objTag = HMIRuntime.Tags("Tag1”)objTag.Write 9If 0 <> objTagLastError ThenHMIRuntimeTrace ”Error： ” & objTag.LastError & vbCrLf & ”ErrorDescription: ” & objTag.ErrorDescription ＆ vbCrLfElseobjTag.ReadIf ＆H80 <> objTag.QualityCode ThenHMIRuntime.Trace ”QualityCode： 0x" & Hex（objTag.QualityCode) & vbCrLfEnd IfEnd If 说明 写入变量后,由于不知道哪一质量代码在过程中用于管理变量,因此局部变量对象的 QualityCode 属性会设置为“BAD 已不能用”。
9. 实例： 如何读取变量值简介可以用 VBS 读取变量值并对其执行进一步的处理 这样便可以执行诸如通过在按钮上单击鼠标来获取系统状态信息或执行计算的操作.下面涉及和介绍了多种读取变型1) 简单读取在以下示例中,将读取“Tag1”的值并在全局脚本诊断窗口中显示该值：HMIRuntimeTrace "Value： ” & HMIRuntimeTags（"Tag1”）Read & vbCrLf这是最简单的读取形式，因为不会生成任何对象引用.2) 通过对象引用读取在以下示例中，将生成变量对象的本地副本，读取该变量值并在全局脚本诊断窗口中显示该值： Dim objTagSet objTag = HMIRuntime.Tags(”Tag1”)HMIRuntimeTrace ”Value： " & objTag.Read ＆ vbCrLf通过利用引用可以使用变量对象 可以读取变量值，进行计算，并再次写入：Dim objTagSet objTag = HMIRuntime.Tags(”Tag1"）objTagReadobjTagValue = objTagValue + 1objTag.Write使用 Read 方法将已读取的过程变量添加到图像，从该刻起这些变量会通过 AS 周期性请求。
如果该变量已存在于图像中，则会返回其中包含的值对于关闭画面，变量动作会再次结束 说明 如果全局脚本动作中请求变量,则在进入 WinCC 运行系统的整个过程中，该变量保持已注册状态3) 直接读取通常，变量值从变量图像读取. 但在某些情况下，例如为了同步快速过程，可能需要直接从 AS 读取变量值如果将读取过程的可选参数设置为 1,则不会周期性地登录变量,而是通过 AS 单次请求该值Dim objTagSet objTag = HMIRuntimeTags（"Tag1”）HMIRuntime.Trace "Value: ” & objTagRead（1) & vbCrLf说明 请注意，这种调用比标准调用使用的时间要长 除此之外，持续时间还取决于通道和 AS在执行周期性 C 动作的情况下,必须避免该类调用，因为这是引起性能问题的主要原因该类读取过程相当于 C 脚本中的 GetTagXXXWait(） 调用4) 通过状态处理读取为了确保值有效，应在读取之后进行检查 这通过控制质量代码来执行在以下示例中,将读取“myWord”变量，然后检查 QualityCode 如果质量代码未对应 OK （0x80)，则在全局脚本诊断窗口中显示 LastError、ErrorDescription 和 QualityCode 属性。
Dim objTagSet objTag = HMIRuntime.Tags（”Tag1”)objTag.ReadIf &H80 〈> objTagQualityCode ThenHMIRuntime.Trace ”Error: " ＆ objTag.LastError ＆ vbCrLf & "ErrorDescription: " ＆ objTag.ErrorDescription ＆ vbCrLf ＆ ”QualityCode： 0x” ＆ Hex（objTagQualityCode） ＆ vbCrLfElseHMIRuntime.Trace "Value： " ＆ objTagValue & vbCrLfEnd If说明 如果读取期间出现错误，则 QualityCode 会设置为 BAD NON-SPECIFIC. 因此，只需在读取之后检查 1) 示例: 写入对象属性VBS 可实现对所有图形编辑器画面对象的属性的访问 运行期间可以读出各个属性以便进行修改或更改以下示例说明了各种访问形式1) 属性的简单设置在以下示例中,画面中包含的“Rectangle1”对象的背景颜色被设置为红色ScreenItems(”Rectangle1"）。