建立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控制到底是那一個或者多個複選框為1Dim Tag_a,Tag_b,Tag_cSet 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) + 1If 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 SelectElseif 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 1End IfEnd Sub

同樣，按鈕2是下面的程式碼

Sub OnLButtonUp(ByVal Item, ByVal Flags, ByVal x, ByVal y) Dim a,b 'a控制幾個複選框為1，b控制到底是那一個或者多個複選框為1Dim Tag_a,Tag_b,Tag_cSet 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 0a=Int(Rnd * 3) + 1 '產生1-3的隨機數b=Int(Rnd * 3) + 1If 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 SelectElseif 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 0End IfEnd Sub

附件是wincc 7.0 sp3 asia 編輯的畫面。你建立一個工程把畫面匯入就可以開啟查看了。和我上面說的是一樣的，畫面是已經做好的