回复：wincc全局脚本对内部变量@Currentusername的值怎么比较？？？-技术论坛-工业支持中心-西门子中国

回复：wincc全局脚本对内部变量@Currentusername的值怎么比较？？？

liu123

帖子

67
精华

0
被关注

2

论坛等级：游士

注册时间：2012-07-04

黄金如何晋级?

发布于 2012-11-21 19:15:00

4楼

Option Explicit
Function action
Dim user
user = HMIRuntime.Tags("@CurrentUsername").Read //首先感谢你的帮助！ Select Case user //这里改过了
Case "甲班" //这里是填用户名称对吧？也就是@CurrentUsername里面的内容对吧？
HMIRuntime.Tags("甲班已登录"). Write 1 //这里是连接一个二进制变量对吧？
HMIRuntime.Tags("乙班已登录"). Write 0 //可为什么还是不行呢？
HMIRuntime.Tags("丙班已登录"). Write 0
Case "乙班"
HMIRuntime.Tags("乙班已登录"). Write 1
HMIRuntime.Tags("甲班已登录"). Write 0
HMIRuntime.Tags("丙班已登录"). Write 0
Case "丙班"
HMIRuntime.Tags("丙班已登录"). Write 1
HMIRuntime.Tags("甲班已登录"). Write 0
HMIRuntime.Tags("乙班已登录"). Write 0
Case Else
HMIRuntime.Tags("甲班已登录"). Write 0
HMIRuntime.Tags("乙班已登录"). Write 0
HMIRuntime.Tags("丙班已登录"). Write 0
End Select
End Function