DIAView VBS 通过扩展域批量操作变量

效果动画演示

DIAView VBS 通过扩展域批量操作变量_第1张图片

 实现步骤

第一步:创建窗口,并画画面

DIAView VBS 通过扩展域批量操作变量_第2张图片

第二步:变量字典==>添加变量==>设定扩展域 分组

DIAView VBS 通过扩展域批量操作变量_第3张图片

 第三步:窗口动画、按钮事件绑定

a) 文本==>动画==>模拟值显示依次绑定为“Var.变量8,Var.变量9,Var.变量10,Var.变量11,Var.变量12”

DIAView VBS 通过扩展域批量操作变量_第4张图片

b)  文本框==>属性==>名称依次命名为“txt8,txt9,txt10,txt11,txt12”

DIAView VBS 通过扩展域批量操作变量_第5张图片

c) 按钮“批量赋值”==>事件“左键按下”

DIAView VBS 通过扩展域批量操作变量_第6张图片

'变量类型,0为模拟量,1为开关量,2为文本量
List = VarCmd.GetExtendedDomainVars("B",0)
Count = VarCmd.GetExtendedDomainCount("B",0)

setvalue=Trim(文本框0.Text)
If Len(setvalue)<=0 then
    MsgBox "请输入设置的值!"
    Exit Sub
End If
index=8
For i=0 To Count - 1
    Call VarCmd.SetVariableValue("Var.变量"&index,setvalue)
    'MsgBox CStr(LIST(i))
    index=index+1
Next
MsgBox "设置成功!"

 d) 按钮“批量读值”==>事件“左键按下”

DIAView VBS 通过扩展域批量操作变量_第7张图片

'变量类型,0为模拟量,1为开关量,2为文本量
List = VarCmd.GetExtendedDomainVars("B",0)
Count = VarCmd.GetExtendedDomainCount("B",0)
index=8
For i=0 To Count - 1
    set txtobj=GetObjectByName("txt"&index)
    txtobj.Text=CStr(LIST(i))
    index=index+1
Next

 

你可能感兴趣的:(SCADA,DIAView)