WinCC如何利用复选框和按钮来设置变量的数值？

WinCC如何利用复选框和按钮来设置变量的数值？

建立a,b,c三个内部变量，全部是二进制类型的变量

创建一个画面，画三个复选框，复选框的属性--》几何--》框数量 设置为1
第一个复选框，属性--》字体--》文本  改为A，其余两个分别为B、C
第一个复选框，属性--》输入输出--》在“动态”那右击--》变量--》选择变量a，其余两个选择b，c变量
在画面中画两个按钮，属性---》字体--》文本  改为按钮1，另外一个改为按钮2

按钮1，属性--》事件--》鼠标--》释放左键  在上面右击---》VBS动作 贴入下面的代码
Sub OnLButtonUp(Byval Item, Byval Flags, Byval x, Byval y) 
Dim a,b            'a控制几个复选框为1，b控制到底是那一个或者多个复选框为1
Dim Tag_a,Tag_b,Tag_c
Set Tag_a=HMIRuntime.Tags("a")
Set Tag_b=HMIRuntime.Tags("b")
Set Tag_c=HMIRuntime.Tags("c")
a=Int(Rnd * 3) + 1 '产生1-3的随机数
b=Int(Rnd * 3) + 1
If a=1 Then
 Select Case b
  Case 1
   Tag_a.Write 1
  Case 2 
   Tag_b.Write 1
  Case Else
   Tag_c.Write 1
 End Select
Elseif a=2 Then
 Select Case b
  Case 1
   Tag_a.Write 1
   Tag_b.Write 1
  Case 2 
   Tag_a.Write 1
   Tag_c.Write 1
  Case Else
   Tag_b.Write 1
   Tag_c.Write 1
 End Select 
Else
   Tag_a.Write 1
   Tag_b.Write 1
   Tag_c.Write 1
End If
End Sub同样，按钮2是下面的代码
Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y)  
Dim a,b            'a控制几个复选框为1，b控制到底是那一个或者多个复选框为1
Dim Tag_a,Tag_b,Tag_c
Set Tag_a=HMIRuntime.Tags("a")
Set Tag_b=HMIRuntime.Tags("b")
Set Tag_c=HMIRuntime.Tags("c")
'Tag_a.Write 0
'Tag_b.Write 0
'Tag_c.Write 0
a=Int(Rnd * 3) + 1 '产生1-3的随机数
b=Int(Rnd * 3) + 1
If a=1 Then
 Select Case b
  Case 1
   Tag_a.Write 0
  Case 2 
   Tag_b.Write 0
  Case Else
   Tag_c.Write 0
 End Select
Elseif a=2 Then
 Select Case b
  Case 1
   Tag_a.Write 0
   Tag_b.Write 0
  Case 2 
   Tag_a.Write 0
   Tag_c.Write 0
  Case Else
   Tag_b.Write 0
   Tag_c.Write 0
 End Select 
Else
   Tag_a.Write 0
   Tag_b.Write 0
   Tag_c.Write 0
End If
End Sub附件是wincc 7.0 sp3 asia 编辑的画面。你创建一个工程把画面导入就可以打开查看了。和我上面说的是一样的，画面是已经做好的

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息