新建 文本文档.txt

PLC5层电梯的外部监控程序,基于VB开发,工程1工程2运行时需加入winsock部件即可正常运行

For i = 0 To 7
j = 4 * i
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 0 Then Shape1(j).BackStyle = 1 Else Shape1(j).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 1 Then Shape1(j + 1).BackStyle = 1 Else Shape1(j + 1).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 2 Then Shape1(j + 2).BackStyle = 1 Else Shape1(j + 2).BackStyle = 0
If Val("&h" & (Mid(aaa, 10 - i, 1))) And 2 ^ 3 Then Shape1(j + 3).BackStyle = 1 Else Shape1(j + 3).BackStyle = 0
Next i