发布于 2007-05-31 13:31:19
0楼
看看这个,字变量第一位取反。
Dim SDbit,SDbitValue,SDbit2,SDbit3
Set SDbit=HMIRuntime.Tags("SDbit1")
SDbitValue=SDbit.Read
SDbit2=SDbitValue And 1
If SDbit2<>0 Then
SDbit3=SDbitValue - 1
SDbit.Write SDbit3,1
Else
SDbit3=SDbitValue + 1
SDbit.Write SDbit3,1
End If
其他位,AND ×2 加减×2