1,486
社区成员
发帖
与我相关
我的任务
分享
Sub change_boolen()
Try
For i = 10 To 17
X(i) = False
Next
Dim TT As String
TT = HEX_to_BIN(DEC_to_HEX(VW168 Mod 256))
For I = 0 To Len(TT) - 1
If I <= 17 Then
X(I + 10) = Mid(TT, Len(TT) - I, 1)
Else
X(I + 12) = Mid(TT, Len(TT) - I, 1)
End If
Next
'=============================================
TT = HEX_to_BIN(DEC_to_HEX(VW168 \ 256))
For i = 0 To 7
X(i) = False
Next
For I = 0 To Len(TT) - 1
If I <= 7 Then
X(I) = Mid(TT, Len(TT) - I, 1)
Else
X(I + 2) = Mid(TT, Len(TT) - I, 1)
End If
Next
'================================================
For i = 30 To 37
X(i) = False
Next
TT = HEX_to_BIN(DEC_to_HEX(VW170 Mod 256))
For I = 0 To Len(TT) - 1
If I <= 17 Then
X(I + 30) = Mid(TT, Len(TT) - I, 1)
Else
X(I + 32) = Mid(TT, Len(TT) - I, 1)
End If
Next