(1)为什么一个由内部变量的 “数值改变” 事件触发的脚本不被执行?
如果使用一个内部变量调用一个内部变量,以此,例如被调用的变量又去执行一个脚本(比如,根据变量变化),此时一个安全机制会阻止这个功能被执行。
此安全功能是为了阻止连续的执行。
例如
在内部变量 “HMI_Tag_01” 属性下,“更改数值”事件去置位内部变量 “HMI_Tag_02” 中的某一位。内部变量“HMI_Tag_02” 的“更改数值”事件下又调用一个脚本。结果:这个脚本不会被执行。
解决办法
使用和控制器通讯的外部变量。请注意,通过使用外部变量可以规避上述安全机制。在项目运行时可能会产生问题。
(2)如何在一个脚本中访问数组中的元素?
对数组元素的访问是通过数组的名称和数组中由括号分隔的数组索引来实现的:“SmartTags("Array Name")(arrayindex) ”
例如 访问数组 "DB10_HMI_Data"的第二个元素 :
Dim Tag_01 'Internal script tag
Tag_01 = SmartTags("DB10_HMI_Data")(2)
注意
使用下面语法访问字符串类型数组中的元素:
Dim Tag_01 'Internal script tag
Tag_01 = SmartTags("DB10_HMI_Data[2]")
例如 通过一个循环描述数组 "DM10_HMI_Data"的第一个元素至第十一个元素
Dim Tag_01
For Tag_01=0 to 10
SmartTags("DB10_HMI_Data")(Tag_01) =5
Next
局部脚本的数组(该数组仅在此脚本中可用)可以使用同样的方式查询,对于多维数组,各个维度通过一个逗号分隔开。
例如 访问二维数组变量 "HMI_Data" 没有连接控制器。
Dim HMI_Data(10,10)
Dim Tag_01
Tag_01 = HMI_Data(0, 5)
注意
当使用控制器连接的数组元素时,推荐在脚本开始前将他们赋值给脚本内部变量,再使用内部变量进行其他工作。结束脚本前,将内部变量赋值给数组元素。
(3)如何在控制器和脚本之间有效的赋值过程变量数组?
从控制器到一个脚本赋值,过程变量数组需要在一个循环中将数组元素一个一个赋值,参考示例。也可以通过一个简单的指令把局部脚本的数组的值赋给过程变量数组。
例如 把控制器的数组 "CPU_Array" 的值赋给内部数组"local_array" 和 把内部数组 "local_array" 的值赋给控制器的数组"CPU_Array"
Dim local_array(10)
Dim i
...
' Copy from the CPU to the script:
For i = 0 To 9
local_array(i) =SmartTags("CPU_Array")(i)
Next
...
' Copy back to the CPU:
SmartTags("CPU_Array") = local_array
注意使用数组可能导致较高的通信负载和数据不一致。
(4)如何访问动态库 ( "动态链接库 ",DLLs)?
WinCC Comfort 和 Advanced 不能访问 DLLs。WinCCProfessional在用户定义的C函数里可以调用DLL函数 (DLL = Dynamic Link Library)。
DLL 位于“..\Common Files\Siemens\bin”文件夹中,或位于 PATH系统变量所定义的文件夹中。此变量由操作系统的系统属性指定。
步骤
按如下步骤执行,以通过 DLL 调用函数:
(1)打开要调用 DLL 函数的用户自定义 C 函数。
(2)在用户自定义 C 函数的开始位置添加以下代码:
#pragma code(".dll") //声明在 DLL 中存储的函数: (...); (...); ... (...); #pragma code |
结果
<名称.dll> 中的函数 <函数名称 1=""> ... <函数名称 n="">被声明。可在用户自定义C 函数中调用这些函数。
示例:
以下示例显示如何集成“kernel32.dll”文件和调用“GetLocalTime”函数:
#pragma code("kernel32.dll") VOID GetLocalTime(LPSYSTEMTIME lpSystemTime); #pragma code()
SYSTEMTIME st;
GetLocalTime(&st); |
(5)如何用VBS脚本确定鼠标当前的位置?
为了读取当前鼠标的位置,需要访问操作系统的 API (Application Programming Interface)。VBS 不支持通过 DLLs 访问操作系统的 API 。