
打开WinCC软件,在项目管理器窗口中“变量管理”目录中,用鼠标右键单击需要创建的过程变量的连接,在d出的菜单中选择“新建变量”。
2、在d出的“变量属性”对话框中的“常规”选项卡中“名称”文本框中可以输入过程变量的名称。
3、在“数据类型”列表框中可以选择过程变量的数据类型。
4、单击“选择”按钮,会d出“地址属性”对话框。5、在“地址属性”对话框中可以设置过程变量要访问的PLC的DB块以及输入/输出数据区。
6、在“限制/报告”选项卡中可以设置变量的上限、下限、起始值和替换值。
7、在“限制/报告”选项卡中可以设置变量的上限、下限、起始值和替换值。
建立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 编辑的画面。你创建一个工程把画面导入就可以打开查看了。和我上面说的是一样的,画面是已经做好的
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)