建立a,b,c三個內部變數，全部是二進位制型別的變數
建立一個畫面，畫三個複選框，複選框的屬性--》幾何--》框數量 設定為1
第一個複選框，屬性--》字型--》文字 改為A，其餘兩個分別為B、C
第一個複選框，屬性--》輸入輸出--》在“動態”那右擊--》變數--》選擇變數a，其餘兩個選擇b，c變數
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
Case 2
Tag_b.Write
Case Else
Tag_c.Write
End Select
Elseif a=2 Then
Else
End If
End Sub
建立a,b,c三個內部變數，全部是二進位制型別的變數
建立一個畫面，畫三個複選框，複選框的屬性--》幾何--》框數量 設定為1
第一個複選框，屬性--》字型--》文字 改為A，其餘兩個分別為B、C
第一個複選框，屬性--》輸入輸出--》在“動態”那右擊--》變數--》選擇變數a，其餘兩個選擇b，c變數
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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
1Case 2
Tag_b.Write
1Case Else
Tag_c.Write
1End Select
Elseif a=2 Then
Select Case b
Case 1
Tag_a.Write
1Tag_b.Write
1Case 2
Tag_a.Write
1Tag_c.Write
1Case Else
Tag_b.Write
1Tag_c.Write
1End Select
Else
Tag_a.Write
1Tag_b.Write
1Tag_c.Write
1End If
End Sub