vb脚本

附录B.VBScript脚本函数简介

序号 内容 画面脚本全局脚本 页码 B01 运行数据库 33 3 B02 动态画面 337 B03 实时报表 337 B04 变量报警 337 B05 系统信息 339 B06 配方文件 339 B07 系统操作 3310 B08 当前时间 3311 B09 画面属性(1) 3°11 B10 线/矩形/圆形 3°13 B11 文本/变量 3°15 B12 多边形 3°16 B13 折线 3°19 B14 立体图形 3°20 B15 普通按钮 3°21 B16 圆形按钮 3°22 B17 三角按钮 3°23 B18 图标按钮 3°24 B19 定时器 3°25 B20 位图 3°25 B21 多选框 3°25 B22 单选框 3°26 B23 动画 3°26 B24 信息列表 3°26 B25 用户数据库 3327 B26 SQL命令 3329 B27 用户报表 3329 B28 流动管道 3°30 B29 子画面窗口 3°30 B30 转轮 3°31 B31 标签 3°31 B32 列表框 3°32 B33 数据库连接 3332 B34 配方操作按钮 3°32 B35 报表打印按钮 3°33

B36 报警状态按钮 3°33 B37 系统信息查询按钮 3°34 B38 报警信息查询按钮 3°34 B39 存档数据查询按钮 3°34 B40 存档曲线查询按钮 3°34 B41 用户管理 3334 B42 子窗口容器 3°35 B43 Gif图片 3°35 B44 实时曲线 3°35 B45 屏幕打印 3°36 B46 画面操作(2) 3°36 B47 行打印 3337 B48 INI文件 3338 B49 数据转换 3339 B50 数据库查询按钮 3°39 B51 串口操作 3340 B52 数据库列表 3°41 B53 报警状态列表 3°41 B54 表格控件 3°42 B55 保留 3°43 B56 数据选择 3°43 B57 选择框 3°44 B58 选择列表 °°44 B59 自定义菜单 3°44 B60 字符串 3°45 B61 时间间隔 3°46 B62 存储过程 3346 B63 曲线查询按钮 3°47 B64 窗口操作 3°48 B65 文件操作 3352 B66 文本文件 3353 B67 TCP通讯 3354 B68 UDP通讯 3355 B69 MSN信息 3°56

B01运行数据库

bValue= RunSys.OpenDatabase(n)

打开系统运行数据库,当大量访问系统变量时,最好打开数据库再访问,否则会发生冲突;n为运行

数据库被打开时允许的时间,单位为毫秒,在规定时间内,数据库没被打开,返回0,否则返回1;

例: bValue=RunSys.OpenDatabase(1000)

If bValue=1Then

……

RunSys.CloseDatabase

End If

RunSys.CloseDatabase

关闭被打开的系统运行数据库, 与OpenDatabase配合使用;

floatValue=RunSys.GetVarValue(VarType,VarName,VarIndex)

此函数用来从系统实时数据库中得到变量的值;VarType指定变量的类型,其中1=AI、2=AO、3=AR、4=DI、5=DO、6=DR、7=VA、8=VD;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可;索引号可从系统的变量字典中查到;如果索引号不为-1,直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;

例:Value=RunSys.GetVarValue(1, "AI1",-1)

RunSys.SetVarValue VarType,VarName,VarIndex,floatValue

此函数用来修改系统实时数据库中变量的值;VarType指定变量的类型,其中2=AO、3=AR、5=DO、

6=DR、7=VA、8=VD;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可;索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;floatValue为要修改的数值;

例:RunSys.SetVarValue 2, "AO1",1000

SetVarValueEx VarType,VarName,VarIndex

此函数弹出窗口输入数值,以修改某个变量(AO/AR/DO/DR/VA/VD)的值或状态,VarType指定变量的类型(AO=2,AR=3,DQ=5,DR=6,VA=7,VD=8);VarName指定变量的名称;如果变量的索引号

VarIndex>-1,VarType和VarName不起作用,直接通过VarIndex修改变量值;

例: RunSys.SetVarValueEx AO,"AO1",-1

StringValue=RunSys.GetVtText(VarName,VarIndex)

此函数用来从系统实时数据库中得到文本变量(VT)的值;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可,索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;

例:strText=RunSys.GetVtText("VT1",-1)

RunSys.SetVtText VarName,VarIndex,stringValue

此函数用来修改系统实时数据库中文本变量(VT)的值;VarName指定变量的名称;VarIndex指定变量的索引号,如果不知道索引号是多少,则填-1即可,索引号可从系统的变量字典中查到;如果索引号不为-1,则直接通过索引号得到变量的值;在大系统中利用索引号可以提高访问速度;

stringValue为要修改的文本值;

例:RunSys.SetVtText "VT1",-1, "启动"

RunSys.SetVTtextEx VarName,VarIndex

弹出窗口输入文本,以修改某VT变量的文本内容,VarName指定变量的名称;如果变量的索引号

VarIndex>-1,VarName不起作用,直接通过VarIndex修改;

例: RunSys.SetVTtextEx "VT1",-1

floatValue=RunSys.GetValueFromDevTable(DevNo,ElementNo,DataType,DataFmt) 此函数用来直接从系统的设备数据表中得到一个数值;

DevNo指定数据所在的设备号(1…100);

ElementNo指定数据所在的单元号(0…255、511、1023);

DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);

DataFmt指定设备号数据的格式(1=整数、2=无符号整数、3=浮点数);

例:Value=RunSys.GetValueFromDevTable(2,0,2,1)

RunSys.SetValueToDevTable DevNo,ElementNo,DataType,DataFmt,Value

此函数用来直接修改系统的设备数据表中一个数值;

DevNo指定数据所在的设备号(1…100);

ElementNo指定数据所在的单元号(0…255、511、1023);

DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);

DataFmt指定设备号数据的格式(1=整数、2=无符号整数、3=浮点数);

Value为要修改的数值;

例:RunSys.SetValueToDevTable 2,0,2,1,999

boolValue=RunSys.GetStatusFromDevTable(DevNo,ElementNo,BitNo,DataType) 此函数用来直接从系统的设备数据表中得到一个状态位;

DevNo指定状态数据所在的设备号(1…100);

ElementNo指定状态数据所在的单元号(0…255、511、1023);

BitNo指定状态数据所在的位号(0…7、15、31);

DataType指定设备号数据的类型(1=Byte、2=Word、3=DWord);

例:Status=RunSys.GetStatusFromDevTable(2,0,0,1)

RunSys.SetStatusToDevTable DevNo,ElementNo,BitNo,DataType,Status